Merge branch 'dev/emc' of https://github.com/NOAA-EMC/GFDL_atmos_cube…

…d_sphere into remove_ipd_step3_and_5
NOAA-EMC · Jan 7, 2021 · 9967174 · 9967174
2 parents 7064643 + 76489d6
commit 9967174
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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