Bug fix for runs where CLUBB_SGS is not defined

Katetc · Jul 31, 2024 · b52730b · b52730b
1 parent a251e59
commit b52730b
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/src/physics/cam/clubb_intr.F90 b/src/physics/cam/clubb_intr.F90
@@ -41,24 +41,22 @@ module clubb_intr
 #endif
 
   implicit none
+
 #ifdef CLUBB_SGS
   ! Variables that contains all the statistics
-
   type (stats), target, save :: stats_zt(pcols),      & ! stats_zt grid
                                 stats_zm(pcols),      & ! stats_zm grid
                                 stats_rad_zt(pcols),  & ! stats_rad_zt grid
                                 stats_rad_zm(pcols),  & ! stats_rad_zm grid
                                 stats_sfc(pcols)        ! stats_sfc
-
-  type (stats_metadata_type) :: &
-    stats_metadata
-
   type (hm_metadata_type) :: &
     hm_metadata
+
+  type (stats_metadata_type) :: &
+    stats_metadata
 
   type (sclr_idx_type) :: &
     sclr_idx
-
 #endif
 
   private
@@ -103,6 +101,7 @@ module clubb_intr
   ! ------------------------ !
   !  Sometimes private data  !
   ! ------------------------ !
+#ifdef CLUBB_SGS
 #ifdef SILHS
   ! If SILHS is in use, it will initialize these
   public :: &
@@ -116,7 +115,8 @@ module clubb_intr
     pdf_dim, &
     hm_metadata
 #endif
-
+#endif
+
   ! ------------ !
   ! Private data !
   ! ------------ !