Merge PR #1842 (branch 'bugfix/geos') into dev/14.2.0

geoschem · Jun 23, 2023 · 6d7617b · 6d7617b
2 parents a89ba68 + 22f080d
commit 6d7617b
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/GeosCore/fjx_interface_mod.F90 b/GeosCore/fjx_interface_mod.F90
@@ -527,10 +527,10 @@ SUBROUTINE Run_FastJX( WLAOD, Input_Opt, State_Chm, State_Diag, &
 #if defined( MODEL_GEOS )
        ! Initialize diagnostics arrays
        IF ( State_Diag%Archive_EXTRALNLEVS ) THEN
-          State_Diag%EXTRALNLEVS(ILON,ILAT) = 0.0
+          State_Diag%EXTRALNLEVS(NLON,NLAT) = 0.0
        ENDIF
        IF ( State_Diag%Archive_EXTRALNITER ) THEN
-          State_Diag%EXTRALNITER(ILON,ILAT) = 0.0
+          State_Diag%EXTRALNITER(NLON,NLAT) = 0.0
        ENDIF
 #endif
 

diff --git a/Headers/CMN_FJX_MOD.F90 b/Headers/CMN_FJX_MOD.F90
@@ -240,9 +240,6 @@ SUBROUTINE Init_CMN_FJX( Input_Opt, State_Grid, RC )
     JXL1_  = JXL_+1        ! Vertical levs edges for J-values
     JXL2_  = 2*JXL_+2      ! Max # levs in the basic Fast-JX grid (mid-level)
 
-    JTAUMX = ( N_ - 4*JXL_ ) / 2  ! Maximum number of divisions ( i.e., may
-                                  ! not get to ATAUMN)
-
 #ifdef MODEL_GEOS
     ! N_  = no. of levels in Mie scattering arrays
     IF ( Input_Opt%LLFASTJX > 0 ) THEN
@@ -252,6 +249,9 @@ SUBROUTINE Init_CMN_FJX( Input_Opt, State_Grid, RC )
     ENDIF
 #endif
 
+    JTAUMX = ( N_ - 4*JXL_ ) / 2  ! Maximum number of divisions ( i.e., may
+                                  ! not get to ATAUMN)
+
     AN_       = 37  ! # of separate aerosols per layer; Including PSCs
     W_        = 18  ! # of wavelength bins