1 SUBROUTINE calwxt_dominant_post(PREC,RAIN,FREEZR,SLEET,SNOW, &
2 & domr,domzr,domip,doms)
13 use ctlblk_mod
, only: jsta, jend, pthresh, im, jsta_2l, jend_2u, &
14 ista, iend, ista_2l, iend_2u
19 integer,
PARAMETER :: nalg=5
21 REAL prec(ista_2l:iend_2u,jsta_2l:jend_2u)
22 real,
DIMENSION(ista:iend,jsta:jend),
intent(inout) :: doms,domr,domzr,domip
23 real,
DIMENSION(ista:iend,jsta:jend,NALG),
intent(in) :: rain,snow,sleet,freezr
25 real totsn,totip,totr,totzr
41 IF (prec(i,j) <= pthresh) cycle
48 IF (rain(i,j,l) > 0)
THEN
53 IF (snow(i,j,l) > 0)
THEN
58 IF (sleet(i,j,l) > 0)
THEN
63 IF (freezr(i,j,l) > 0)
THEN
70 IF (totsn > totip)
THEN
71 IF (totsn > totzr)
THEN
72 IF (totsn >= totr)
THEN
77 ELSE IF (totzr >= totr)
THEN
82 ELSE IF (totip > totzr)
THEN
83 IF (totip >= totr)
THEN
88 ELSE IF (totzr >= totr)
THEN