41 SUBROUTINE callcl(P1D,T1D,Q1D,PLCL,ZLCL)
48 use params_mod, only: eps, oneps, d01, h1m12, gi, d00
49 use ctlblk_mod, only: jsta, jend, spval, jsta_m, jend_m, im, &
50 ista, iend, ista_m, iend_m
54 real,
PARAMETER :: d35=3.5, d4805=4.805, h2840=2840.
55 real,
PARAMETER :: h55=55., d2845=0.2845, d28=0.28
59 REAL,
dimension(ista:iend,jsta:jend),
intent(in) :: p1d,t1d,q1d
60 REAL,
dimension(ista:iend,jsta:jend),
intent(inout) :: plcl,zlcl
61 REAL tlcl(ista:iend,jsta:jend)
63 real dlplcl,zsfc,dz,dalp,alplcl,rmx,evp,arg,rkapa
85 IF(p1d(i,j)<spval.and.q1d(i,j)<spval)
THEN
86 evp = p1d(i,j)*q1d(i,j)/(eps+oneps*q1d(i,j))
87 rmx = eps*evp/(p1d(i,j)-evp)
88 rkapa = 1.0 / (d2845*(1.0-d28*rmx))
89 arg = max(h1m12,evp*d01)
90 tlcl(i,j) = h55 + h2840 / (d35*log(t1d(i,j))-log(arg)-d4805)
91 plcl(i,j) = p1d(i,j)*(tlcl(i,j)/t1d(i,j))**rkapa
92 alplcl = log(plcl(i,j))
97 IF(alpint(i,j,l) < alplcl)
THEN
98 dlplcl = alplcl - alpint(i,j,l+1)
99 dalp = alpint(i,j,l) - alpint(i,j,l+1)
100 dz = zint(i,j,l) - zint(i,j,l+1)
101 zlcl(i,j) = max(d00, zint(i,j,l+1) + dz*dlplcl/dalp - zsfc)
subroutine callcl(P1D, T1D, Q1D, PLCL, ZLCL)
Subroutine that computes the lifting condensation level (LCL) height (above ground level) and pressur...