From 22f080d83802d7868082196ca94e51920978dbf9 Mon Sep 17 00:00:00 2001 From: Lizzie Lundgren Date: Wed, 21 Jun 2023 11:51:23 -0400 Subject: [PATCH] Bug fixes for GEOS-only runs Signed-off-by: Lizzie Lundgren --- GeosCore/fjx_interface_mod.F90 | 4 ++-- Headers/CMN_FJX_MOD.F90 | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/GeosCore/fjx_interface_mod.F90 b/GeosCore/fjx_interface_mod.F90 index b7d5ae161..347a11cd1 100644 --- 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 index 1b8f95674..f5bcffe6c 100644 --- 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