| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_chem.F |
24 |
FIZHI_INIT_CHEM |
_RL water(nwatlats,nwatlevs,ntimesq) |
|
./pkg/fizhi/fizhi_init_chem.F |
35 |
FIZHI_INIT_CHEM |
call READ_QZ (kqz,water,watlats,watlevs,nwatlats,nwatlevs,ntimesq) |
|
./pkg/fizhi/fizhi_init_chem.F |
7 |
FIZHI_INIT_CHEM |
. nwatlats,nwatlevs,ntimesq,watlats,watlevs,water, |
|
./pkg/fizhi/fizhi_moist.F |
2400 |
RNEVP |
_RL water(irun),crystal(irun) |
|
./pkg/fizhi/fizhi_moist.F |
2434 |
RNEVP |
water(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2494 |
RNEVP |
water(i) = water(i) + rain(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2518 |
RNEVP |
if( (evp9(i,L).gt.0.) .and. (water(i).gt.0.) ) then |
|
./pkg/fizhi/fizhi_moist.F |
2519 |
RNEVP |
exparg = ZM1P04*tmscl*((water(i)*RPHF*TEMP2(I,L))**ZP578) |
|
./pkg/fizhi/fizhi_moist.F |
2522 |
RNEVP |
IF(watevap(I).GE.water(i)) watevap(I) = water(i) |
|
./pkg/fizhi/fizhi_moist.F |
2524 |
RNEVP |
water(i) = water(i) - watevap(i) |
|
./pkg/fizhi/fizhi_moist.F |
2535 |
RNEVP |
rcon(i) = water(i) + crystal(i) |
|
./pkg/fizhi/fizhi_turb.F |
191 |
TURBIO |
integer water(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
370 |
TURBIO |
water(i) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
371 |
TURBIO |
if((ityp(i).eq.100).and.(icethk(i).eq.0. ))water(i) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
465 |
TURBIO |
call STRIPITINT (water,stwatr,nchptot,nchp,istrip,1,nn) |