File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_main.F |
130 |
THSICE_MAIN |
flxSW (i,j) = 0. |
./pkg/thsice/thsice_main.F |
135 |
THSICE_MAIN |
flxSW (i,j) = solar(i,j,bi,bj) |
./pkg/thsice/thsice_main.F |
147 |
THSICE_MAIN |
U evpAtm, flxSW, |
./pkg/thsice/thsice_main.F |
151 |
THSICE_MAIN |
I evpAtm, flxSW, |
./pkg/thsice/thsice_main.F |
55 |
THSICE_MAIN |
_RL flxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/thsice/thsice_solve4temp.F |
11 |
THSICE_SOLVE4TEMP |
U flxSW, Tsf, qicen, |
./pkg/thsice/thsice_solve4temp.F |
140 |
THSICE_SOLVE4TEMP |
fswpen = flxSW * (1. _d 0 - frsnow) * i0 |
./pkg/thsice/thsice_solve4temp.F |
144 |
THSICE_SOLVE4TEMP |
fswdn = flxSW - fswpen |
./pkg/thsice/thsice_solve4temp.F |
291 |
THSICE_SOLVE4TEMP |
flxAtm = flxSW + flxExceptSw + df0dT*dTsf |
./pkg/thsice/thsice_solve4temp.F |
300 |
THSICE_SOLVE4TEMP |
flxSW = fswocn |
./pkg/thsice/thsice_solve4temp.F |
58 |
THSICE_SOLVE4TEMP |
_RL flxSW |
./pkg/thsice/thsice_impl_temp.F |
104 |
THSICE_IMPL_TEMP |
U flxSW, Tsf, qicen, |
./pkg/thsice/thsice_impl_temp.F |
109 |
THSICE_IMPL_TEMP |
Qsw(i,j,bi,bj) = -flxSW |
./pkg/thsice/thsice_impl_temp.F |
62 |
THSICE_IMPL_TEMP |
_RL flxSW |
./pkg/thsice/thsice_impl_temp.F |
92 |
THSICE_IMPL_TEMP |
flxSW = netSW(i,j) |
./pkg/thsice/thsice_step_fwd.F |
12 |
THSICE_STEP_FWD |
U evpAtm, flxSW, |
./pkg/thsice/thsice_step_fwd.F |
133 |
THSICE_STEP_FWD |
flxSW(i,j) = flxSW(i,j)*(1. _d 0 - albedo) |
./pkg/thsice/thsice_step_fwd.F |
137 |
THSICE_STEP_FWD |
U flxSW(i,j), Tsf, qicen, |
./pkg/thsice/thsice_step_fwd.F |
145 |
THSICE_STEP_FWD |
Qsw(i,j,bi,bj)=-icFrac*flxSW(i,j) +opFrac*Qsw(i,j,bi,bj) |
./pkg/thsice/thsice_step_fwd.F |
214 |
THSICE_STEP_FWD |
flx2oc = flxSW(i,j) |
./pkg/thsice/thsice_step_fwd.F |
354 |
THSICE_STEP_FWD |
flxSW (i,j) = flxAtm(i,j) |
./pkg/thsice/thsice_step_fwd.F |
55 |
THSICE_STEP_FWD |
_RL flxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/aim_v23/aim_do_physics.F |
141 |
AIM_DO_PHYSICS |
O prcAtm, evpAtm, flxSW, |
./pkg/aim_v23/aim_do_physics.F |
150 |
AIM_DO_PHYSICS |
U evpAtm, flxSW, |
./pkg/aim_v23/aim_do_physics.F |
158 |
AIM_DO_PHYSICS |
CALL THSICE_AVE( evpAtm, flxSW, |
./pkg/aim_v23/aim_do_physics.F |
69 |
AIM_DO_PHYSICS |
_RL flxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/aim_v23/aim_aim2sioce.F |
110 |
AIM_AIM2SIOCE |
flxSW(i,j) = Qsw(i,j,bi,bj) |
./pkg/aim_v23/aim_aim2sioce.F |
130 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = icFrac*flxSW(i,j) + opFrac*Qsw(i,j,bi,bj) |
./pkg/aim_v23/aim_aim2sioce.F |
14 |
AIM_AIM2SIOCE |
O prcAtm, evpAtm, flxSW, |
./pkg/aim_v23/aim_aim2sioce.F |
64 |
AIM_AIM2SIOCE |
_RL flxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |