File |
Line number |
Procedure |
Code |
./pkg/land/land_impl_temp.F |
11 |
LAND_IMPL_TEMP |
I dTskin, sFlx, |
./pkg/land/land_impl_temp.F |
137 |
LAND_IMPL_TEMP |
bLoc = -sFlx(i,j,2) |
./pkg/land/land_impl_temp.F |
138 |
LAND_IMPL_TEMP |
fLoc = sFlx(i,j,1)+bLoc*tSurf |
./pkg/land/land_impl_temp.F |
154 |
LAND_IMPL_TEMP |
& 'LAND_IMPL_TEMP: 0 , sFlx=', 0,(sFlx(i,j,k),k=0,2) |
./pkg/land/land_impl_temp.F |
284 |
LAND_IMPL_TEMP |
& 1, sFlx(i,j,0), fLoc, fLoc-bLoc*tSurf |
./pkg/land/land_impl_temp.F |
287 |
LAND_IMPL_TEMP |
fLoc = sFlx(i,j,0) |
./pkg/land/land_impl_temp.F |
49 |
LAND_IMPL_TEMP |
_RL dTskin(sNx,sNy), sFlx(sNx,sNy,0:2) |
./pkg/thsice/thsice_get_bulkf.F |
104 |
THSICE_GET_BULKF |
O dEvp, sFlx, |
./pkg/thsice/thsice_get_bulkf.F |
107 |
THSICE_GET_BULKF |
flxExcSw(i,j) = sFlx(1) |
./pkg/thsice/thsice_get_bulkf.F |
108 |
THSICE_GET_BULKF |
dFlxdT(i,j) = sFlx(2) |
./pkg/thsice/thsice_get_bulkf.F |
81 |
THSICE_GET_BULKF |
_RL dEvp(1), sFlx(0:2) |
./pkg/thsice/thsice_impl_temp.F |
105 |
THSICE_IMPL_TEMP |
I snowHeight(siLo,sjLo,bi,bj), tFrzOce, sFlx, |
./pkg/thsice/thsice_impl_temp.F |
45 |
THSICE_IMPL_TEMP |
_RL sFlx (sNx,sNy,0:2) |
./pkg/thsice/thsice_impl_temp.F |
9 |
THSICE_IMPL_TEMP |
I netSW, sFlx, |
./pkg/aim_v23/aim_land_impl.F |
105 |
AIM_LAND_IMPL |
sFlx(I2,0) = sFlx(I2,0) - ALHF*Evp0(I2) |
./pkg/aim_v23/aim_land_impl.F |
106 |
AIM_LAND_IMPL |
sFlx(I2,1) = sFlx(I2,1) - ALHF*EVAP(I2) |
./pkg/aim_v23/aim_land_impl.F |
107 |
AIM_LAND_IMPL |
sFlx(I2,2) = sFlx(I2,2) - ALHF*dEvp(I2) |
./pkg/aim_v23/aim_land_impl.F |
116 |
AIM_LAND_IMPL |
I dTskin, sFlx, |
./pkg/aim_v23/aim_land_impl.F |
140 |
AIM_LAND_IMPL |
land_HeatFlx(i,j,bi,bj) = sFlx(I2,0) |
./pkg/aim_v23/aim_land_impl.F |
142 |
AIM_LAND_IMPL |
land_HeatFlx(i,j,bi,bj) = sFlx(I2,1)+dTsurf(I2)*sFlx(I2,2) |
./pkg/aim_v23/aim_land_impl.F |
15 |
AIM_LAND_IMPL |
U sFlx, |
./pkg/aim_v23/aim_land_impl.F |
70 |
AIM_LAND_IMPL |
_RL Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2) |
./pkg/aim_v23/aim_sice_impl.F |
13 |
AIM_SICE_IMPL |
I FMASK, netSW, sFlx, |
./pkg/aim_v23/aim_sice_impl.F |
66 |
AIM_SICE_IMPL |
_RL FMASK(NGP), netSW(NGP), sFlx(NGP,0:2) |
./pkg/aim_v23/aim_sice_impl.F |
93 |
AIM_SICE_IMPL |
I netSW, sFlx, |
./pkg/aim_v23/phy_driver.F |
126 |
PHY_DRIVER |
_RL Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2) |
./pkg/aim_v23/phy_driver.F |
306 |
PHY_DRIVER |
O Shf0, dShf, Evp0, dEvp, Slr0, dSlr, sFlx, |
./pkg/aim_v23/phy_driver.F |
313 |
PHY_DRIVER |
U sFlx, STL1(1,myThid), |
./pkg/aim_v23/phy_driver.F |
334 |
PHY_DRIVER |
O Shf0, dShf, Evp0, dEvp, Slr0, dSlr, sFlx, |
./pkg/aim_v23/phy_driver.F |
339 |
PHY_DRIVER |
I FMASK1(1,3,myThid), SSR(1,3,myThid), sFlx, |
./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 |
217 |
SUFLUX_LAND |
sFlx(J,0)= ( SSR(J) + SLRD(J) - EMISloc*Slr0(J) ) |
./pkg/aim_v23/phy_suflux_land.F |
219 |
SUFLUX_LAND |
sFlx(J,1)= ( SSR(J) + SLRD(J) - EMISloc*SLRU(J) ) |
./pkg/aim_v23/phy_suflux_land.F |
221 |
SUFLUX_LAND |
sFlx(J,2)= - EMISloc*dSlr(J) |
./pkg/aim_v23/phy_suflux_land.F |
85 |
SUFLUX_LAND |
_RL Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2) |
./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 |
204 |
SUFLUX_SICE |
sFlx(J,0)= ( SLRD(J) - EMISloc*Slr0(J) ) |
./pkg/aim_v23/phy_suflux_sice.F |
206 |
SUFLUX_SICE |
sFlx(J,1)= ( SLRD(J) - EMISloc*SLRU(J) ) |
./pkg/aim_v23/phy_suflux_sice.F |
208 |
SUFLUX_SICE |
sFlx(J,2)= -EMISloc*dSlr(J) |
./pkg/aim_v23/phy_suflux_sice.F |
85 |
SUFLUX_SICE |
_RL Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2) |
./pkg/atm2d/ATM2D_VARS.h |
213 |
NO PROCEDURE |
COMMON/ICE_FLUXES_PASS/ netSW, sFlx, dTsurf, pass_prcAtm, snowPrc |
./pkg/atm2d/ATM2D_VARS.h |
215 |
NO PROCEDURE |
_RL sFlx(sNx,sNy,0:2) ! input variables to seaice temp solver: |
./pkg/atm2d/forward_step_atm2d.F |
232 |
FORWARD_STEP_ATM2D |
CALL THSICE_IMPL_TEMP(netSW, sFlx, dTsurf, 1,1, |
./pkg/atm2d/pass_thsice_fluxes.F |
41 |
PASS_THSICE_FLUXES |
sFlx(i,j,0)= -qneti_2D(i,j) -netSW(i,j) + |
./pkg/atm2d/pass_thsice_fluxes.F |
43 |
PASS_THSICE_FLUXES |
sFlx(i,j,1)= -qneti_2D(i,j) -netSW(i,j) |
./pkg/atm2d/pass_thsice_fluxes.F |
44 |
PASS_THSICE_FLUXES |
sFlx(i,j,2)= -dFdT_ice_2D(i,j) |
./pkg/bulk_force/bulkf_forcing.F |
102 |
BULKF_FORCING |
df0dT = sFlx(2) |
./pkg/bulk_force/bulkf_forcing.F |
69 |
BULKF_FORCING |
_RL dEvp(1), sFlx(0:2) |
./pkg/bulk_force/bulkf_forcing.F |
92 |
BULKF_FORCING |
O dEvp, sFlx, |
./pkg/bulk_force/bulkf_formula_aim.F |
13 |
BULKF_FORMULA_AIM |
O dEvp, sFlx, |
./pkg/bulk_force/bulkf_formula_aim.F |
238 |
BULKF_FORMULA_AIM |
sFlx(J,0)= ( SLRD(J) - EMISloc*Slr0(J) ) |
./pkg/bulk_force/bulkf_formula_aim.F |
240 |
BULKF_FORMULA_AIM |
sFlx(J,1)= ( SLRD(J) - EMISloc*SLRU(J) ) |
./pkg/bulk_force/bulkf_formula_aim.F |
242 |
BULKF_FORMULA_AIM |
sFlx(J,2)= -EMISloc*dSlr(J) |
./pkg/bulk_force/bulkf_formula_aim.F |
73 |
BULKF_FORMULA_AIM |
_RL dEvp(NGP), sFlx(NGP,0:2) |
./pkg/cheapaml/cheapaml_seaice.F |
103 |
CHEAPAML_SEAICE |
_RL sFlx (1:sNx,1:sNy,0:2) |
./pkg/cheapaml/cheapaml_seaice.F |
203 |
CHEAPAML_SEAICE |
sFlx(i,j,0) = lwDown(i,j)- xolw0(i,j) |
./pkg/cheapaml/cheapaml_seaice.F |
214 |
CHEAPAML_SEAICE |
sFlx(i,j,1) = lwDown(i,j)- xolw(i,j) |
./pkg/cheapaml/cheapaml_seaice.F |
216 |
CHEAPAML_SEAICE |
sFlx(i,j,2) = -dLwdTs(i,j) |
./pkg/cheapaml/cheapaml_seaice.F |
225 |
CHEAPAML_SEAICE |
I netSW, sFlx, |