From 76489d6304c8577a048c3dcccb4082c7195f8c37 Mon Sep 17 00:00:00 2001 From: Dom Heinzeller Date: Wed, 6 Jan 2021 16:56:42 -0700 Subject: [PATCH] model/fv_regional_bc.F90: initialize cld_amt to zero so that GFDL-MP can be coldstarted from RAP/HRRR input data (#49) This PR is a cherry-pick of commit 48ea719 that went into the ufs-release/public-v2 branch of the authoritative (NOAA-GFDL) repository. See NOAA-GFDL#62 for more information. --- model/fv_regional_bc.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/model/fv_regional_bc.F90 b/model/fv_regional_bc.F90 index e3b633256..b1d429aeb 100644 --- a/model/fv_regional_bc.F90 +++ b/model/fv_regional_bc.F90 @@ -3701,7 +3701,7 @@ subroutine remap_scalar_nggps_regional_bc(Atm & ! If the source is from old GFS or operational GSM then the tracers will be fixed in the boundaries ! and may not provide a very good result ! -! if (cld_amt .gt. 0) BC_side%q_BC(:,:,:,cld_amt) = 0. + if (cld_amt .gt. 0) BC_side%q_BC(:,:,:,cld_amt) = 0. if (trim(data_source) /= 'FV3GFS GAUSSIAN NEMSIO FILE') then if ( Atm%flagstruct%nwat .eq. 6 ) then do k=1,npz