| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1006 |
FLUXES |
DEA = EM(CHNO) - EA(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1024 |
FLUXES |
EANEW = EA(CHNO) + DEA |
|
./pkg/fizhi/fizhi_lsm.F |
1040 |
FLUXES |
DEA = EM(CHNO) - EA(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1071 |
FLUXES |
IF( CHOKE .AND. ABS(DEA) .GT. 0.5*EA(CHNO) ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1072 |
FLUXES |
DEA = SIGN(.5*EA(CHNO),DEA) |
|
./pkg/fizhi/fizhi_lsm.F |
1101 |
FLUXES |
EA(ChNo) = EA(ChNo) + DEA |
|
./pkg/fizhi/fizhi_lsm.F |
1112 |
FLUXES |
EA(CHNO) = MAX(EA(CHNO), 0.0 _d 0) |
|
./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 |
1317 |
RSURFP |
IF( EA(CHNO) .LT. HESAT ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1318 |
RSURFP |
RSURF=RSURF*( 1. + (ESATTC(CHNO)-HESAT)/(HESAT-EA(CHNO)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
195 |
TILE |
EA(CHNO) = QA(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 |
299 |
TILE |
EAX(ChNo) = EA(ChNo) + DELEA |
|
./pkg/fizhi/fizhi_lsm.F |
303 |
TILE |
CALL VPDFAC (NCH, ITYP, ESATTX, EA, VPDSTX) |
|
./pkg/fizhi/fizhi_lsm.F |
306 |
TILE |
I NCH, ITYP, ESATTX, EA, PHR, SOILCO, RCUN, |
|
./pkg/fizhi/fizhi_lsm.F |
312 |
TILE |
I ESATTX, EA, |
|
./pkg/fizhi/fizhi_lsm.F |
372 |
TILE |
U TC, TD, EA, SWET, SNOW, |
|
./pkg/fizhi/fizhi_lsm.F |
456 |
TILE |
QA(CHNO) = EA(CHNO) * EPSILON / PSUR(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
74 |
TILE |
& DESDTC(nch), EA(nch), RA(nch), ALHX(nch), |
|
./pkg/fizhi/fizhi_lsm.F |
827 |
FLUXES |
U TC, TD, EA, SWET1, SNOW, |
|
./pkg/fizhi/fizhi_lsm.F |
850 |
FLUXES |
& TC(NCH), TD(NCH), EA(NCH), ESNFRC(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) |