| 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 |
1443 |
WUPDAT |
ESNO(CHNO)=ESNFRC(CHNO)*EVAP(CHNO)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1445 |
WUPDAT |
EGRO = EVAP(CHNO)*DTSTEP - ESNO(CHNO) - EINT(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1449 |
WUPDAT |
IF(ESNO(CHNO) .GT. SNOW(CHNO)) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1450 |
WUPDAT |
EINT(CHNO)=EINT(CHNO)+(ESNO(CHNO)-SNOW(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
1451 |
WUPDAT |
ESNO(CHNO)=SNOW(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1455 |
WUPDAT |
ESNO(CHNO)=ESNO(CHNO)+EGROI-(CAPAC(CHNO)+WTOTAL) |
|
./pkg/fizhi/fizhi_lsm.F |
14 |
TILE |
O EINT, ESOI, EVEG, ESNO, SMELT, HLATN, |
|
./pkg/fizhi/fizhi_lsm.F |
1507 |
WUPDAT |
ESNO(CHNO)=ESNFRC(CHNO)*EVAP(CHNO)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1513 |
WUPDAT |
SNOW(ChNo) = SNOW(ChNo) - ESNO(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
393 |
TILE |
O EINT, ESOI, EVEG, ESNO, RUNSRF,FWSOIL |
|
./pkg/fizhi/fizhi_lsm.F |
401 |
TILE |
EADJST=(ESNO(CHNO)/DTSTEP) - ESNFRC(CHNO)*EVAP(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
45 |
TILE |
_RL EINT(NCH), ESOI(NCH), EVEG(NCH), ESNO(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
474 |
TILE |
ESNO(CHNO) = ESNO(CHNO) * ALHS / DTSTEP |