| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1008 |
FLUXES |
& (Q0 + ALHX(CHNO)*(ETURB(ChNo)-EMAXRT(CHNO)) - DHSDEA(CHNO)*DEA) |
|
./pkg/fizhi/fizhi_lsm.F |
1041 |
FLUXES |
DTC = ( Q0 + ALHX(CHNO)*ETURB(ChNo) - DHSDEA(CHNO)*DEA ) / |
|
./pkg/fizhi/fizhi_lsm.F |
1055 |
FLUXES |
DTC = ( Q0X + ALHX(CHNO)*ETURB(ChNo) - DHSDEA(CHNO)*DEA ) / |
|
./pkg/fizhi/fizhi_lsm.F |
1079 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1092 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1343 |
RCANOP |
I NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
1356 |
RCANOP |
_RL CAPAC(NCH), SNOW(NCH), SATCAP(NCH), RA(NCH), ETURB(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
1389 |
RCANOP |
RAMPFC=ETURB(CHNO)/ETCRIT |
|
./pkg/fizhi/fizhi_lsm.F |
285 |
TILE |
I NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
316 |
TILE |
CALL RCANOP (NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
336 |
TILE |
CALL RCANOP (NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC, |
|
./pkg/fizhi/fizhi_lsm.F |
35 |
TILE |
& ETURB(NCH), DEDQA(NCH), HSTURB(NCH), DHSDTC(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
368 |
TILE |
I ETURB, DEDEA, DEDTC, HSTURB, DHSDEA, DHSDTC, |
|
./pkg/fizhi/fizhi_lsm.F |
7 |
TILE |
I ETURB, DEDQA, DEDTC, HSTURB, DHSDQA, DHSDTC, |
|
./pkg/fizhi/fizhi_lsm.F |
823 |
FLUXES |
I ETURB, DEDEA, DEDTC, HSTURB, DHSDEA, DHSDTC, |
|
./pkg/fizhi/fizhi_lsm.F |
844 |
FLUXES |
& ETURB(NCH), DEDEA(NCH), DEDTC(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
890 |
FLUXES |
& ALHX(CHNO) * ETURB(ChNo) - |
|
./pkg/fizhi/fizhi_lsm.F |
896 |
FLUXES |
STRDG6(ChNo)=ALHX(CHNO)*ETURB(ChNo)/A11 |
|
./pkg/fizhi/fizhi_lsm.F |
911 |
FLUXES |
IF(EPLANT*ETURB(ChNo).GE.0.) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
912 |
FLUXES |
EHARMN = 2.*EPLANT*ETURB(CHNO) / (EPLANT + ETURB(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
928 |
FLUXES |
F0 = RC(ChNo) * (ETURB(ChNo) - EPLANT) |
|
./pkg/fizhi/fizhi_lsm.F |
937 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
953 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
991 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + |