File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lsm.F |
1052 |
FLUXES |
IF(TC(CHNO)+DTC .GT. TF .AND. SNOW(CHNO).GT.0.) THEN |
./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 |
1082 |
FLUXES |
IF(TC(CHNO)+DTC .GT. TF .AND. SNOW(CHNO).GT.0.) THEN |
./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 |
1623 |
GWATER |
TFM2=TF-2. |
./pkg/fizhi/fizhi_lsm.F |
534 |
INTERC |
IF( SNOW(CHNO).GT.0. .AND. TC(CHNO).GT.TF ) THEN |
./pkg/fizhi/fizhi_lsm.F |
536 |
INTERC |
& MAX( 0. _d 0, (TC(ChNo)-TF)*CSOIL(ChNo)/ALHM ) ) |
./pkg/fizhi/fizhi_lsm.F |
541 |
INTERC |
TC(CHNO)=TF |
./pkg/fizhi/fizhi_lsm.F |
965 |
FLUXES |
IF(TC(CHNO)+DTC .GT. TF .AND. SNLEFT.GT.0.) THEN |
./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/sibber.h |
14 |
NO PROCEDURE |
_RL ALHE, ALHS, ALHM, TF, STEFAN, RGAS, SHW, SHI, RHOW, GRAV |
./pkg/fizhi/sibber.h |
23 |
NO PROCEDURE |
PARAMETER (TF = 273.16) |