File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lsm.F |
1006 |
FLUXES |
DEA = EM(CHNO) - EA(CHNO) |
./pkg/fizhi/fizhi_lsm.F |
1008 |
FLUXES |
& (Q0 + ALHX(CHNO)*(ETURB(ChNo)-EMAXRT(CHNO)) - DHSDEA(CHNO)*DEA) |
./pkg/fizhi/fizhi_lsm.F |
1012 |
FLUXES |
STRDG2(ChNo)=DEA |
./pkg/fizhi/fizhi_lsm.F |
1016 |
FLUXES |
SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA + |
./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 |
1041 |
FLUXES |
DTC = ( Q0 + ALHX(CHNO)*ETURB(ChNo) - DHSDEA(CHNO)*DEA ) / |
./pkg/fizhi/fizhi_lsm.F |
1045 |
FLUXES |
STRDG2(ChNo)=DEA |
./pkg/fizhi/fizhi_lsm.F |
1049 |
FLUXES |
SHFLUX(ChNo) = HSTURB(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 |
1059 |
FLUXES |
Q0SNOW=A11*DTC+A12*DEA |
./pkg/fizhi/fizhi_lsm.F |
1062 |
FLUXES |
SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA + |
./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 |
1073 |
FLUXES |
DTC = ( Q0 - A12*DEA ) / A11 |
./pkg/fizhi/fizhi_lsm.F |
1076 |
FLUXES |
STRDG2(ChNo)=DEA |
./pkg/fizhi/fizhi_lsm.F |
1077 |
FLUXES |
STRDG8(ChNo)=-A12*DEA/A11 |
./pkg/fizhi/fizhi_lsm.F |
1079 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
./pkg/fizhi/fizhi_lsm.F |
1080 |
FLUXES |
SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA + |
./pkg/fizhi/fizhi_lsm.F |
1086 |
FLUXES |
DTC = ( Q0X - A12*DEA ) / A11 |
./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 |
1093 |
FLUXES |
SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA + |
./pkg/fizhi/fizhi_lsm.F |
1101 |
FLUXES |
EA(ChNo) = EA(ChNo) + DEA |
./pkg/fizhi/fizhi_lsm.F |
860 |
FLUXES |
& DEA, DTC, SNLEFT, Q0X, Q0SNOW, |
./pkg/fizhi/fizhi_lsm.F |
930 |
FLUXES |
DEA = ( Q0*A21 - A11*F0 ) / ( DETERM * A11*A22 ) |
./pkg/fizhi/fizhi_lsm.F |
931 |
FLUXES |
DTC = ( Q0 - A12*DEA ) / A11 |
./pkg/fizhi/fizhi_lsm.F |
934 |
FLUXES |
STRDG2(ChNo)=DEA |
./pkg/fizhi/fizhi_lsm.F |
935 |
FLUXES |
STRDG8(ChNo)=-A12*DEA/A11 |
./pkg/fizhi/fizhi_lsm.F |
937 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
./pkg/fizhi/fizhi_lsm.F |
938 |
FLUXES |
SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA + |
./pkg/fizhi/fizhi_lsm.F |
946 |
FLUXES |
DEA = ( Q0*A21 - A11*F0 ) / ( A12*A21 - A11*A22 ) |
./pkg/fizhi/fizhi_lsm.F |
947 |
FLUXES |
DTC = ( Q0 - A12*DEA ) / A11 |
./pkg/fizhi/fizhi_lsm.F |
950 |
FLUXES |
STRDG2(ChNo)=DEA |
./pkg/fizhi/fizhi_lsm.F |
951 |
FLUXES |
STRDG8(ChNo)=-A12*DEA/A11 |
./pkg/fizhi/fizhi_lsm.F |
953 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
./pkg/fizhi/fizhi_lsm.F |
954 |
FLUXES |
SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA + |
./pkg/fizhi/fizhi_lsm.F |
973 |
FLUXES |
DEA = ( Q0X*A21 - A11*F0 ) / DENOM |
./pkg/fizhi/fizhi_lsm.F |
974 |
FLUXES |
DTC = ( Q0X - A12*DEA ) / A11 |
./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 |
988 |
FLUXES |
STRDG2(ChNo)=DEA |
./pkg/fizhi/fizhi_lsm.F |
989 |
FLUXES |
STRDG8(ChNo)=-A12*DEA/A11 |
./pkg/fizhi/fizhi_lsm.F |
991 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + |
./pkg/fizhi/fizhi_lsm.F |
993 |
FLUXES |
SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA + |