File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lsm.F |
1083 |
FLUXES |
SNLEFT=SNOW(CHNO)-EVAP(CHNO)*DTSTEP*ESNFRC(CHNO) |
./pkg/fizhi/fizhi_lsm.F |
1409 |
WUPDAT |
I RX1, RX2,ESNFRC,EIRFRC, |
./pkg/fizhi/fizhi_lsm.F |
1428 |
WUPDAT |
& ESNFRC(NCH), EIRFRC(NCH) |
./pkg/fizhi/fizhi_lsm.F |
1443 |
WUPDAT |
ESNO(CHNO)=ESNFRC(CHNO)*EVAP(CHNO)*DTSTEP |
./pkg/fizhi/fizhi_lsm.F |
1502 |
WUPDAT |
EINT(CHNO)=(1.-ESNFRC(CHNO))*EVAP(CHNO)*DTSTEP |
./pkg/fizhi/fizhi_lsm.F |
1507 |
WUPDAT |
ESNO(CHNO)=ESNFRC(CHNO)*EVAP(CHNO)*DTSTEP |
./pkg/fizhi/fizhi_lsm.F |
360 |
TILE |
ESNFRC(CHNO)=EPFRC*SNWFRC(CHNO)/ |
./pkg/fizhi/fizhi_lsm.F |
363 |
TILE |
ALHX(CHNO) = (1.-ESNFRC(CHNO))*ALHE + ESNFRC(CHNO)*ALHS |
./pkg/fizhi/fizhi_lsm.F |
370 |
TILE |
I SWNET, HLWDWN, ALWRAD, BLWRAD, ESNFRC, |
./pkg/fizhi/fizhi_lsm.F |
391 |
TILE |
I RX1, RX2,ESNFRC,EIRFRC, |
./pkg/fizhi/fizhi_lsm.F |
401 |
TILE |
EADJST=(ESNO(CHNO)/DTSTEP) - ESNFRC(CHNO)*EVAP(CHNO) |
./pkg/fizhi/fizhi_lsm.F |
77 |
TILE |
& ESNFRC(nch), EIRFRC(nch), FCAN(nch), EPFRC, |
./pkg/fizhi/fizhi_lsm.F |
825 |
FLUXES |
I SWNET, HLWDWN, ALWRAD, BLWRAD, ESNFRC, |
./pkg/fizhi/fizhi_lsm.F |
850 |
FLUXES |
& TC(NCH), TD(NCH), EA(NCH), ESNFRC(NCH), |
./pkg/fizhi/fizhi_lsm.F |
964 |
FLUXES |
SNLEFT=SNOW(CHNO)-EVAP(CHNO)*DTSTEP*ESNFRC(CHNO) |