| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_area_t.F |
140 |
EBM_AREA_T |
if ( CountmlS .NE. 0.) TmlS = TmlS/CountmlS + t_mlt |
|
./pkg/ebm/ebm_area_t.F |
141 |
EBM_AREA_T |
if ( CountmlN .NE. 0.) TmlN = TmlN/CountmlN + t_mlt |
|
./pkg/ebm/ebm_area_t.F |
142 |
EBM_AREA_T |
if ( CounttS .NE. 0.) TtS = TtS/CounttS + t_mlt |
|
./pkg/ebm/ebm_area_t.F |
143 |
EBM_AREA_T |
if ( CounttN .NE. 0.) TtN = TtN/CounttN + t_mlt |
|
./pkg/ebm/EBM.h |
38 |
NO PROCEDURE |
_RL t_mlt, lv, cp, rho_air |
|
./pkg/ebm/EBM.h |
39 |
NO PROCEDURE |
PARAMETER (t_mlt = 273.15, lv = 2.5e6, cp = 1004., rho_air = 1.27) |
|
./pkg/ebm/ebm_atmosphere.F |
234 |
EBM_ATMOSPHERE |
LW(j,bj) = LW0 + LW1*(T(j,bj)-t_mlt) |
|
./pkg/ebm/ebm_atmosphere.F |
96 |
EBM_ATMOSPHERE |
print *, 'SH', TmlS-t_mlt, TtS-t_mlt |
|
./pkg/ebm/ebm_atmosphere.F |
97 |
EBM_ATMOSPHERE |
print *, 'NH', TmlN-t_mlt, TtN-t_mlt |