| 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 |
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 |
1410 |
WUPDAT |
U CAPAC, SNOW, SWET, RUNOFF, |
|
./pkg/fizhi/fizhi_lsm.F |
1425 |
WUPDAT |
& CAPAC(NCH), SNOW(NCH), SWET(nch,NLAY), |
|
./pkg/fizhi/fizhi_lsm.F |
1454 |
WUPDAT |
IF(EGROI .GT. CAPAC(CHNO)+WTOTAL) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1455 |
WUPDAT |
ESNO(CHNO)=ESNO(CHNO)+EGROI-(CAPAC(CHNO)+WTOTAL) |
|
./pkg/fizhi/fizhi_lsm.F |
1456 |
WUPDAT |
EGROI=CAPAC(CHNO)+WTOTAL |
|
./pkg/fizhi/fizhi_lsm.F |
1460 |
WUPDAT |
IF(EINT(CHNO) .GT. CAPAC(CHNO)) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1461 |
WUPDAT |
EGRO=EGRO+EINT(CHNO)-CAPAC(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1462 |
WUPDAT |
EINT(CHNO)=CAPAC(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1514 |
WUPDAT |
CAPAC(ChNo) = CAPAC(ChNo) - EINT(CHNO) |
|
./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 |
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 |
224 |
TILE |
EMAXRT(CHNO) = ( SNOW(CHNO) + CAPAC(CHNO) + WSOI12 ) / DTSTEP |
|
./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 |
392 |
TILE |
U CAPAC, SNOW, SWET, RUNOFF, |
|
./pkg/fizhi/fizhi_lsm.F |
43 |
TILE |
& SWET1(NCH), SWET2(NCH), SWET3(NCH), CAPAC(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
446 |
TILE |
U TC, CAPAC, SNOW, SWET, RUNOFF, RUNSRF, |
|
./pkg/fizhi/fizhi_lsm.F |
467 |
TILE |
IF(CAPAC(ChNo).LT.1.E-10) CAPAC(CHNO) = 0.0 |
|
./pkg/fizhi/fizhi_lsm.F |
500 |
INTERC |
U TC, CAPAC, SNOW, SWET1, RUNOFF, RUNSRF, |
|
./pkg/fizhi/fizhi_lsm.F |
517 |
INTERC |
& WMAX(NLAY,NTYPS), TC(NCH), CSOIL(NCH), CAPAC(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 |
583 |
INTERC |
CAPAC(CHNO)=CAPAC(CHNO)+WATADD-THRU1-THRU2 |
|
./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 |
618 |
INTERC |
CAPAC(CHNO)=CAPAC(CHNO)+WATADD-THRU1-THRU2 |