| File |
Line number |
Procedure |
Code |
|
./model/inc/DYNVARS.h |
35 |
NO PROCEDURE |
& etaN, |
|
./model/inc/DYNVARS.h |
41 |
NO PROCEDURE |
& etaN, |
|
./model/inc/DYNVARS.h |
46 |
NO PROCEDURE |
_RL etaN (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
58 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(etaN, 'ETAN ',0, 1,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
73 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL(etaN,tmpFac,2, |
|
./model/src/do_the_model_io.F |
64 |
DO_THE_MODEL_IO |
CALL PLOT_FIELD_XYRL( etaN , 'Current etaN ' , |
|
./model/src/integr_continuity.F |
114 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./model/src/integr_continuity.F |
156 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
162 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
170 |
INTEGR_CONTINUITY |
IF ( useOBCS ) CALL OBCS_APPLY_ETA( bi, bj, etaN, myThid ) |
|
./model/src/ini_dynvars.F |
86 |
INI_DYNVARS |
etaN(I,J,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
98 |
CD_CODE_SCHEME |
& ab15*( etaN(i,j,bi,bj)*Bo_surf(i,j,bi,bj) ) |
|
./model/src/update_etah.F |
67 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/update_etah.F |
74 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
45 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. +fac*(fCori(i,j,bi,bj)**2) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
53 |
INI_PSURF |
CALL READ_FLD_XY_RL( pSurfInitFile, ' ', etaN, 0, myThid ) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
57 |
INI_PSURF |
_EXCH_XY_R8(etaN, myThid) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
65 |
INI_PSURF |
etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj) |
|
./verification/rotating_tank/code/checkpoint.F |
125 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL', 1,etaN,13*Nr+1,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
164 |
READ_CHECKPOINT |
_EXCH_XY_R8 (etaN, myThid ) |
|
./verification/rotating_tank/code/checkpoint.F |
291 |
WRITE_CHECKPOINT |
CALL WRITE_REC_XY_RL ('etaN', etaN, 1,myIter, myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
325 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,etaN,13*Nr+1, |
|
./verification/rotating_tank/code/checkpoint.F |
96 |
READ_CHECKPOINT |
CALL READ_REC_XY_RL ('etaN', etaN, 1,myIter, myThid) |
|
./model/src/ini_psurf.F |
55 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_psurf.F |
63 |
INI_PSURF |
CALL READ_FLD_XY_RL( pSurfInitFile, ' ', etaN, 0, myThid ) |
|
./model/src/ini_psurf.F |
67 |
INI_PSURF |
_EXCH_XY_R8(etaN, myThid) |
|
./model/src/ini_psurf.F |
75 |
INI_PSURF |
etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj) |
|
./model/src/ini_psurf.F |
90 |
INI_PSURF |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/ini_psurf.F |
91 |
INI_PSURF |
etaHnm1(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/dynamics.F |
350 |
DYNAMICS |
I etaN, |
|
./model/src/checkpoint.F |
127 |
READ_CHECKPOINT |
CALL READ_REC_XY_RL ( 'etaN', etaN, 1,myIter,myThid) |
|
./model/src/checkpoint.F |
162 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL', 1,etaN,12*Nr+1,myThid) |
|
./model/src/checkpoint.F |
208 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL', 1,etaN, nj*Nr+1,myThid) |
|
./model/src/checkpoint.F |
248 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'Eta',etaN, myThid) |
|
./model/src/checkpoint.F |
304 |
READ_CHECKPOINT |
_EXCH_XY_R8 (etaN, myThid ) |
|
./model/src/checkpoint.F |
498 |
WRITE_CHECKPOINT_NOW |
CALL WRITE_REC_XY_RL ( 'etaN', etaN, 1,myIter,myThid) |
|
./model/src/checkpoint.F |
549 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,etaN, nj*Nr+1, |
|
./model/src/checkpoint.F |
610 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'Eta', etaN, myThid) |
|
./model/src/momentum_correction_step.F |
183 |
MOMENTUM_CORRECTION_STEP |
& _EXCH_XY_R8( etaN , myThid ) |
|
./model/src/momentum_correction_step.F |
96 |
MOMENTUM_CORRECTION_STEP |
I etaN, |
|
./model/src/diags_phi_hyd.F |
58 |
DIAGS_PHI_HYD |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
121 |
SOLVE_FOR_PRESSURE |
etaNm1(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
123 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
210 |
SOLVE_FOR_PRESSURE |
& *( etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
214 |
SOLVE_FOR_PRESSURE |
& *( etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
235 |
SOLVE_FOR_PRESSURE |
& * etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
334 |
SOLVE_FOR_PRESSURE |
etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj)*cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
392 |
SOLVE_FOR_PRESSURE |
& +freeSurfFac*etaN(i,j,bi,bj)/deltaTfreesurf |
|
./model/src/solve_for_pressure.F |
409 |
SOLVE_FOR_PRESSURE |
& +( tmpFac*etaN(i,j,bi,bj)/deltaTfreesurf |
|
./model/src/solve_for_pressure.F |
508 |
SOLVE_FOR_PRESSURE |
etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
519 |
SOLVE_FOR_PRESSURE |
etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj) |
|
./model/src/write_state.F |
108 |
WRITE_STATE |
CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid) |
|
./model/src/write_state.F |
131 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid) |
|
./model/src/write_state.F |
176 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'Eta', etaN, myThid) |
|
./model/src/diags_phi_rlow.F |
129 |
DIAGS_PHI_RLOW |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/the_correction_step.F |
84 |
THE_CORRECTION_STEP |
I etaN, |
|
./pkg/aim_compon_interf/atm_store_atmslp.F |
55 |
ATM_STORE_ATMSLP |
& + etaN(i,j,bi,bj)*cplTimeFraction |
|
./pkg/timeave/timeave_statvars.F |
105 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(etatave, etaN, 1 , DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
113 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(Eta2tave, etaN,etaN, 1, 0, |
|
./pkg/monitor/mon_ke.F |
91 |
MON_KE |
& *etaN(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
95 |
MON_KE |
& + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
80 |
MON_VORT3 |
& + tmpFac*(etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./pkg/sbo/sbo_calc.F |
230 |
SBO_CALC |
dradius = etaN(I,J,bi,bj) * maskC(I,J,Kn0,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
205 |
COST_SSH |
etaN(i,j,bi,bj)=offset+psmean(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
210 |
COST_SSH |
_EXCH_XY_R8( etaN, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
376 |
CTRL_MAP_INI_ECCO |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
456 |
CTRL_MAP_INI_ECCO |
_EXCH_XY_R8( etaN, mythid ) |
|
./pkg/ctrl/ctrl_map_ini.F |
461 |
CTRL_MAP_INI |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
464 |
CTRL_MAP_INI |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
559 |
CTRL_MAP_INI |
_EXCH_XY_R8( etaN, mythid ) |
|
./pkg/seaice/seaice_dynsolver.F |
177 |
SEAICE_DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |