File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lsm.F |
12 |
TILE |
U TC, TD, QA, SWET1, SWET2, SWET3, CAPAC, SNOW, |
./pkg/fizhi/fizhi_lsm.F |
208 |
TILE |
SWET(ChNo,SFCLY ) = max( min(SWET1(ChNo),1. _d 0), 0. _d 0) |
./pkg/fizhi/fizhi_lsm.F |
43 |
TILE |
& SWET1(NCH), SWET2(NCH), SWET3(NCH), CAPAC(NCH), |
./pkg/fizhi/fizhi_lsm.F |
460 |
TILE |
SWET1(ChNo) = SWET(ChNo,SFCLY) |
./pkg/fizhi/fizhi_lsm.F |
464 |
TILE |
IF(SWET1(ChNo).LT.1.E-10) SWET1(CHNO) = 0.0 |
./pkg/fizhi/fizhi_lsm.F |
500 |
INTERC |
U TC, CAPAC, SNOW, SWET1, RUNOFF, RUNSRF, |
./pkg/fizhi/fizhi_lsm.F |
518 |
INTERC |
& SNOW(NCH), SWET1(NCH), RUNOFF(NCH), SMELT(NCH), |
./pkg/fizhi/fizhi_lsm.F |
627 |
INTERC |
IF(SWET1(CHNO).GT.WETEQ1(CHNO) .AND. WETEQ1(CHNO).NE.1.) THEN |
./pkg/fizhi/fizhi_lsm.F |
628 |
INTERC |
WETFRC=(SWET1(CHNO)-WETEQ1(CHNO))/(1.-WETEQ1(CHNO)) |
./pkg/fizhi/fizhi_lsm.F |
636 |
INTERC |
SWET1(ChNo) = SWET1(ChNo) |
./pkg/fizhi/fizhi_lsm.F |
640 |
INTERC |
SWET1(CHNO) = SWET1(CHNO) + CAVAIL / WMAX(1,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
646 |
INTERC |
IF(SWET1(CHNO).GT.WETEQ1(CHNO) .AND. WETEQ1(CHNO).NE.1.) THEN |
./pkg/fizhi/fizhi_lsm.F |
647 |
INTERC |
WETFRC=(SWET1(CHNO)-WETEQ1(CHNO))/(1.-WETEQ1(CHNO)) |
./pkg/fizhi/fizhi_lsm.F |
655 |
INTERC |
SWET1(ChNo) = SWET1(ChNo) |
./pkg/fizhi/fizhi_lsm.F |
659 |
INTERC |
SWET1(CHNO) = SWET1(CHNO) + CAVAIL / WMAX(1,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
827 |
FLUXES |
U TC, TD, EA, SWET1, SNOW, |
./pkg/fizhi/fizhi_lsm.F |
851 |
FLUXES |
& SWET1(NCH,NLAY), SNOW(NCH), |