| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_impl_temp.F |
44 |
THSICE_IMPL_TEMP |
_RL netSW (sNx,sNy) |
|
./pkg/thsice/thsice_impl_temp.F |
83 |
THSICE_IMPL_TEMP |
icFlxSW(i,j,bi,bj) = netSW(i,j) |
|
./pkg/thsice/thsice_impl_temp.F |
9 |
THSICE_IMPL_TEMP |
I netSW, sFlx, |
|
./pkg/thsice/thsice_solve4temp.F |
171 |
THSICE_SOLVE4TEMP |
_RL netSW |
|
./pkg/thsice/thsice_solve4temp.F |
532 |
THSICE_SOLVE4TEMP |
netSW = flxAtm(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
584 |
THSICE_SOLVE4TEMP |
& flxAtm(i,j), evpAtm(i,j), netSW, flxSW(i,j) |
|
./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/atm2d/ATM2D_VARS.h |
212 |
NO PROCEDURE |
COMMON/ICE_FLUXES_PASS/ netSW, sFlx, dTsurf, pass_prcAtm |
|
./pkg/atm2d/ATM2D_VARS.h |
213 |
NO PROCEDURE |
_RL netSW(sNx,sNy) ! net shortwave flux to ice (W/m2) (+= down) |
|
./pkg/atm2d/forward_step_atm2d.F |
179 |
FORWARD_STEP_ATM2D |
CALL THSICE_IMPL_TEMP(netSW, sFlx, dTsurf, 1,1, |
|
./pkg/atm2d/pass_thsice_fluxes.F |
40 |
PASS_THSICE_FLUXES |
netSW(i,j) = solarinc_2D(i,j)*(1. _d 0 - siceAlb(i,j,1,1)) ! convert to netSW |
|
./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) |