File |
Line number |
Procedure |
Code |
./model/inc/FFIELDS.h |
101 |
NO PROCEDURE |
COMMON /FFIELDS_sIceLoad/ sIceLoad |
./model/inc/FFIELDS.h |
115 |
NO PROCEDURE |
_RS sIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/ecco/ecco_phys.F |
135 |
ECCO_PHYS |
& +sIceLoad(i,j,bi,bj)*sIceLoadFac |
./model/src/diags_oceanic_surf_flux.F |
92 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_FILL_RS( sIceLoad,'sIceLoad',0,1,0,1,1,myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
174 |
OCN_APPLY_IMPORT |
IF ( useImportSIce ) _EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
76 |
OCN_APPLY_IMPORT |
sIceLoad(i,j,bi,bj) = seaIceMass(i,j,bi,bj) |
./model/src/external_forcing_surf.F |
363 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
./pkg/sbo/sbo_calc.F |
234 |
SBO_CALC |
& sIceLoad(i,j,bi,bj)*darea |
./pkg/sbo/sbo_calc.F |
256 |
SBO_CALC |
& sIceLoad(i,j,bi,bj) + |
./pkg/sbo/sbo_calc.F |
331 |
SBO_CALC |
& sIceLoad(i,j,bi,bj)*darea |
./pkg/sbo/sbo_calc.F |
369 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
./pkg/sbo/sbo_calc.F |
374 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
./pkg/sbo/sbo_calc.F |
377 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
./pkg/seaice/dynsolver.F |
180 |
DYNSOLVER |
& +sIceLoad(i,j,bi,bj)*gravity |
./pkg/seaice/seaice_dynsolver.F |
219 |
SEAICE_DYNSOLVER |
& +sIceLoad(i,j,bi,bj)*gravity |
./pkg/seaice/seaice_growth.F |
2465 |
SEAICE_GROWTH |
sIceLoad(i,j,bi,bj) = tmpscal2 |
./pkg/seaice/seaice_init_varia.F |
688 |
SEAICE_INIT_VARIA |
sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce |
./pkg/seaice/seaice_model.F |
248 |
SEAICE_MODEL |
& _EXCH_XY_RS( sIceLoad, myThid ) |
./model/src/ini_ffields.F |
58 |
INI_FFIELDS |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
./pkg/thsice/thsice_do_advect.F |
115 |
THSICE_DO_ADVECT |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
./pkg/thsice/thsice_do_advect.F |
131 |
THSICE_DO_ADVECT |
& _EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/thsice/thsice_ini_vars.F |
179 |
THSICE_INI_VARS |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
./pkg/thsice/thsice_main.F |
230 |
THSICE_MAIN |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
./pkg/thsice/thsice_main.F |
265 |
THSICE_MAIN |
& _EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/thsice/thsice_main.F |
273 |
THSICE_MAIN |
_EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/thsice/thsice_step_fwd.F |
416 |
THSICE_STEP_FWD |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
./pkg/thsice/thsice_step_fwd.F |
420 |
THSICE_STEP_FWD |
pass_sIceLoad(i,j)=sIceLoad(i,j,bi,bj) |
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
101 |
NO PROCEDURE |
COMMON /FFIELDS_sIceLoad/ sIceLoad |
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
115 |
NO PROCEDURE |
_RS sIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
366 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
58 |
INI_FORCING |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
101 |
NO PROCEDURE |
COMMON /FFIELDS_sIceLoad/ sIceLoad |
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
115 |
NO PROCEDURE |
_RS sIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
366 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
58 |
INI_FORCING |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
./pkg/atm2d/put_ocnvars.F |
90 |
PUT_OCNVARS |
sIceLoad(i,j,1,1) = pass_sIceLoad(i,j) |
./pkg/atm2d/put_ocnvars.F |
92 |
PUT_OCNVARS |
_EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/ecco/cost_averagesfields.F |
228 |
COST_AVERAGESFIELDS |
& +sIceLoad(i,j,bi,bj)*recip_rhoConst |