| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1009 |
FLUXES |
& / ( A11 - ALHX(CHNO)*DEDTC(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1042 |
FLUXES |
& ( A11 - ALHX(CHNO)*DEDTC(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1056 |
FLUXES |
& ( A11 - ALHX(CHNO)*DEDTC(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1059 |
FLUXES |
Q0SNOW=A11*DTC+A12*DEA |
|
./pkg/fizhi/fizhi_lsm.F |
1073 |
FLUXES |
DTC = ( Q0 - A12*DEA ) / A11 |
|
./pkg/fizhi/fizhi_lsm.F |
1077 |
FLUXES |
STRDG8(ChNo)=-A12*DEA/A11 |
|
./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 |
859 |
FLUXES |
& EPLANT, A11, A12, A21, A22, F0, |
|
./pkg/fizhi/fizhi_lsm.F |
880 |
FLUXES |
A11 = CSOIL(ChNo)/DTSTEP + |
|
./pkg/fizhi/fizhi_lsm.F |
893 |
FLUXES |
STRDG3(ChNo)=Q0/A11 |
|
./pkg/fizhi/fizhi_lsm.F |
894 |
FLUXES |
STRDG4(ChNo)=(SWNET(ChNo)+HLWDWN(ChNo)-HLWTC)/A11 |
|
./pkg/fizhi/fizhi_lsm.F |
895 |
FLUXES |
STRDG5(ChNo)=HSTURB(ChNo)/A11 |
|
./pkg/fizhi/fizhi_lsm.F |
896 |
FLUXES |
STRDG6(ChNo)=ALHX(CHNO)*ETURB(ChNo)/A11 |
|
./pkg/fizhi/fizhi_lsm.F |
897 |
FLUXES |
STRDG7(ChNo)=CDEEPS*(TC(ChNo) - TD(ChNo))/A11 |
|
./pkg/fizhi/fizhi_lsm.F |
898 |
FLUXES |
STRDG9(ChNo)=A11 |
|
./pkg/fizhi/fizhi_lsm.F |
929 |
FLUXES |
DETERM = MIN( A12*A21/(A11*A22) - 1., -0.1 _d 0) |
|
./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 |
935 |
FLUXES |
STRDG8(ChNo)=-A12*DEA/A11 |
|
./pkg/fizhi/fizhi_lsm.F |
940 |
FLUXES |
DENOM = DETERM * A11*A22 |
|
./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 |
951 |
FLUXES |
STRDG8(ChNo)=-A12*DEA/A11 |
|
./pkg/fizhi/fizhi_lsm.F |
956 |
FLUXES |
DENOM = A12 * A21 - A11*A22 |
|
./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 |
983 |
FLUXES |
Q0SNOW=A11*DTC+A12*DEA |
|
./pkg/fizhi/fizhi_lsm.F |
989 |
FLUXES |
STRDG8(ChNo)=-A12*DEA/A11 |