| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1053 |
FLUXES |
Q0X=Q0-ALHM*SNOW(CHNO)/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1054 |
FLUXES |
SMELT(CHNO)=SNOW(CHNO)/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1083 |
FLUXES |
SNLEFT=SNOW(CHNO)-EVAP(CHNO)*DTSTEP*ESNFRC(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1084 |
FLUXES |
Q0X=Q0-ALHM*SNLEFT/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1085 |
FLUXES |
SMELT(CHNO)=SNLEFT/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1104 |
FLUXES |
& DTSTEP * CDEEPS * (TC(ChNo) - TD(ChNo)) / |
|
./pkg/fizhi/fizhi_lsm.F |
1108 |
FLUXES |
SNOW(CHNO)=SNOW(CHNO)-SMELT(CHNO)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1407 |
WUPDAT |
I NCH, ITYP, DTSTEP, |
|
./pkg/fizhi/fizhi_lsm.F |
1430 |
WUPDAT |
_RL DTSTEP, EGRO, FWS, THRU, DEWRUN, |
|
./pkg/fizhi/fizhi_lsm.F |
1443 |
WUPDAT |
ESNO(CHNO)=ESNFRC(CHNO)*EVAP(CHNO)*DTSTEP |
|
./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 |
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 |
1541 |
WUPDAT |
RUNOFF(ChNo) = RUNOFF(ChNo) + DEWRUN/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1542 |
WUPDAT |
RUNSRF(ChNo) = RUNSRF(ChNo) + DEWRUN/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1544 |
WUPDAT |
FWSOIL(CHNO) = FWSOIL(CHNO) + (THRU-DEWRUN)/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1562 |
GWATER |
I DTSTEP, VGZDEX, VGSLOX, WETEQ1, WETEQ2, |
|
./pkg/fizhi/fizhi_lsm.F |
1581 |
GWATER |
& DTSTEP, SWET(nch,NLAY), |
|
./pkg/fizhi/fizhi_lsm.F |
1602 |
GWATER |
GWFLUX = 1000. * DTSTEP * AKAVE * DHDZ * FAREA |
|
./pkg/fizhi/fizhi_lsm.F |
1643 |
GWATER |
GWFLUX = 1000. * DTSTEP * AKAVE * DHDZ |
|
./pkg/fizhi/fizhi_lsm.F |
1672 |
GWATER |
GDRAIN(CHNO)=GWFLUX/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1678 |
GWATER |
GWFLUX = VGSLOX(ChNo) * AKLAY(ChNo,RECHLY) * 1000. * DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1690 |
GWATER |
RUNOFF (ChNo) = RUNOFF (ChNo) + GWFLUX/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
224 |
TILE |
EMAXRT(CHNO) = ( SNOW(CHNO) + CAPAC(CHNO) + WSOI12 ) / DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
34 |
TILE |
_RL DTSTEP, TRAINL(NCH), TRAINC(NCH), TSNOW(NCH), UM(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
367 |
TILE |
I NCH, ITYP, DTSTEP, ESATTC, DESDTC, ALHX, |
|
./pkg/fizhi/fizhi_lsm.F |
389 |
TILE |
I NCH, ITYP, DTSTEP, |
|
./pkg/fizhi/fizhi_lsm.F |
401 |
TILE |
EADJST=(ESNO(CHNO)/DTSTEP) - ESNFRC(CHNO)*EVAP(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
425 |
TILE |
I NCH, ITYP, VGWMAX, PHLAY, AKLAY, TC, DTSTEP, |
|
./pkg/fizhi/fizhi_lsm.F |
444 |
TILE |
I NCH, ITYP, DTSTEP, TRAINL, TRAINC, TSNOW, SATCAP, |
|
./pkg/fizhi/fizhi_lsm.F |
471 |
TILE |
EINT(CHNO) = EINT(CHNO) * ALHE / DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
472 |
TILE |
ESOI(CHNO) = ESOI(CHNO) * ALHE / DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
473 |
TILE |
EVEG(CHNO) = EVEG(CHNO) * ALHE / DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
474 |
TILE |
ESNO(CHNO) = ESNO(CHNO) * ALHS / DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
498 |
INTERC |
I NCH, ITYP, DTSTEP, TRAINL, TRAINC, |
|
./pkg/fizhi/fizhi_lsm.F |
520 |
INTERC |
_RL DTSTEP, SNOWM, WATADD, CAVAIL, THRUC, WRUNC, WRUNL, |
|
./pkg/fizhi/fizhi_lsm.F |
532 |
INTERC |
SNOW(ChNo) = SNOW(ChNo) + TSNOW(ChNo)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
544 |
INTERC |
SMELT(CHNO)=SMELT(CHNO)+SNOWM/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
567 |
INTERC |
WATADD = TRAINL(ChNo)*DTSTEP + SMELT(CHNO)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
602 |
INTERC |
WATADD = TRAINC(ChNo)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
662 |
INTERC |
RUNOFF(ChNo) = RUNOFF(ChNo) + (WRUNC+WRUNL)/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
663 |
INTERC |
RUNSRF(ChNo) = RUNSRF(ChNo) + (WRUNC+WRUNL)/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
664 |
INTERC |
FWSOIL(CHNO) = FWSOIL(CHNO) + (THRUC+THRUL-WRUNC-WRUNL)/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
6 |
TILE |
I NCH, DTSTEP, ITYP, TRAINL,TRAINC, TSNOW, UM, |
|
./pkg/fizhi/fizhi_lsm.F |
822 |
FLUXES |
I NCH, ITYP, DTSTEP, ESATTC, DESDTC, ALHX, |
|
./pkg/fizhi/fizhi_lsm.F |
843 |
FLUXES |
_RL DTSTEP, ESATTC(NCH), DESDTC(NCH), ALHX(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
880 |
FLUXES |
A11 = CSOIL(ChNo)/DTSTEP + |
|
./pkg/fizhi/fizhi_lsm.F |
964 |
FLUXES |
SNLEFT=SNOW(CHNO)-EVAP(CHNO)*DTSTEP*ESNFRC(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
970 |
FLUXES |
Q0X=Q0-ALHM*SNLEFT/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
971 |
FLUXES |
SMELT(CHNO)=SNLEFT/DTSTEP |