Merge pull request #1081 from scrasmussen/bugfix/scm-rts

Bugfix: aerosol data error reporting
NCAR · Aug 9, 2024 · 7506fd1 · 7506fd1
2 parents 62f7656 + e2f4a63
commit 7506fd1
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.