| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
520 |
INTERC |
_RL DTSTEP, SNOWM, WATADD, CAVAIL, THRUC, WRUNC, WRUNL, |
|
./pkg/fizhi/fizhi_lsm.F |
568 |
INTERC |
CAVAIL = ( SATCAP(CHNO) - CAPAC(CHNO) ) * FWETL |
|
./pkg/fizhi/fizhi_lsm.F |
570 |
INTERC |
IF( WATADD*(1.-WETINT) .LT. CAVAIL ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
573 |
INTERC |
THRU1 = (WATADD - CAVAIL) |
|
./pkg/fizhi/fizhi_lsm.F |
603 |
INTERC |
CAVAIL = ( SATCAP(CHNO) - CAPAC(CHNO) ) * FWETC |
|
./pkg/fizhi/fizhi_lsm.F |
605 |
INTERC |
IF( WATADD*(1.-WETINT) .LT. CAVAIL ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
608 |
INTERC |
THRU1 = (WATADD - CAVAIL) |
|
./pkg/fizhi/fizhi_lsm.F |
633 |
INTERC |
CAVAIL = ( 1.-WETFRC)*FWETL*WMAX(1,ITYP(ChNo))*(1-WETEQ1(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
634 |
INTERC |
IF ( THRUL * (1-WETFRC) .LT. CAVAIL ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
639 |
INTERC |
WRUNL = THRUL - CAVAIL |
|
./pkg/fizhi/fizhi_lsm.F |
640 |
INTERC |
SWET1(CHNO) = SWET1(CHNO) + CAVAIL / WMAX(1,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
652 |
INTERC |
CAVAIL = (1.-WETFRC)*FWETC*WMAX(1,ITYP(ChNo))*(1-WETEQ1(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
653 |
INTERC |
IF ( THRUC * (1-WETFRC) .LT. CAVAIL ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
658 |
INTERC |
WRUNC = THRUC - CAVAIL |
|
./pkg/fizhi/fizhi_lsm.F |
659 |
INTERC |
SWET1(CHNO) = SWET1(CHNO) + CAVAIL / WMAX(1,ITYP(ChNo)) |