| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2330 |
RNEVP |
_RL fracwat,fracice, tice,rh,fact,dum |
|
./pkg/fizhi/fizhi_moist.F |
2479 |
RNEVP |
fact = 1.0 |
|
./pkg/fizhi/fizhi_moist.F |
2481 |
RNEVP |
fact = min( 1.0 _d 0, alpha + (1.0-alpha)*( rh-rhcrit(i,L)) / |
|
./pkg/fizhi/fizhi_moist.F |
2486 |
RNEVP |
if( pl(i,L).ge.10.0 ) CLSBTH(I,L) = fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
231 |
TRACER_FILL |
fact = 1.0 + qval/sum |
|
./pkg/fizhi/fizhi_fillnegs.F |
232 |
TRACER_FILL |
if( array(1).gt.0 ) pq(ip1,j,L) = pq(ip1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
233 |
TRACER_FILL |
if( array(2).gt.0 ) pq(im1,j,L) = pq(im1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
234 |
TRACER_FILL |
if( array(3).gt.0 ) pq(i,j+1,L) = pq(i,j+1,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
235 |
TRACER_FILL |
if( array(4).gt.0 ) pq(i,j-1,L) = pq(i,j-1,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
236 |
TRACER_FILL |
if( array(5).gt.0 ) pq(i,j,L-1) = pq(i,j,L-1) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
237 |
TRACER_FILL |
if( array(6).gt.0 ) pq(i,j,L+1) = pq(i,j,L+1) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
93 |
TRACER_FILL |
_RL qmax,qval,sum,fact |
|
./model/src/swfrac.F |
101 |
SWFRAC |
facz = fact*swdk(i) |
|
./model/src/swfrac.F |
11 |
SWFRAC |
I imax, fact, |
|
./model/src/swfrac.F |
46 |
SWFRAC |
_RL fact |