File |
Line number |
Procedure |
Code |
./pkg/aim_v23/phy_suflux_land.F |
130 |
SUFLUX_LAND |
dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab |
./pkg/aim_v23/phy_suflux_land.F |
131 |
SUFLUX_LAND |
dFstb = RDTH*MIN(1. _d 0, MAX(0. _d 0, dTstb*0.5 _d 0)) |
./pkg/aim_v23/phy_suflux_land.F |
96 |
SUFLUX_LAND |
_RL Fstb0, dTstb, dFstb |
./pkg/aim_v23/phy_suflux_sice.F |
136 |
SUFLUX_SICE |
dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab |
./pkg/aim_v23/phy_suflux_sice.F |
137 |
SUFLUX_SICE |
dFstb = RDTH*MIN(1. _d 0, MAX(0. _d 0, dTstb*0.5 _d 0)) |
./pkg/aim_v23/phy_suflux_sice.F |
97 |
SUFLUX_SICE |
_RL ALHevp, Fstb0, dTstb, dFstb |
./pkg/bulk_force/bulkf_formula_aim.F |
119 |
BULKF_FORMULA_AIM |
_RL ALHevp, Fstb0, dTstb, dFstb |
./pkg/bulk_force/bulkf_formula_aim.F |
174 |
BULKF_FORMULA_AIM |
dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab |
./pkg/bulk_force/bulkf_formula_aim.F |
175 |
BULKF_FORMULA_AIM |
dFstb = RDTH*MIN(1. _d 0, MAX(0. _d 0, dTstb*0.5 _d 0)) |