| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_exf.F |
147 |
THSICE_GET_EXF |
_RL Ts2 |
|
./pkg/thsice/thsice_get_exf.F |
239 |
THSICE_GET_EXF |
Ts2 = Tsf*Tsf |
|
./pkg/thsice/thsice_get_exf.F |
263 |
THSICE_GET_EXF |
dEvdT(i,j) = ssq(i,j)*qsat_exp/Ts2 |
|
./pkg/thsice/thsice_get_exf.F |
264 |
THSICE_GET_EXF |
flwup = emiss*stefanBoltzmann*Ts2*Ts2 |
|
./pkg/thsice/thsice_get_exf.F |
265 |
THSICE_GET_EXF |
dflwupdT = emiss*stefanBoltzmann*Ts2*Tsf * 4. _d 0 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
146 |
BULKF_FORMULA_LAY |
Ts2 = Tsf*Tsf |
|
./pkg/bulk_force/bulkf_formula_lay.F |
240 |
BULKF_FORMULA_LAY |
dEvdT = tau*re*ssq*dEvdT/Ts2 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
246 |
BULKF_FORMULA_LAY |
flwupa = ocean_emissivity*stefan*Ts2*Ts2 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
247 |
BULKF_FORMULA_LAY |
dflwupdT= ocean_emissivity*stefan*Ts2*Tsf*4. _d 0 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
249 |
BULKF_FORMULA_LAY |
flwupa = snow_emissivity*stefan*Ts2*Ts2 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
250 |
BULKF_FORMULA_LAY |
dflwupdT = snow_emissivity*stefan*Ts2*Tsf*4. _d 0 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
252 |
BULKF_FORMULA_LAY |
flwupa = ice_emissivity*stefan*Ts2*Ts2 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
253 |
BULKF_FORMULA_LAY |
dflwupdT = ice_emissivity*stefan*Ts2*Tsf*4. _d 0 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
79 |
BULKF_FORMULA_LAY |
_RL Ts2 ! surface temperature square [K^2] |