| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1007 |
FLUXES |
DTC = |
|
./pkg/fizhi/fizhi_lsm.F |
1011 |
FLUXES |
STRDG1(ChNo)=DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1017 |
FLUXES |
& DHSDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1023 |
FLUXES |
ESATNW = ESATTC(CHNO)+DESDTC(CHNO)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1041 |
FLUXES |
DTC = ( Q0 + ALHX(CHNO)*ETURB(ChNo) - DHSDEA(CHNO)*DEA ) / |
|
./pkg/fizhi/fizhi_lsm.F |
1044 |
FLUXES |
STRDG1(ChNo)=DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1050 |
FLUXES |
& DHSDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1052 |
FLUXES |
IF(TC(CHNO)+DTC .GT. TF .AND. SNOW(CHNO).GT.0.) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1055 |
FLUXES |
DTC = ( Q0X + ALHX(CHNO)*ETURB(ChNo) - DHSDEA(CHNO)*DEA ) / |
|
./pkg/fizhi/fizhi_lsm.F |
1057 |
FLUXES |
IF(TC(CHNO)+DTC .LT. TF) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1058 |
FLUXES |
DTC=TF-TC(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1059 |
FLUXES |
Q0SNOW=A11*DTC+A12*DEA |
|
./pkg/fizhi/fizhi_lsm.F |
1063 |
FLUXES |
& DHSDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1073 |
FLUXES |
DTC = ( Q0 - A12*DEA ) / A11 |
|
./pkg/fizhi/fizhi_lsm.F |
1075 |
FLUXES |
STRDG1(ChNo)=DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1079 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1081 |
FLUXES |
& DHSDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1082 |
FLUXES |
IF(TC(CHNO)+DTC .GT. TF .AND. SNOW(CHNO).GT.0.) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1086 |
FLUXES |
DTC = ( Q0X - A12*DEA ) / A11 |
|
./pkg/fizhi/fizhi_lsm.F |
1087 |
FLUXES |
IF(TC(CHNO)+DTC .LT. TF) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1088 |
FLUXES |
DTC=TF-TC(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1089 |
FLUXES |
Q0SNOW=A11*DTC+A12*DEA |
|
./pkg/fizhi/fizhi_lsm.F |
1092 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1094 |
FLUXES |
& DHSDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1100 |
FLUXES |
TC(ChNo) = TC(ChNo) + DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1106 |
FLUXES |
HLWUP(CHNO) = HLWTC + DHLWTC*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
860 |
FLUXES |
& DEA, DTC, SNLEFT, Q0X, Q0SNOW, |
|
./pkg/fizhi/fizhi_lsm.F |
931 |
FLUXES |
DTC = ( Q0 - A12*DEA ) / A11 |
|
./pkg/fizhi/fizhi_lsm.F |
933 |
FLUXES |
STRDG1(ChNo)=DTC |
|
./pkg/fizhi/fizhi_lsm.F |
937 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
939 |
FLUXES |
& DHSDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
947 |
FLUXES |
DTC = ( Q0 - A12*DEA ) / A11 |
|
./pkg/fizhi/fizhi_lsm.F |
949 |
FLUXES |
STRDG1(ChNo)=DTC |
|
./pkg/fizhi/fizhi_lsm.F |
953 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
955 |
FLUXES |
& DHSDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
965 |
FLUXES |
IF(TC(CHNO)+DTC .GT. TF .AND. SNLEFT.GT.0.) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
974 |
FLUXES |
DTC = ( Q0X - A12*DEA ) / A11 |
|
./pkg/fizhi/fizhi_lsm.F |
980 |
FLUXES |
IF(TC(CHNO)+DTC .LT. TF) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
981 |
FLUXES |
DTC=TF-TC(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
982 |
FLUXES |
DEA=(F0-A21*DTC)/A22 |
|
./pkg/fizhi/fizhi_lsm.F |
983 |
FLUXES |
Q0SNOW=A11*DTC+A12*DEA |
|
./pkg/fizhi/fizhi_lsm.F |
987 |
FLUXES |
STRDG1(ChNo)=DTC |
|
./pkg/fizhi/fizhi_lsm.F |
992 |
FLUXES |
& DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
994 |
FLUXES |
& DHSDTC(ChNo)*DTC |