| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1411 |
WUPDAT |
O EINT, ESOI, EVEG, ESNO, RUNSRF, FWSOIL |
|
./pkg/fizhi/fizhi_lsm.F |
1429 |
WUPDAT |
_RL EINT(NCH), ESOI(NCH), EVEG(NCH), ESNO(NCH) |
|
./pkg/fizhi/fizhi_lsm.F |
1444 |
WUPDAT |
EINT(CHNO)=EIRFRC(CHNO)*EVAP(CHNO)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1445 |
WUPDAT |
EGRO = EVAP(CHNO)*DTSTEP - ESNO(CHNO) - EINT(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1450 |
WUPDAT |
EINT(CHNO)=EINT(CHNO)+(ESNO(CHNO)-SNOW(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
1453 |
WUPDAT |
EGROI=EGRO+EINT(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1459 |
WUPDAT |
EINT(CHNO)=EGROI-EGRO |
|
./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 |
1465 |
WUPDAT |
EINT(CHNO)=EINT(CHNO)+EGRO-WTOTAL |
|
./pkg/fizhi/fizhi_lsm.F |
14 |
TILE |
O EINT, ESOI, EVEG, ESNO, SMELT, HLATN, |
|
./pkg/fizhi/fizhi_lsm.F |
1502 |
WUPDAT |
EINT(CHNO)=(1.-ESNFRC(CHNO))*EVAP(CHNO)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1514 |
WUPDAT |
CAPAC(ChNo) = CAPAC(ChNo) - EINT(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
393 |
TILE |
O EINT, ESOI, EVEG, ESNO, RUNSRF,FWSOIL |
|
./pkg/fizhi/fizhi_lsm.F |
45 |
TILE |
_RL EINT(NCH), ESOI(NCH), EVEG(NCH), ESNO(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
471 |
TILE |
EINT(CHNO) = EINT(CHNO) * ALHE / DTSTEP |