Return if error reading aerosol data

NCAR · Aug 2, 2024 · e2f4a63 · e2f4a63
1 parent 62f7656
commit e2f4a63
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90
@@ -230,6 +230,7 @@ subroutine GFS_phys_time_vary_init (
                ! Read aerosol climatology
                call read_aerdata (me,master,iflip,idate,errmsg,errflg)
             endif
+            if (errflg /= 0) return
          else
             ! Update the value of ntrcaer in aerclm_def with the value defined
             ! in GFS_typedefs.F90 that is used to allocate the Tbd DDT.