Merge PR #2353 (Cloud-J error handling)

This merge brings PR #2353 (Cloud-J error handling, by @lizziel) into
the GEOS-Chem "no-diff-to-benchmark" development stream.

This PR implements robust error handling for Cloud-J (i.e. error code
passed all the way to the main program, for graceful shutdown).
NOTE: Relies on Cloud-J PR #19,

Signed-off-by: Bob Yantosca <yantosca@seas.harvard.edu>

CHANGELOG.md

@@ -15,6 +15,7 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 ## [14.4.1] - 2024-06-28
 ### Added
 - Added initialization of PHOTDELTA in `ucx_h2so4phot` to avoid run-time error in CESM
+- Added Cloud-J status output and error handling for it
 
 ### Changed
 - Alphabetically sort Complex SOA species into `geoschem_config.yml` in run directory creation 

GeosCore/cldj_interface_mod.F90

@@ -133,7 +133,12 @@ SUBROUTINE INIT_CLOUDJ( Input_Opt, State_Grid, State_Diag, State_Chm, RC )
     ! FJX_j2j.dat (RD_JS_JX)
     CALL Init_CldJ(Input_Opt%amIRoot, Input_Opt%CloudJ_Dir,   &
                    State_Grid%NZ, Input_Opt%Nlevs_Phot_Cloud, &
-                   TITLEJXX, JVN_, NJXX)
+                   TITLEJXX, JVN_, NJXX, RC)
+    IF ( RC /= GC_SUCCESS ) THEN
+       ErrMsg = 'Error encountered in subroutine Init_Cldj within Cloud-J photolysis'
+       CALL GC_Error( ErrMsg, RC, ThisLoc )
+       RETURN
+    ENDIF
 
     ! Store # of photolysis reactions in State_Chm object
     State_Chm%Phot%nPhotRxns = NRatJ
@@ -890,7 +895,7 @@ SUBROUTINE Run_CloudJ( Input_Opt, State_Chm, State_Diag, &
                       REFFL,    REFFI,    CLDF,     CLDCOR,   CLDIW,     &
                       AERSP,    NDXAER,   L1_,      AN_,      JVN_,      &
                       VALJXX,   SKPERD,   SWMSQ,    OD18,     IRAN,      &
-                      NICA,     JCOUNT,   LDARK,    WTQCA               )
+                      NICA,     JCOUNT,   LDARK,    WTQCA,    RC         )
 
        !-----------------------------------------------------------------
        ! Fill GEOS-Chem array ZPJ with J-values
@@ -989,6 +994,12 @@ SUBROUTINE Run_CloudJ( Input_Opt, State_Chm, State_Diag, &
     ENDDO
     !$OMP END PARALLEL DO
 
+    IF ( RC /= GC_SUCCESS ) THEN
+       ErrMsg = 'Error encountered in subroutine Cloud_JX within Cloud-J photolysis'
+       CALL GC_Error( ErrMsg, RC, ThisLoc )
+       RETURN
+    ENDIF
+
     ! Reset first-time flag
     FIRST=.FALSE.