| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1343 |
RCANOP |
I NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
1356 |
RCANOP |
_RL CAPAC(NCH), SNOW(NCH), SATCAP(NCH), RA(NCH), ETURB(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
1371 |
RCANOP |
IF(SATCAP(CHNO).GT..001) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1380 |
RCANOP |
IF(SATCAP(CHNO) .LE. .001) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1408 |
WUPDAT |
I EVAP, SATCAP, VGWMAX, TC, RA, RC, |
|
./pkg/fizhi/fizhi_lsm.F |
1423 |
WUPDAT |
_RL EVAP(NCH), SATCAP(NCH), VGWMAX(NLAY,NTYPS), |
|
./pkg/fizhi/fizhi_lsm.F |
1532 |
WUPDAT |
IF( CAPAC(ChNo) .GT. SATCAP(ChNo) ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1533 |
WUPDAT |
THRU = CAPAC(ChNo) - SATCAP(ChNo) |
|
./pkg/fizhi/fizhi_lsm.F |
1534 |
WUPDAT |
CAPAC(ChNo) = SATCAP(ChNo) |
|
./pkg/fizhi/fizhi_lsm.F |
206 |
TILE |
SATCAP(ChNo) = 0.1 * ZLAI(ChNo) |
|
./pkg/fizhi/fizhi_lsm.F |
211 |
TILE |
CAPAC(CHNO) = max( min(CAPAC(ChNo),SATCAP(CHNO)), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
215 |
TILE |
FCAN(CHNO) = MIN( 1. _d 0, MAX(0. _d 0,CAPAC(ChNo)/SATCAP(ChNo)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
285 |
TILE |
I NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
316 |
TILE |
CALL RCANOP (NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
336 |
TILE |
CALL RCANOP (NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
390 |
TILE |
I EVAP, SATCAP, VGWMAX, TC, RA, RC, |
|
./pkg/fizhi/fizhi_lsm.F |
444 |
TILE |
I NCH, ITYP, DTSTEP, TRAINL, TRAINC, TSNOW, SATCAP, |
|
./pkg/fizhi/fizhi_lsm.F |
499 |
INTERC |
I TSNOW, SATCAP, WMAX, CSOIL, WETEQ1, |
|
./pkg/fizhi/fizhi_lsm.F |
516 |
INTERC |
_RL TRAINL(NCH), TRAINC(NCH), TSNOW(NCH), SATCAP(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
557 |
INTERC |
XTCORR= (1.-TIMFRL) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/ |
|
./pkg/fizhi/fizhi_lsm.F |
568 |
INTERC |
CAVAIL = ( SATCAP(CHNO) - CAPAC(CHNO) ) * FWETL |
|
./pkg/fizhi/fizhi_lsm.F |
569 |
INTERC |
WETINT = CAPAC(CHNO)/SATCAP(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
592 |
INTERC |
XTCORR= (1.-TIMFRC) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/ |
|
./pkg/fizhi/fizhi_lsm.F |
603 |
INTERC |
CAVAIL = ( SATCAP(CHNO) - CAPAC(CHNO) ) * FWETC |
|
./pkg/fizhi/fizhi_lsm.F |
604 |
INTERC |
WETINT = CAPAC(CHNO)/SATCAP(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
68 |
TILE |
& DRCDTC(nch), SATCAP(nch), PAR(nch), |