Merge pull request NOAA-EMC#146 from climbfuji/bugfix_fv_regional_bc_…

…init_cloud_amount Bug fix fv_regional_bc.F90: initialize cloud amount boundary conditions only if cloud amount is a valid tracer
LarissaReames-NOAA · Oct 6, 2021 · f3197e7 · f3197e7
1 parent 326e996
commit f3197e7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/model/fv_regional_bc.F90 b/model/fv_regional_bc.F90
@@ -3782,7 +3782,7 @@ subroutine remap_scalar_nggps_regional_bc(Atm                         &
             BC_side%q_BC(i,j,k,rainwat) = 0.
             BC_side%q_BC(i,j,k,snowwat) = 0.
             BC_side%q_BC(i,j,k,graupel) = 0.
-            BC_side%q_BC(i,j,k,cld_amt) = 0.
+            if (cld_amt > 0) BC_side%q_BC(i,j,k,cld_amt) = 0.
             if ( BC_side%pt_BC(i,j,k) > 273.16 ) then       ! > 0C all liq_wat
                BC_side%q_BC(i,j,k,liq_wat) = qn1(i,k)
                BC_side%q_BC(i,j,k,ice_wat) = 0.