Update 2.0.2: Fix initial condition input bug for d02 and above

WRF-GC · Sep 30, 2022 · 990e8e8 · 990e8e8
1 parent 2102881
commit 990e8e8
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/chemics_init.F b/chemics_init.F
@@ -245,8 +245,8 @@ subroutine chem_init(id, chem, emis_ant, scalar, dt, bioemdt, photdt, chemdt, st
       call wrf_message("           \  /\  /  | | \ \| |         | |__| | |____           ")
       call wrf_message("            \/  \/   |_|  \_\_|          \_____|\_____|          ")
       call wrf_message("*****************************************************************")
-      call wrf_message("           WRF-GC MODEL, BUILD 2005.22 - WRF BINDINGS            ")
-      call wrf_message("                 WRF-GC RELEASE 2.0     20210223                 ")
+      call wrf_message("           WRF-GC MODEL, BUILD 2209.3X - WRF BINDINGS            ")
+      call wrf_message("                 WRF-GC RELEASE 2.02    20220930                 ")
       call wrf_message(" For errors, suggestions & feedback email hplin@seas.harvard.edu ")
       call wrf_message("*****************************************************************")
       call wrf_message(message_txt)
@@ -460,7 +460,7 @@ subroutine chem_init(id, chem, emis_ant, scalar, dt, bioemdt, photdt, chemdt, st
       write(6, *) "DoTurb: ", Global_Input_Opt%LTURB
       write(6, *) "DoWetDep: ", Global_Input_Opt%LWETD
       call WRFGC_IdxSetup(Am_I_Root)
-      if(config_flags%have_bcs_chem .eq. .false.) then
+      if(config_flags%chem_in_opt .eq. 0) then
         call WRFGC_Set_WRF(Am_I_Root, config_flags, grid, num_chem, chem, num_scalar, scalar, 1, moist_dummy, & 
                            its, ite, jts, jte, &
                            ide, jde, &

diff --git a/wrfgc_convert_state_mod.F b/wrfgc_convert_state_mod.F
@@ -1024,7 +1024,7 @@ subroutine WRFGC_Get_WRF(am_I_Root, &
         enddo ! Loop over k
 
         call wrf_debug(100, "WRFGC_Convert_State_Mod after 3-D State_Met% Conversion")
-        if(config_flags%have_bcs_chem .and. FIRST(grid%id)) then
+        if(config_flags%chem_in_opt .eq. 1 .and. FIRST(grid%id)) then
             call wrf_debug(1, "WRFGC_Convert_State_Mod updating chemistry concentrations in GEOS-Chem from WRF IC values")
             do k = kts, kte
             do j = jts, jte