Replace deprecated GEOS-Chem subroutine Init_Chemistry with Init_Phot…

…olysis Signed-off-by: Lizzie Lundgren <[email protected]>
geoschem · Dec 21, 2023 · bbf5414 · bbf5414
1 parent a135380
commit bbf5414
Showing 1 changed file with 5 additions and 11 deletions.
diff --git a/src/chemistry/geoschem/chemistry.F90 b/src/chemistry/geoschem/chemistry.F90
@@ -971,7 +971,6 @@ subroutine chem_init(phys_state, pbuf2d)
     use geoschem_history_mod,     only : HistoryExports_SetServices
 
     ! GEOS-Chem modules
-    use Chemistry_Mod,         only : Init_Chemistry
     use DiagList_Mod,          only : Init_DiagList, Print_DiagList
     use Drydep_Mod,            only : depName, Ndvzind
     use Error_Mod,             only : Init_Error
@@ -1572,17 +1571,12 @@ subroutine chem_init(phys_state, pbuf2d)
        CALL Error_Stop( ErrMsg, ThisLoc )
     ENDIF
 
-    IF ( Input_Opt%Its_A_FullChem_Sim .OR. &
-         Input_Opt%Its_An_Aerosol_Sim ) THEN
-       ! This also initializes Fast-JX
-       CALL Init_Chemistry( Input_Opt  = Input_Opt,            &
-                            State_Chm  = State_Chm(BEGCHUNK),  &
-                            State_Diag = State_Diag(BEGCHUNK), &
-                            State_Grid = State_Grid(BEGCHUNK), &
-                            RC         = RC                    )
-
+    ! Initialize photolysis, including reading files for optical properties
+    IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. &
+         Input_Opt%ITS_AN_AEROSOL_SIM ) THEN
+       CALL Init_Photolysis( Input_Opt, State_Grid, State_Chm, State_Diag, RC )
        IF ( RC /= GC_SUCCESS ) THEN
-          ErrMsg = 'Error encountered in "Init_Chemistry"!'
+          ErrMsg = 'Error encountered in "Init_Photolysis"!'
           CALL Error_Stop( ErrMsg, ThisLoc )
        ENDIF
     ENDIF