File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lsm.F |
1004 |
FLUXES |
IF( EVAP(CHNO) .GT. EMAXRT(CHNO) ) THEN |
./pkg/fizhi/fizhi_lsm.F |
1008 |
FLUXES |
& (Q0 + ALHX(CHNO)*(ETURB(ChNo)-EMAXRT(CHNO)) - DHSDEA(CHNO)*DEA) |
./pkg/fizhi/fizhi_lsm.F |
1015 |
FLUXES |
EVAP(CHNO) = EMAXRT(CHNO) |
./pkg/fizhi/fizhi_lsm.F |
224 |
TILE |
EMAXRT(CHNO) = ( SNOW(CHNO) + CAPAC(CHNO) + WSOI12 ) / DTSTEP |
./pkg/fizhi/fizhi_lsm.F |
371 |
TILE |
I TM, EM, CSOIL, PSUR, EMAXRT, VGWMAX, |
./pkg/fizhi/fizhi_lsm.F |
65 |
TILE |
_RL EMAXRT(nch), VGWMAX(NLAY,NTYPS), FTEMP(nch), |
./pkg/fizhi/fizhi_lsm.F |
826 |
FLUXES |
I TM, EM, CSOIL, PSUR, EMAXRT, WMAX, |
./pkg/fizhi/fizhi_lsm.F |
849 |
FLUXES |
& EMAXRT(NCH), WMAX(NLAY,NTYPS), |