| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
100 |
NO PROCEDURE |
_RL tOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/THSICE_VARS.h |
97 |
NO PROCEDURE |
& hOceMxL, tOceMxL, sOceMxL, v2ocMxL |
|
./pkg/thsice/thsice_diagnostics_state.F |
105 |
THSICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( tOceMxL,'SItOcMxL', 0,1, 0,1,1,myThid ) |
|
./pkg/thsice/thsice_get_ocean.F |
96 |
THSICE_GET_OCEAN |
tOceMxL(i,j,bi,bj) = theta(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_ini_vars.F |
88 |
THSICE_INI_VARS |
tOceMxL(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
164 |
THSICE_MAIN |
I iceMask, tOceMxL, |
|
./pkg/thsice/thsice_main.F |
173 |
THSICE_MAIN |
I iceMask, tOceMxL, |
|
./pkg/thsice/thsice_output.F |
305 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_tOceMxL.', suff, tOceMxL, |
|
./pkg/thsice/thsice_output.F |
340 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'tOceMxL',tOceMxL,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
65 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, tOceMxL, 10, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
87 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'tOceMxL',tOceMxL,myThid) |
|
./pkg/thsice/thsice_slab_ocean.F |
117 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_slab_ocean.F |
118 |
THSICE_SLAB_OCEAN |
& (tOceMxL(i,j,bi,bj) + dtFac*locTemp)*dtFacR |
|
./pkg/thsice/thsice_slab_ocean.F |
129 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
140 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) - dTsurf(i,j) |
|
./pkg/thsice/thsice_slab_ocean.F |
148 |
THSICE_SLAB_OCEAN |
CALL TIMEAVE_CUMULATE( ice_tMxL_Ave, tOceMxL, |
|
./pkg/thsice/thsice_slab_ocean.F |
80 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
81 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
210 |
THSICE_STEP_FWD |
frzmltMxL(i,j) = ( tFrzOce(i,j)-tOceMxL(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_step_fwd.F |
223 |
THSICE_STEP_FWD |
& tOceMxL(i,j,bi,bj), tFrzOce(i,j), |
|
./pkg/thsice/thsice_step_fwd.F |
243 |
THSICE_STEP_FWD |
I tOceMxL(siLo,sjLo,bi,bj), v2ocMxL(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
334 |
THSICE_STEP_FWD |
I tOceMxL(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
379 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_write_pickup.F |
101 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'tOceMxL',tOceMxL,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
68 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tOceMxL, 10, myIter,myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
138 |
AIM_SICE2AIM |
tOceMxL(i,j,bi,bj) = aimTsoce(i,j)-celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
146 |
AIM_SICE2AIM |
& tOceMxL(1-OLx,1-OLy,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
157 |
AIM_SICE2AIM |
aimTsoce(i,j) = tOceMxL(i,j,bi,bj)+celsius2K |
|
./pkg/atm2d/norm_ocn_fluxes.F |
77 |
NORM_OCN_FLUXES |
& tOceMxL(i,j,1,1)*dtcouplo |
|
./pkg/atm_compon_interf/atm_apply_import.F |
101 |
ATM_APPLY_IMPORT |
tOceMxL(i,j,bi,bj) = SSTocn(i,j,bi,bj) |