Reset State_Met PBL vars after computing budget diags, not before

Signed-off-by: Lizzie Lundgren <elundgren@seas.harvard.edu>
geoschem · Oct 17, 2024 · 1faf61d · 1faf61d
1 parent 78a8d3f
commit 1faf61d
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/GeosCore/pbl_mix_mod.F90 b/GeosCore/pbl_mix_mod.F90
@@ -341,15 +341,9 @@ SUBROUTINE Compute_Pbl_Height( Input_Opt, State_Grid, State_Chm,  &
     ! COMPUTE_PBL_HEIGHT begins here!
     !=================================================================
 
-    ! Initialize
     RC      = GC_SUCCESS
     ErrMsg  = ''
     ThisLoc = ' -> at Compute_PBL_Height (in module GeosCore/pbl_mix_mod.F90)'
-
-    Bad_Sum                  = .FALSE.
-    State_Met%InPbl          = .FALSE.
-    State_Met%F_of_PBL       = 0.0_fp
-    State_Met%F_Under_PBLTop = 0.0_fp
 
     !------------------------------------------------------------------------
     ! Change in PBL mass for use with budget mixing PBL diagnostic - 1 of 2
@@ -388,6 +382,12 @@ SUBROUTINE Compute_Pbl_Height( Input_Opt, State_Grid, State_Chm,  &
        ENDIF
     ENDIF
 
+    ! Initialize
+    State_Met%InPbl          = .FALSE.
+    State_Met%F_of_PBL       = 0.0_fp
+    State_Met%F_Under_PBLTop = 0.0_fp
+    Bad_Sum = .FALSE.
+
     !$OMP PARALLEL DO                                                        &
     !$OMP DEFAULT( SHARED                                                   )&
     !$OMP PRIVATE( I, J, L, LTOP, Lower_Edge_Height                         )&