| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_suflux_land.F |
128 |
SUFLUX_LAND |
Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_land.F |
129 |
SUFLUX_LAND |
Shf0(J) = CHL*DENVV(J)*Fstb0 |
|
./pkg/aim_v23/phy_suflux_land.F |
96 |
SUFLUX_LAND |
_RL Fstb0, dTstb, dFstb |
|
./pkg/aim_v23/phy_suflux_sice.F |
134 |
SUFLUX_SICE |
Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_sice.F |
135 |
SUFLUX_SICE |
Shf0(J) = CHS*DENVV(J)*Fstb0 |
|
./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 |
172 |
BULKF_FORMULA_AIM |
Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH |
|
./pkg/bulk_force/bulkf_formula_aim.F |
173 |
BULKF_FORMULA_AIM |
Shf0(J) = CHS*DENVV(J)*Fstb0 |