| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1023 |
FLUXES |
ESATNW = ESATTC(CHNO)+DESDTC(CHNO)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1130 |
VPDFAC |
I NCH, ITYP, ESATTC, EA, |
|
./pkg/fizhi/fizhi_lsm.F |
1142 |
VPDFAC |
_RL ESATTC(NCH), EA(NCH), VPDSTR(NCH) |
|
./pkg/fizhi/fizhi_lsm.F |
1238 |
SMFAC |
I NCH, ITYP, ESATTC, EA, PHR, SOILCO, |
|
./pkg/fizhi/fizhi_lsm.F |
1253 |
SMFAC |
_RL ESATTC(NCH), EA(NCH), PHR(NCH), SOILCO(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
1269 |
SMFAC |
DEF = ( ESATTC(ChNo) - EA(ChNo) ) * CONST |
|
./pkg/fizhi/fizhi_lsm.F |
1293 |
RSURFP |
I NCH, UM, U2FAC, Z2, RDC, WET, ESATTC, EA, |
|
./pkg/fizhi/fizhi_lsm.F |
1302 |
RSURFP |
& WET(NCH), ESATTC(NCH), EA(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
1316 |
RSURFP |
HESAT = ESATTC(CHNO) * MIN( 1. _d 0, WET(CHNO)*2. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
1318 |
RSURFP |
RSURF=RSURF*( 1. + (ESATTC(CHNO)-HESAT)/(HESAT-EA(CHNO)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
196 |
TILE |
ESATTC(CHNO) = QSATTC(CHNO) * PSUR(CHNO) / EPSILON |
|
./pkg/fizhi/fizhi_lsm.F |
254 |
TILE |
I NCH, ITYP, ESATTC, EA, |
|
./pkg/fizhi/fizhi_lsm.F |
271 |
TILE |
I NCH, ITYP, ESATTC, EA, PHR, SOILCO, RCUN, |
|
./pkg/fizhi/fizhi_lsm.F |
279 |
TILE |
I ESATTC, EA, |
|
./pkg/fizhi/fizhi_lsm.F |
298 |
TILE |
ESATTX(ChNo) = ESATTC(ChNo) + DESDTC(CHNO) * DELTC |
|
./pkg/fizhi/fizhi_lsm.F |
324 |
TILE |
CALL VPDFAC (NCH, ITYP, ESATTC, EAX, VPDSTX) |
|
./pkg/fizhi/fizhi_lsm.F |
326 |
TILE |
I NCH, ITYP, ESATTC, EAX, PHR, SOILCO, RCUN, |
|
./pkg/fizhi/fizhi_lsm.F |
332 |
TILE |
I ESATTC, EAX, |
|
./pkg/fizhi/fizhi_lsm.F |
367 |
TILE |
I NCH, ITYP, DTSTEP, ESATTC, DESDTC, ALHX, |
|
./pkg/fizhi/fizhi_lsm.F |
73 |
TILE |
_RL DEDEA(nch), DHSDEA(nch), EM(nch), ESATTC(nch), |
|
./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 |
910 |
FLUXES |
EPLANT = CONST * (ESATTC(ChNo) - EA(ChNo)) / RC(ChNo) |
|
./pkg/fizhi/fizhi_lsm.F |
945 |
FLUXES |
F0 = ESATTC(ChNo) - EA(ChNo) |