| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1241 |
SMFAC |
O RC |
|
./pkg/fizhi/fizhi_lsm.F |
1256 |
SMFAC |
& VGPH1X(NCH), VGPH2X(NCH), VGRPLX(NCH), RC(NCH) |
|
./pkg/fizhi/fizhi_lsm.F |
1277 |
SMFAC |
RC(ChNo) = RCUNTD / RSTFAC |
|
./pkg/fizhi/fizhi_lsm.F |
1294 |
RSURFP |
U RC, |
|
./pkg/fizhi/fizhi_lsm.F |
1303 |
RSURFP |
& RC(NCH), RX1(NCH), RX2(NCH) |
|
./pkg/fizhi/fizhi_lsm.F |
1324 |
RSURFP |
RX1(CHNO)=RC(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1327 |
RSURFP |
RC(ChNo) = RC(CHNO) * RSURF / ( RC(ChNo) + RSURF ) |
|
./pkg/fizhi/fizhi_lsm.F |
1345 |
RCANOP |
U RC |
|
./pkg/fizhi/fizhi_lsm.F |
1357 |
RCANOP |
& RC(NCH), SNWFRC(NCH), POTFRC(NCH) |
|
./pkg/fizhi/fizhi_lsm.F |
1372 |
RCANOP |
RC(ChNo)=RC(ChNo)*(1.-POTFRC(CHNO))/ |
|
./pkg/fizhi/fizhi_lsm.F |
1373 |
RCANOP |
& ( 1.+POTFRC(CHNO)*RC(ChNo)/RA(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1381 |
RCANOP |
RC(ChNo)=RC(ChNo)*(1.-SNWFRC(CHNO))/ |
|
./pkg/fizhi/fizhi_lsm.F |
1382 |
RCANOP |
& ( 1.+SNWFRC(CHNO)*RC(ChNo)/RA(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1390 |
RCANOP |
IF ( RAMPFC .GE. 0. ) RC(CHNO) = RC(CHNO)*(1.-RAMPFC) |
|
./pkg/fizhi/fizhi_lsm.F |
1391 |
RCANOP |
IF ( RAMPFC .GT. 1. ) RC(ChNo) = 0. |
|
./pkg/fizhi/fizhi_lsm.F |
1408 |
WUPDAT |
I EVAP, SATCAP, VGWMAX, TC, RA, RC, |
|
./pkg/fizhi/fizhi_lsm.F |
1424 |
WUPDAT |
& TC(NCH), RA(NCH), RC(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
274 |
TILE |
O RC |
|
./pkg/fizhi/fizhi_lsm.F |
280 |
TILE |
U RC, |
|
./pkg/fizhi/fizhi_lsm.F |
287 |
TILE |
U RC |
|
./pkg/fizhi/fizhi_lsm.F |
320 |
TILE |
DRCDTC(ChNo) = (RCX(ChNo) - RC(ChNo)) / DELTC |
|
./pkg/fizhi/fizhi_lsm.F |
340 |
TILE |
DRCDEA(ChNo) = (RCX(ChNo) - RC(ChNo)) / DELEA |
|
./pkg/fizhi/fizhi_lsm.F |
369 |
TILE |
I RC, DRCDEA, DRCDTC, |
|
./pkg/fizhi/fizhi_lsm.F |
390 |
TILE |
I EVAP, SATCAP, VGWMAX, TC, RA, RC, |
|
./pkg/fizhi/fizhi_lsm.F |
476 |
TILE |
DEFCIT = EVAP(CHNO) * ( RC(CHNO) + RA(CHNO) ) |
|
./pkg/fizhi/fizhi_lsm.F |
66 |
TILE |
& PHR(nch), SOILCO(nch), RC(nch), |
|
./pkg/fizhi/fizhi_lsm.F |
824 |
FLUXES |
I RC, DRCDEA, DRCDTC, |
|
./pkg/fizhi/fizhi_lsm.F |
846 |
FLUXES |
& RC(NCH), DRCDEA(NCH), DRCDTC(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
909 |
FLUXES |
IF( RC(CHNO) .GT. 0.) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
910 |
FLUXES |
EPLANT = CONST * (ESATTC(ChNo) - EA(ChNo)) / RC(ChNo) |
|
./pkg/fizhi/fizhi_lsm.F |
923 |
FLUXES |
A21 = -DEDTC(ChNo)*RC(ChNo) + |
|
./pkg/fizhi/fizhi_lsm.F |
925 |
FLUXES |
A22 = -( RC(ChNo)*DEDEA(ChNo) + |
|
./pkg/fizhi/fizhi_lsm.F |
928 |
FLUXES |
F0 = RC(ChNo) * (ETURB(ChNo) - EPLANT) |
|
./pkg/frazil/frazil_calc_rhs.F |
72 |
FRAZIL_CALC_RHS |
pLoc = ABS(RC(k)) |