From e2f4a63682c679660f0fd334b34e7c5c8c4042d4 Mon Sep 17 00:00:00 2001 From: Soren Rasmussen Date: Fri, 2 Aug 2024 11:25:15 -0600 Subject: [PATCH] Return if error reading aerosol data --- physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90 | 1 + 1 file changed, 1 insertion(+) 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 index e3485ce6c..6da527187 100644 --- 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.