| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
175 |
TURBIO |
integer water(nchp) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
397 |
TURBIO |
water(i) = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
398 |
TURBIO |
if((ityp(i).eq.100).and.(icethk(i).eq.0. ))water(i) = 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
492 |
TURBIO |
call STRIPITINT (water,stwatr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_moist.F |
2328 |
RNEVP |
_RL water(irun),crystal(irun) |
|
./pkg/fizhi/fizhi_moist.F |
2361 |
RNEVP |
water(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2421 |
RNEVP |
water(i) = water(i) + rain(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2445 |
RNEVP |
if( (evp9(i,L).gt.0.) .and. (water(i).gt.0.) ) then |
|
./pkg/fizhi/fizhi_moist.F |
2446 |
RNEVP |
exparg = ZM1P04*tmscl*((water(i)*RPHF*TEMP2(I,L))**ZP578) |
|
./pkg/fizhi/fizhi_moist.F |
2449 |
RNEVP |
IF(watevap(I).GE.water(i)) watevap(I) = water(i) |
|
./pkg/fizhi/fizhi_moist.F |
2451 |
RNEVP |
water(i) = water(i) - watevap(i) |
|
./pkg/fizhi/fizhi_moist.F |
2462 |
RNEVP |
rcon(i) = water(i) + crystal(i) |
|
./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_turb.F |
175 |
TURBIO |
integer water(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
397 |
TURBIO |
water(i) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
398 |
TURBIO |
if((ityp(i).eq.100).and.(icethk(i).eq.0. ))water(i) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
492 |
TURBIO |
call STRIPITINT (water,stwatr,nchptot,nchp,istrip,1,nn) |