Bug fix: Only calculate aerosol growth factors on first timestep

In routine AEROSOL_CONC in aerosol_mod.F90, FIRST was never set to .FALSE. causing growth factors to get computed every timestep. Signed-off-by: Melissa Sulprizio <[email protected]>
geoschem · Jun 22, 2021 · fdfaef4 · fdfaef4
1 parent 3fda1c9
commit fdfaef4
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/GeosCore/aerosol_mod.F90 b/GeosCore/aerosol_mod.F90
@@ -420,6 +420,9 @@ SUBROUTINE AEROSOL_CONC( Input_Opt,  State_Chm, State_Diag, &
 100       FORMAT(F5.2,A)
        ENDIF
 
+       ! Reset first-time flag
+       FIRST = .FALSE.
+
     ENDIF
 
     !$OMP PARALLEL DO               &