| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
58 |
NO PROCEDURE |
& icFlxSW, icFlxAtm, icFrwAtm, |
|
./pkg/thsice/THSICE_VARS.h |
70 |
NO PROCEDURE |
_RL icFlxAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_ave.F |
130 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(icFlxAtm,'SIflxAtm',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
90 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE( ice_flxAtm_Ave, icFlxAtm, |
|
./pkg/thsice/thsice_check_conserv.F |
62 |
THSICE_CHECK_CONSERV |
flxAtm = icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
100 |
THSICE_GET_OCEAN |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_impl_temp.F |
110 |
THSICE_IMPL_TEMP |
O icFlxAtm(siLo,sjLo,bi,bj), icFrwAtm(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_ini_vars.F |
75 |
THSICE_INI_VARS |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_output.F |
299 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_flxAtm.',suff,icFlxAtm, |
|
./pkg/thsice/thsice_step_fwd.F |
174 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
228 |
THSICE_STEP_FWD |
& iceFrac(i,j), icFlxAtm(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
288 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = icFrac*icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
310 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = -Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
313 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_temp.F |
112 |
THSICE_STEP_TEMP |
icFlxAtm(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_step_temp.F |
184 |
THSICE_STEP_TEMP |
O icFlxAtm(siLo,sjLo,bi,bj), icFrwAtm(siLo,sjLo,bi,bj), |
|
./pkg/cheapaml/cheapaml_seaice.F |
257 |
CHEAPAML_SEAICE |
icFlxAtm(i,j,bi,bj) = netSW(i,j) |