| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_land_impl.F |
128 |
AIM_LAND_IMPL |
SHF (J) = SHF (J) + dTsurf(J)*dShf(J) |
|
./pkg/aim_v23/aim_land_impl.F |
14 |
AIM_LAND_IMPL |
I Shf0, dShf, Evp0, dEvp, Slr0, dSlr, |
|
./pkg/aim_v23/aim_land_impl.F |
69 |
AIM_LAND_IMPL |
_RL Shf0(NGP), dShf(NGP), Evp0(NGP), dEvp(NGP) |
|
./pkg/aim_v23/aim_sice_impl.F |
107 |
AIM_SICE_IMPL |
SHF (J) = SHF (J) + dTsurf(J)*dShf(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
14 |
AIM_SICE_IMPL |
I Shf0, dShf, Evp0, dEvp, Slr0, dSlr, |
|
./pkg/aim_v23/aim_sice_impl.F |
67 |
AIM_SICE_IMPL |
_RL Shf0(NGP), dShf(NGP), Evp0(NGP), dEvp(NGP) |
|
./pkg/aim_v23/phy_driver.F |
125 |
PHY_DRIVER |
_RL Shf0(NGP), dShf(NGP), Evp0(NGP), dEvp(NGP) |
|
./pkg/aim_v23/phy_driver.F |
306 |
PHY_DRIVER |
O Shf0, dShf, Evp0, dEvp, Slr0, dSlr, sFlx, |
|
./pkg/aim_v23/phy_driver.F |
312 |
PHY_DRIVER |
I Shf0, dShf, Evp0, dEvp, Slr0, dSlr, |
|
./pkg/aim_v23/phy_driver.F |
334 |
PHY_DRIVER |
O Shf0, dShf, Evp0, dEvp, Slr0, dSlr, sFlx, |
|
./pkg/aim_v23/phy_driver.F |
340 |
PHY_DRIVER |
I Shf0, dShf, Evp0, dEvp, Slr0, dSlr, |
|
./pkg/aim_v23/phy_suflux_land.F |
132 |
SUFLUX_LAND |
dShf(J) = CHL*DENVV(J)*dFstb |
|
./pkg/aim_v23/phy_suflux_land.F |
14 |
SUFLUX_LAND |
O Shf0, dShf, Evp0, dEvp, Slr0, dSlr, sFlx, |
|
./pkg/aim_v23/phy_suflux_land.F |
151 |
SUFLUX_LAND |
& + dShf(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
168 |
SUFLUX_LAND |
& + dShf(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
189 |
SUFLUX_LAND |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_suflux_land.F |
190 |
SUFLUX_LAND |
& + dShf(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
191 |
SUFLUX_LAND |
dShf(J) = MAX( dShf(J), 0. _d 0 ) |
|
./pkg/aim_v23/phy_suflux_land.F |
195 |
SUFLUX_LAND |
dEvp(J) = MAX( dEvp(J), -dShf(J)/ALHC ) |
|
./pkg/aim_v23/phy_suflux_land.F |
201 |
SUFLUX_LAND |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_suflux_land.F |
222 |
SUFLUX_LAND |
& - ( dShf(J) + ALHC*dEvp(J) ) |
|
./pkg/aim_v23/phy_suflux_land.F |
84 |
SUFLUX_LAND |
_RL Shf0(NGP), dShf(NGP), Evp0(NGP), dEvp(NGP) |
|
./pkg/aim_v23/phy_suflux_sice.F |
138 |
SUFLUX_SICE |
dShf(J) = CHS*DENVV(J)*dFstb |
|
./pkg/aim_v23/phy_suflux_sice.F |
14 |
SUFLUX_SICE |
O Shf0, dShf, Evp0, dEvp, Slr0, dSlr, sFlx, |
|
./pkg/aim_v23/phy_suflux_sice.F |
159 |
SUFLUX_SICE |
& + dShf(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
176 |
SUFLUX_SICE |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_suflux_sice.F |
177 |
SUFLUX_SICE |
& + dShf(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
178 |
SUFLUX_SICE |
dShf(J) = MAX( dShf(J), 0. _d 0 ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
182 |
SUFLUX_SICE |
dEvp(J) = MAX( dEvp(J), -dShf(J)/ALHevp ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
188 |
SUFLUX_SICE |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_suflux_sice.F |
209 |
SUFLUX_SICE |
& - ( dShf(J) + ALHevp*dEvp(J) ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
84 |
SUFLUX_SICE |
_RL Shf0(NGP), dShf(NGP), Evp0(NGP), dEvp(NGP) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
115 |
BULKF_FORMULA_AIM |
_RL Shf0(NGP), dShf(NGP), Evp0(NGP) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
176 |
BULKF_FORMULA_AIM |
dShf(J) = CHS*DENVV(J)*dFstb |
|
./pkg/bulk_force/bulkf_formula_aim.F |
193 |
BULKF_FORMULA_AIM |
& + dShf(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
210 |
BULKF_FORMULA_AIM |
dShf(J) = CDENVV(J)*CP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
211 |
BULKF_FORMULA_AIM |
& + dShf(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
212 |
BULKF_FORMULA_AIM |
dShf(J) = MAX( dShf(J), 0. _d 0 ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
216 |
BULKF_FORMULA_AIM |
dEvp(J) = MAX( dEvp(J), -dShf(J)/ALHevp ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
222 |
BULKF_FORMULA_AIM |
dShf(J) = CDENVV(J)*CP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
243 |
BULKF_FORMULA_AIM |
& - ( dShf(J) + ALHevp*dEvp(J) ) |