1 SUBROUTINE calwxt_explicit_post(LMH,THS,PMID,PREC,SR,F_RIMEF,IWX)
13 use ctlblk_mod
, only: jsta, jend, modelname, pthresh, im, jsta_2l, &
14 jend_2u, lm, ista, iend, ista_2l, iend_2u
22 real,
dimension(ista_2l:iend_2u,jsta_2l:jend_2u,lm),
intent(in) :: f_rimef, pmid
23 REAL,
dimension(ista_2l:iend_2u,jsta_2l:jend_2u),
intent(in) :: lmh, prec, ths, sr
24 integer,
dimension(ista:iend,jsta:jend),
intent(inout) :: iwx
45 IF (prec(i,j) <= pthresh) cycle
52 IF (sr(i,j) < 0.5)
THEN
55 tskin = ths(i,j)*(psfc/p1000)**capa
57 IF (tskin < 273.15)
THEN
68 IF(f_rimef(i,j,lmhk) >= 10)
THEN