Symbol Description Uses
Ro_surf surface reference (at rest) position, r_unit. 121


File Line number Procedure Code
./model/inc/GRID.h 416 NO PROCEDURE 
     &  Ro_surf, rSurfW, rSurfS,
./model/inc/GRID.h 443 NO PROCEDURE 
      _RS Ro_surf        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/fizhi/fizhi_init_vars.F 111 FIZHI_INIT_VARS 
     &    pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 129 FIZHI_INIT_VARS 
         pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 164 FIZHI_WRAPPER 
         pephy(i,j,1,bi,bj)=(Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj))
./pkg/fizhi/fizhi_wrapper.F 188 FIZHI_WRAPPER 
     & pedyn(i,j,Lbotij,bi,bj) = (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj))
./pkg/fizhi/step_fizhi_corr.F 108 STEP_FIZHI_CORR 
         pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 90 STEP_FIZHI_CORR 
     .    pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/update_chemistry_exports.F 56 UPDATE_CHEMISTRY_EXPORTS 
         pephy(i,j,Nrphys+1,bi,bj)=(Ro_surf(i,j,bi,bj)+etaH(i,j,bi,bj))
./pkg/ggl90/ggl90_calc.F 193 GGL90_CALC 
        totalDepth(i,j)    = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 267 GGL90_CALC 
          MaxLength=MIN(Ro_surf(i,j,bi,bj)-rF(k),rF(k)-R_low(i,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 103 CALC_GRAD_PHI_HYD 
          ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN
./model/src/calc_grad_phi_hyd.F 104 CALC_GRAD_PHI_HYD 
           factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa
./model/src/calc_grad_phi_hyd.F 115 CALC_GRAD_PHI_HYD 
          IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_grad_phi_hyd.F 123 CALC_GRAD_PHI_HYD 
     &                  *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F 124 CALC_GRAD_PHI_HYD 
     &                  /                (Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F 97 CALC_GRAD_PHI_HYD 
          IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_gw.F 200 CALC_GW 
     &        (  MIN( Ro_surf(i,j,bi,bj),rC(k-1) )
./model/src/calc_gw.F 210 CALC_GW 
     &                           MIN( Ro_surf(i,j,bi,bj), rC(k-1) )
./model/src/calc_phi_hyd.F 243 CALC_PHI_HYD 
            ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 289 CALC_PHI_HYD 
            ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 374 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 413 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 476 CALC_PHI_HYD 
           locDepth = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./model/src/calc_phi_hyd.F 552 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 596 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_r_star.F 107 CALC_R_STAR 
     &      (etaFld(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./model/src/calc_r_star.F 212 CALC_R_STAR 
     &       Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj),
./pkg/mnc/mnc_cw_write_grid_info.F 161 MNC_CW_WRITE_GRID_INFO 
      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid)
./model/src/calc_surf_dr.F 122 CALC_SURF_DR 
     &            + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj)
./model/src/calc_surf_dr.F 160 CALC_SURF_DR 
     &              - MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/calc_surf_dr.F 181 CALC_SURF_DR 
     &              - MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/calc_surf_dr.F 83 CALC_SURF_DR 
          rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F 91 CALC_SURF_DR 
     &         + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj) )*recip_drF(ks)
./pkg/mom_fluxform/mom_calc_rtrans.F 122 MOM_CALC_RTRANS 
     &         *(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./model/src/diags_phi_hyd.F 100 DIAGS_PHI_HYD 
           dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*recip_rhoConst
./model/src/diags_phi_hyd.F 112 DIAGS_PHI_HYD 
           dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*gravity
./model/src/diags_phi_rlow.F 159 DIAGS_PHI_RLOW 
           dPhiRef = ( Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) )
./model/src/diags_phi_rlow.F 172 DIAGS_PHI_RLOW 
           dPhiRef = ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) )
./model/src/ini_depths.F 156 INI_DEPTHS 
        CALL READ_REC_XY_RS( bathyFile, Ro_surf, 1, 0, myThid )
