| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
58 |
NO PROCEDURE |
& icFlxSW, icFlxAtm, icFrwAtm, |
|
./pkg/thsice/THSICE_VARS.h |
69 |
NO PROCEDURE |
_RL icFlxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_get_ocean.F |
101 |
THSICE_GET_OCEAN |
icFlxSW (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_impl_temp.F |
106 |
THSICE_IMPL_TEMP |
U icFlxSW(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
83 |
THSICE_IMPL_TEMP |
icFlxSW(i,j,bi,bj) = netSW(i,j) |
|
./pkg/thsice/thsice_ini_vars.F |
74 |
THSICE_INI_VARS |
icFlxSW (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
167 |
THSICE_MAIN |
O icFlxSW(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_main.F |
176 |
THSICE_MAIN |
O icFlxSW(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
213 |
THSICE_STEP_FWD |
flx2oc(i,j) = icFlxSW(i,j,bi,bj) + qPrcRnO(i,j) |
|
./pkg/thsice/thsice_step_temp.F |
157 |
THSICE_STEP_TEMP |
icFlxSW(i,j,bi,bj) = icFlxSW(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
180 |
THSICE_STEP_TEMP |
U icFlxSW(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
194 |
THSICE_STEP_TEMP |
& - icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
153 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/atm2d/sum_thsice_out.F |
43 |
SUM_THSICE_OUT |
& + icFlxSW(i,j,1,1)*iceMask(i,j,1,1) |
|
./pkg/atm2d/sum_thsice_out.F |
45 |
SUM_THSICE_OUT |
icFlxSW(i,j,1,1)= 0. _d 0 |
|
./pkg/cheapaml/cheapaml_seaice.F |
233 |
CHEAPAML_SEAICE |
sw2oce (i,j) = icFlxSW(i,j,bi,bj) |