100 USE modi_glt_updtfl_r
104 TYPE(t_mxl),
DIMENSION(np),
INTENT(in) :: &
106 TYPE(t_vtp),
DIMENSION(nl,nt,np),
INTENT(in) :: &
108 TYPE(t_tfl),
DIMENSION(np),
INTENT(inout) :: &
110 TYPE(t_sit),
DIMENSION(nt,np),
INTENT(inout) :: &
115 REAL,
DIMENSION(nt,np) :: &
138 WHERE ( tpsit(:,:)%hsn>=zhsnm )
139 zdmsn(:,:) = tpsit(:,:)%rsn * &
140 tpsit(:,:)%fsi * ( zhsnm-tpsit(:,:)%hsn )
141 tpsit(:,:)%hsn = zhsnm
158 sum( tpsil(nilay+1:nl,:,:)%ent, dim=1 )/float(nslay)
subroutine glt_blowsn_r(tpmxl, tpsil, tptfl, tpsit)
subroutine glt_updtfl_r(hflag, tpmxl, tptfl, pdmass, pent, psalt)