| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
101 |
NO PROCEDURE |
_RL sOceMxL(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 |
106 |
THSICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( sOceMxL,'SIsOcMxL', 0,1, 0,1,1,myThid ) |
|
./pkg/thsice/thsice_get_ocean.F |
97 |
THSICE_GET_OCEAN |
sOceMxL(i,j,bi,bj) = salt (i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_impl_temp.F |
85 |
THSICE_IMPL_TEMP |
tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_ini_vars.F |
89 |
THSICE_INI_VARS |
sOceMxL(i,j,bi,bj) = sMxL_default |
|
./pkg/thsice/thsice_output.F |
307 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_sOceMxL.', suff, sOceMxL, |
|
./pkg/thsice/thsice_output.F |
341 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'sOceMxL',sOceMxL,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
66 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, sOceMxL, 11, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
88 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sOceMxL',sOceMxL,myThid) |
|
./pkg/thsice/thsice_slab_ocean.F |
112 |
THSICE_SLAB_OCEAN |
oceTfreez = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
150 |
THSICE_SLAB_OCEAN |
CALL TIMEAVE_CUMULATE( ice_sMxL_Ave, sOceMxL, |
|
./pkg/thsice/thsice_slab_ocean.F |
83 |
THSICE_SLAB_OCEAN |
sOceMxL(i,j,bi,bj) = sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
98 |
THSICE_SLAB_OCEAN |
sOceMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_slab_ocean.F |
99 |
THSICE_SLAB_OCEAN |
& (sOceMxL(i,j,bi,bj) + dtFac*sMxL_default)*dtFacR |
|
./pkg/thsice/thsice_step_fwd.F |
208 |
THSICE_STEP_FWD |
tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
391 |
THSICE_STEP_FWD |
I sOceMxL(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
159 |
THSICE_STEP_TEMP |
tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_write_pickup.F |
102 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'sOceMxL',sOceMxL,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
69 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, sOceMxL, 11, myIter,myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
139 |
AIM_SICE2AIM |
sOceMxL(i,j,bi,bj) = sMxL_default |
|
./pkg/aim_v23/aim_sice2aim.F |
149 |
AIM_SICE2AIM |
& sOceMxL(1-OLx,1-OLy,bi,bj), |
|
./pkg/atm2d/norm_ocn_fluxes.F |
79 |
NORM_OCN_FLUXES |
& sOceMxL(i,j,1,1)*dtcouplo |
|
./pkg/atm_compon_interf/atm_apply_import.F |
112 |
ATM_APPLY_IMPORT |
sOceMxL(i,j,bi,bj) = SSSocn(i,j,bi,bj) |