Phil's ccpp fixes

NOAA-PSL · Apr 8, 2020 · 102bafb · 102bafb
1 parent 975dfc2
commit 102bafb
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/compns_stochy.F90 b/compns_stochy.F90
@@ -213,6 +213,7 @@ subroutine compns_stochy (me,sz_nml,input_nml_file,fn_nml,nlunit,deltim,iret)
            if (shum(k).GT.0) l_min=min(shum_lscale(k),l_min)
            if (skeb(k).GT.0) l_min=min(skeb_lscale(k),l_min)
        enddo
+       if (lndp_type.GT.0) l_min=min(lndp_lscale(1),l_min)
        !ntrunc=1.5*circ/l_min
        ntrunc=circ/l_min
        if (me==0) print*,'ntrunc calculated from l_min',l_min,ntrunc