Symbol Description Uses
etaN free-surface r-anomaly (r unit) at current time level 76


File Line number Procedure Code
./pkg/flt/flt_traj.F 151 FLT_TRAJ 
              CALL FLT_BILINEAR2D(ix,jy,pp,etaN,     0,bi,bj,myThid)
./pkg/flt/flt_up.F 140 FLT_UP 
             CALL FLT_BILINEAR2D(ix,jy,pp,etaN,0,bi,bj,myThid)
./pkg/monitor/mon_ke.F 123 MON_KE 
     &                      *etaN(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/monitor/mon_ke.F 127 MON_KE 
     &            + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 86 MON_VORT3 
     &          + tmpFac*(etaN(i,j,bi,bj)-etaH(i,j,bi,bj))
./pkg/monitor/monitor.F 108 MONITOR 
        CALL MON_WRITESTATS_RL(  1, etaN, '_eta',
./model/src/diags_phi_hyd.F 58 DIAGS_PHI_HYD 
     &            + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./model/src/diags_phi_rlow.F 149 DIAGS_PHI_RLOW 
     &            + Bo_surf(i,j,bi,bj)*etaN(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/seaice/dynsolver.F 163 DYNSOLVER 
            phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 176 SEAICE_DYNSOLVER 
            phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./model/src/do_the_model_io.F 65 DO_THE_MODEL_IO 
          CALL PLOT_FIELD_XYRL( etaN  , 'Current etaN  ',
./model/src/dynamics.F 363 DYNAMICS 
     I         etaN,
./pkg/timeave/timeave_statvars.F 114 TIMEAVE_STATVARS 
      CALL TIMEAVE_CUMULATE(etatave,  etaN,  1 , DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 122 TIMEAVE_STATVARS 
      CALL TIMEAVE_CUMUL_2V(Eta2tave, etaN,etaN, 1,  0,
./verification/OpenAD/code_oad_all/write_state.F 108 WRITE_STATE 
          CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid)
./verification/OpenAD/code_oad_all/write_state.F 131 WRITE_STATE 
          CALL WRITE_FLD_XY_RL('Eta.',suff,etaNv,myIter,myThid)
./verification/OpenAD/code_oad_all/write_state.F 176 WRITE_STATE 
          CALL MNC_CW_RL_W(pf,'state',0,0,'Eta', etaN, myThid)
./model/src/ini_dynvars.F 89 INI_DYNVARS 
          etaN(I,J,bi,bj)=0. _d 0
./model/src/ini_psurf.F 55 INI_PSURF 
          etaN(I,J,bi,bj) = 0. _d 0
./model/src/ini_psurf.F 62 INI_PSURF 
       CALL READ_FLD_XY_RL( pSurfInitFile, ' ', etaN, 0, myThid )
./model/src/ini_psurf.F 64 INI_PSURF 
       _EXCH_XY_RL(etaN, myThid)
./model/src/ini_psurf.F 73 INI_PSURF 
          etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj)
./model/src/ini_psurf.F 88 INI_PSURF 
          etaH(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/ini_psurf.F 89 INI_PSURF 
          etaHnm1(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/integr_continuity.F 131 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj))
./model/src/integr_continuity.F 184 INTEGR_CONTINUITY 
           etaN(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/integr_continuity.F 190 INTEGR_CONTINUITY 
           etaN(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/integr_continuity.F 198 INTEGR_CONTINUITY 
       IF ( useOBCS ) CALL OBCS_APPLY_ETA( bi, bj, etaN, myThid )
./model/src/momentum_correction_step.F 187 MOMENTUM_CORRECTION_STEP 
     & _EXCH_XY_RL( etaN , myThid )
./model/src/momentum_correction_step.F 95 MOMENTUM_CORRECTION_STEP 
     I       etaN,
./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_RL(etaN, myThid)
./verification/solid-body.cs-32x32x1/code/ini_psurf.F 65 INI_PSURF 
          etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj)
./model/src/post_cg3d.F 112 POST_CG3D 
     &                  ( etaH(i,j,bi,bj)-etaN(i,j,bi,bj)
./model/src/post_cg3d.F 148 POST_CG3D 
            etaN(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/pre_cg3d.F 105 PRE_CG3D 
               tmpSurf = ( tmpSurf*( etaN(i,j,bi,bj)-etaH(i,j,bi,bj) )
./model/src/pre_cg3d.F 111 PRE_CG3D 
               tmpSurf = etaN(i,j,bi,bj)-etaH(i,j,bi,bj)
./model/src/pre_cg3d.F 130 PRE_CG3D 
     &                    *( etaN(i,j,bi,bj) - etaH(i,j,bi,bj) )
./model/src/pre_cg3d.F 156 PRE_CG3D 
     &              +freeSurfFac*etaN(i,j,bi,bj)/deltaTfreesurf
./model/src/pre_cg3d.F 213 PRE_CG3D 
     &       +( tmpFac*etaN(i,j,bi,bj)/deltaTfreesurf
./model/src/read_pickup.F 176 READ_PICKUP 
          CALL READ_REC_3D_RL( fn, fp,  1, etaN,
./model/src/read_pickup.F 224 READ_PICKUP 
          CALL READ_REC_3D_RL( fn,fp,1, etaN, nj*Nr+1, myIter,myThid )
./model/src/read_pickup.F 390 READ_PICKUP 
          CALL READ_MFLDS_3D_RL( 'EtaN    ', etaN,
./model/src/read_pickup.F 441 READ_PICKUP 
        CALL MNC_CW_RL_R('D',fn,0,0,'Eta',etaN, myThid)
./model/src/read_pickup.F 495 READ_PICKUP 
      CALL EXCH_XY_RL( etaN, myThid )
./model/src/solve_for_pressure.F 126 SOLVE_FOR_PRESSURE 
          etaNm1(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 128 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 195 SOLVE_FOR_PRESSURE 
     &         *( etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 200 SOLVE_FOR_PRESSURE 
     &         *( etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 226 SOLVE_FOR_PRESSURE 
     &         * etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 347 SOLVE_FOR_PRESSURE 
          etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj)*cg2d_x(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)
./model/src/write_pickup.F 269 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, 1 , etaN,   nj, myIter, myThid )
./model/src/write_pickup.F 343 WRITE_PICKUP 
        CALL MNC_CW_RL_W('D',fn,0,0,'Eta', etaN, myThid)
./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)
./pkg/aim_compon_interf/atm_store_atmslp.F 55 ATM_STORE_ATMSLP 
     &                 + etaN(i,j,bi,bj)*cplTimeFraction
./pkg/cd_code/cd_code_scheme.F 102 CD_CODE_SCHEME 
     &          *( ab15*etaN(i,j,bi,bj) + ab05*etaNm1(i,j,bi,bj) )
./pkg/cd_code/cd_code_scheme.F 98 CD_CODE_SCHEME 
     &   ab15*(  etaN(i,j,bi,bj)*Bo_surf(i,j,bi,bj) )
./pkg/ctrl/ctrl_map_ini.F 504 CTRL_MAP_INI 
              etaN(i,j,bi,bj) = etaN(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 507 CTRL_MAP_INI 
              etaN(i,j,bi,bj) = etaN(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 611 CTRL_MAP_INI 
      _EXCH_XY_RL( etaN, mythid )
./pkg/diagnostics/diagnostics_fill_state.F 61 DIAGNOSTICS_FILL_STATE 
        CALL DIAGNOSTICS_FILL(etaN, 'ETAN    ',0, 1,0,1,1,myThid)
./pkg/diagnostics/diagnostics_fill_state.F 76 DIAGNOSTICS_FILL_STATE 
        CALL DIAGNOSTICS_SCALE_FILL(etaN,tmpFac,2,
./model/inc/DYNVARS.h 36 NO PROCEDURE 
     &                   etaN,
./model/inc/DYNVARS.h 42 NO PROCEDURE 
     &                   etaN,
./model/inc/DYNVARS.h 47 NO PROCEDURE 
      _RL  etaN  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)