./model/src/ini_depths.F 165 INI_DEPTHS 
            Ro_surf(i,j,bi,bj) = rF(1)
./model/src/ini_depths.F 187 INI_DEPTHS 
     O                       Ro_surf,
./model/src/ini_depths.F 208 INI_DEPTHS 
              Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj)
./model/src/ini_depths.F 220 INI_DEPTHS 
      _EXCH_XY_RS(Ro_surf, myThid )
./model/src/ini_depths.F 244 INI_DEPTHS 
     &       Ro_surf(i,j,bi,bj) = rF(Nr+1)
./model/src/ini_depths.F 275 INI_DEPTHS 
       CALL PLOT_FIELD_XYRS( Ro_surf,
./model/src/ini_depths.F 297 INI_DEPTHS 
      CALL EXCH2_CHECK_DEPTHS( R_low, Ro_surf, myThid )
./model/src/ini_depths.F 80 INI_DEPTHS 
          Ro_surf(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_fixed.F 163 SHELFICE_INIT_FIXED 
     &       - rhoConst*Ro_surf(i,j,bi,bj)
./pkg/shelfice/shelfice_init_fixed.F 181 SHELFICE_INIT_FIXED 
     &      *(shelficeMassInit(i,j,bi,bj)+rhoConst*Ro_surf(i,j,bi,bj))
./pkg/shelfice/shelfice_thermodynamics.F 583 SHELFICE_THERMODYNAMICS 
     &      *( shelficeMass(i,j,bi,bj) + rhoConst*Ro_surf(i,j,bi,bj) )
./model/src/ini_linear_phisurf.F 114 INI_LINEAR_PHISURF 
            IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0
./model/src/ini_linear_phisurf.F 116 INI_LINEAR_PHISURF 
             pLoc = Ro_surf(i,j,bi,bj)
./model/src/ini_linear_phisurf.F 153 INI_LINEAR_PHISURF 
             IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0
./model/src/ini_linear_phisurf.F 156 INI_LINEAR_PHISURF 
     &         (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./model/src/ini_linear_phisurf.F 169 INI_LINEAR_PHISURF 
             IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0
./model/src/ini_linear_phisurf.F 172 INI_LINEAR_PHISURF 
     &         (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./model/src/ini_linear_phisurf.F 226 INI_LINEAR_PHISURF 
     I                     Ro_surf, myThid )
./model/src/ini_masks_etc.F 157 INI_MASKS_ETC 
           hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k)
./model/src/ini_masks_etc.F 205 INI_MASKS_ETC 
          Ro_surf(i,j,bi,bj) = R_low(i,j,bi,bj) + tmpVar2(i,j)
./model/src/ini_masks_etc.F 220 INI_MASKS_ETC 
        CALL PLOT_FIELD_XYRS(Ro_surf,
./model/src/ini_masks_etc.F 233 INI_MASKS_ETC 
          tmpVar1(i,j) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./model/src/ini_masks_etc.F 342 INI_MASKS_ETC 
     &           MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_masks_etc.F 352 INI_MASKS_ETC 
     &           MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_masks_etc.F 59 INI_MASKS_ETC 
     U               R_low, Ro_surf,
./model/src/ini_masks_etc.F 86 INI_MASKS_ETC 
     &           MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_masks_etc.F 96 INI_MASKS_ETC 
     &           MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_nlfs_vars.F 80 INI_NLFS_VARS 
           Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./model/src/ini_sigma_hfac.F 150 INI_SIGMA_HFAC 
     &               ( Ro_surf(i-1,j,bi,bj)
./model/src/ini_sigma_hfac.F 151 INI_SIGMA_HFAC 
     &               + Ro_surf( i, j,bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F 173 INI_SIGMA_HFAC 
     &               ( Ro_surf(i,j-1,bi,bj)
./model/src/ini_sigma_hfac.F 174 INI_SIGMA_HFAC 
     &               + Ro_surf(i, j, bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F 71 INI_SIGMA_HFAC 
           tmpFld(i,j) = Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)
./model/src/ini_sigma_hfac.F 95 INI_SIGMA_HFAC 
             Ro_surf(i,j,bi,bj) = rEmpty
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 157 INI_DEPTHS 
        CALL READ_REC_XY_RS( bathyFile, Ro_surf, 1, 0, myThid )
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 166 INI_DEPTHS 
            Ro_surf(i,j,bi,bj) = rF(1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 187 INI_DEPTHS 
     O                       Ro_surf,
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 208 INI_DEPTHS 
              Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 220 INI_DEPTHS 
      _EXCH_XY_RS(Ro_surf, myThid )
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 241 INI_DEPTHS 
     &       Ro_surf(i,j,bi,bj) = rF(Nr+1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 244 INI_DEPTHS 
     &       Ro_surf(i,j,bi,bj) = rF(Nr+1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 275 INI_DEPTHS 
       CALL PLOT_FIELD_XYRS( Ro_surf,
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 297 INI_DEPTHS 
      CALL EXCH2_CHECK_DEPTHS( R_low, Ro_surf, myThid )
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 80 INI_DEPTHS 
          Ro_surf(i,j,bi,bj) = 0. _d 0
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 109 FIZHI_INIT_VARS 
         pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 91 FIZHI_INIT_VARS 
     &    pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F 200 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/hs94.1x64x5/code/apply_forcing.F 266 APPLY_FORCING_T 
          termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F 280 APPLY_FORCING_T 
     &          /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F 282 APPLY_FORCING_T 
     &          /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 266 APPLY_FORCING_T 
          termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 280 APPLY_FORCING_T 
     &          /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 282 APPLY_FORCING_T 
     &          /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 266 APPLY_FORCING_T 
          termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 280 APPLY_FORCING_T 
     &          /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 282 APPLY_FORCING_T 
     &          /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 266 APPLY_FORCING_T 
          termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 280 APPLY_FORCING_T 
     &          /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 282 APPLY_FORCING_T 
     &          /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 266 APPLY_FORCING_T 
          termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 280 APPLY_FORCING_T 
     &          /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 282 APPLY_FORCING_T 
     &          /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./model/src/update_masks_etc.F 189 UPDATE_MASKS_ETC 
          tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./model/src/update_sigma.F 108 UPDATE_SIGMA 
     &                 + ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) )
./model/src/write_grid.F 108 WRITE_GRID 
         CALL WRITE_FLD_XY_RS( 'rSurfC',' ',Ro_surf,-1,myThid)
./model/src/write_grid.F 116 WRITE_GRID 
     &    CALL WRITE_FLD_XY_RS( 'topo_P',' ',Ro_surf,-1,myThid)
./model/src/write_grid.F 203 WRITE_GRID 
        CALL MNC_CW_RS_W('D',bfname,0,0,'Ro_surf',Ro_surf,myThid)
./model/src/write_grid.F 67 WRITE_GRID 
            tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 99 AIM_DYN2AIM 
         PSA(I2) = Ro_surf(i,j,bi,bj)/atm_Po
./pkg/aim_v23/aim_initialise.F 89 AIM_INITIALISE 
          tmpVar   = Ro_surf(i,j,bi,bj)
./pkg/aim_v23/aim_initialise.F 97 AIM_INITIALISE 
           tmpVar   = Ro_surf(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 74 DIAGNOSTICS_FILL_STATE 
              tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/diagnostics/diagnostics_interp_vert.F 132 DIAGNOSTICS_INTERP_VERT 
               qtmpsrf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 252 DWNSLP_INIT_FIXED 
            dz_bottom = Ro_surf(ideep,jdeep,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 253 DWNSLP_INIT_FIXED 
     &                - Ro_surf(ishelf,jshelf,bi,bj)