| 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 |
135 |
SUFLUX_SICE |
dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab |
|
./pkg/aim_v23/phy_suflux_sice.F |
136 |
SUFLUX_SICE |
dFstb = RDTH*MIN(1. _d 0, MAX(0. _d 0, dTstb*0.5 _d 0)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
96 |
SUFLUX_SICE |
_RL ALHevp, Fstb0, dTstb, dFstb |