Symbol Description Uses
ks surface level index 296


File Line number Procedure Code
./pkg/longstep/longstep_forcing_surf.F 121 LONGSTEP_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/longstep/longstep_forcing_surf.F 145 LONGSTEP_FORCING_SURF 
     &            *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/longstep/longstep_forcing_surf.F 50 LONGSTEP_FORCING_SURF 
      INTEGER iTrc, ks
./pkg/longstep/longstep_forcing_surf.F 54 LONGSTEP_FORCING_SURF 
        ks = Nr
./pkg/longstep/longstep_forcing_surf.F 56 LONGSTEP_FORCING_SURF 
        ks = 1
./pkg/longstep/longstep_forcing_surf.F 88 LONGSTEP_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./pkg/monitor/mon_surfcor.F 104 MON_SURFCOR 
             ks = ksurfC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 105 MON_SURFCOR 
             IF (ks.LE.Nr) THEN
./pkg/monitor/mon_surfcor.F 106 MON_SURFCOR 
              tmpVal = salt(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 107 MON_SURFCOR 
     &               + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks)
./pkg/monitor/mon_surfcor.F 108 MON_SURFCOR 
     &                *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 110 MON_SURFCOR 
     &         + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal
./pkg/monitor/mon_surfcor.F 53 MON_SURFCOR 
      INTEGER i,j,k,ks,bi,bj
./pkg/monitor/mon_surfcor.F 83 MON_SURFCOR 
            ks = ksurfC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 84 MON_SURFCOR 
            IF (ks.LE.Nr) THEN
./pkg/monitor/mon_surfcor.F 87 MON_SURFCOR 
     &          rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 90 MON_SURFCOR 
     &        + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 94 MON_SURFCOR 
     &                 + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa)
./model/src/calc_surf_dr.F 114 CALC_SURF_DR 
     &         ( rSurftmp(i,j) - MAX(rF(ks+1), R_low(i,j,bi,bj))
./model/src/calc_surf_dr.F 115 CALC_SURF_DR 
     &         )*recip_drF(ks)*maskC(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 123 CALC_SURF_DR 
     &         ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./model/src/calc_surf_dr.F 125 CALC_SURF_DR 
     &         'hFac_n-1,hFac_n,eta =', hfacC(i,j,ks,bi,bj),
./model/src/calc_surf_dr.F 139 CALC_SURF_DR 
          ks = ksurfW(i,j,bi,bj)
./model/src/calc_surf_dr.F 140 CALC_SURF_DR 
          IF (ks.LE.Nr) THEN
./model/src/calc_surf_dr.F 141 CALC_SURF_DR 
            hhm = rF(ks)
./model/src/calc_surf_dr.F 142 CALC_SURF_DR 
            IF(ks.EQ.ksurfC(i-1,j,bi,bj)) hhm = rSurftmp(i-1,j)
./model/src/calc_surf_dr.F 143 CALC_SURF_DR 
            hhp = rF(ks)
./model/src/calc_surf_dr.F 144 CALC_SURF_DR 
            IF(ks.EQ.ksurfC(i,j,bi,bj))   hhp = rSurftmp(i,j)
./model/src/calc_surf_dr.F 147 CALC_SURF_DR 
     &          - MAX(rF(ks+1),R_low(i-1,j,bi,bj),R_low(i,j,bi,bj))
./model/src/calc_surf_dr.F 148 CALC_SURF_DR 
     &         )*recip_drF(ks)*maskW(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 155 CALC_SURF_DR 
          ks = ksurfS(i,j,bi,bj)
./model/src/calc_surf_dr.F 156 CALC_SURF_DR 
          IF (ks.LE.Nr) THEN
./model/src/calc_surf_dr.F 157 CALC_SURF_DR 
            hhm = rF(ks)
./model/src/calc_surf_dr.F 158 CALC_SURF_DR 
            IF(ks.EQ.ksurfC(i,j-1,bi,bj)) hhm = rSurftmp(i,j-1)
./model/src/calc_surf_dr.F 159 CALC_SURF_DR 
            hhp = rF(ks)
./model/src/calc_surf_dr.F 160 CALC_SURF_DR 
            IF(ks.EQ.ksurfC(i,j,bi,bj))   hhp = rSurftmp(i,j)
./model/src/calc_surf_dr.F 163 CALC_SURF_DR 
     &          - MAX(rF(ks+1),R_low(i,j-1,bi,bj),R_low(i,j,bi,bj))
./model/src/calc_surf_dr.F 164 CALC_SURF_DR 
     &         )*recip_drF(ks)*maskS(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 51 CALC_SURF_DR 
      INTEGER ks, numbWrite, numbWrMax
./model/src/calc_surf_dr.F 74 CALC_SURF_DR 
          ks = ksurfC(i,j,bi,bj)
./model/src/calc_surf_dr.F 75 CALC_SURF_DR 
          IF (ks.LE.Nr) THEN
./model/src/calc_surf_dr.F 80 CALC_SURF_DR 
             hFactmp = ( rSurftmp(i,j)-MAX(rF(ks+1),R_low(i,j,bi,bj))
./model/src/calc_surf_dr.F 81 CALC_SURF_DR 
     &                 )*recip_drF(ks)
./model/src/calc_surf_dr.F 85 CALC_SURF_DR 
     &         ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./model/src/calc_surf_dr.F 89 CALC_SURF_DR 
     &         ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./model/src/calc_surf_dr.F 93 CALC_SURF_DR 
     &          hfacC(i,j,ks,bi,bj), hFactmp, etaFld(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 32 OBCS_APPLY_SURF_DR 
      INTEGER i,j,ks
./pkg/obcs/obcs_apply_surf_dr.F 44 OBCS_APPLY_SURF_DR 
        ks = ksurfS(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 45 OBCS_APPLY_SURF_DR 
        IF (ks.LE.Nr) THEN
./pkg/obcs/obcs_apply_surf_dr.F 46 OBCS_APPLY_SURF_DR 
         hFactmp = OBNhFac0(i,bi,bj) + OBNeta(i,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 53 OBCS_APPLY_SURF_DR 
        ks = ksurfS(i,j+1,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 54 OBCS_APPLY_SURF_DR 
        IF (ks.LE.Nr) THEN
./pkg/obcs/obcs_apply_surf_dr.F 55 OBCS_APPLY_SURF_DR 
         hFactmp = OBShFac0(i,bi,bj) + OBSeta(i,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 66 OBCS_APPLY_SURF_DR 
        ks = ksurfW(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 67 OBCS_APPLY_SURF_DR 
        IF (ks.LE.Nr) THEN
./pkg/obcs/obcs_apply_surf_dr.F 68 OBCS_APPLY_SURF_DR 
         hFactmp = OBEhFac0(j,bi,bj) + OBEeta(j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 75 OBCS_APPLY_SURF_DR 
        ks = ksurfW(i+1,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 76 OBCS_APPLY_SURF_DR 
        IF (ks.LE.Nr) THEN
./pkg/obcs/obcs_apply_surf_dr.F 77 OBCS_APPLY_SURF_DR 
         hFactmp = OBWhFac0(j,bi,bj) + OBWeta(j,bi,bj)*recip_drF(ks)
./model/src/calc_wsurf_tr.F 50 CALC_WSURF_TR 
      INTEGER i,j,bi,bj,ks
./model/src/calc_wsurf_tr.F 70 CALC_WSURF_TR 
             ks = ksurfC(i,j,bi,bj)
./model/src/calc_wsurf_tr.F 71 CALC_WSURF_TR 
             IF (ks.LE.Nr) THEN
./model/src/calc_wsurf_tr.F 73 CALC_WSURF_TR 
     &           + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj)
./model/src/calc_wsurf_tr.F 74 CALC_WSURF_TR 
     &                          *thetaFld(i,j,ks,bi,bj)
./model/src/calc_wsurf_tr.F 76 CALC_WSURF_TR 
     &           + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj)
./model/src/calc_wsurf_tr.F 77 CALC_WSURF_TR 
     &                          *saltFld(i,j,ks,bi,bj)
./model/src/cg3d.F 112 CG3D 
      INTEGER ks
./model/src/cg3d.F 192 CG3D 
             ks = ksurfC(i,j,bi,bj)
./model/src/cg3d.F 195 CG3D 
     &              *rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/cg3d.F 382 CG3D 
             ks = ksurfC(i,j,bi,bj)
./model/src/cg3d.F 385 CG3D 
     &              *rA(i,j,bi,bj)*deepFac2F(ks)
./pkg/ptracers/ptracers_forcing_surf.F 131 PTRACERS_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F 161 PTRACERS_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F 182 PTRACERS_FORCING_SURF 
     &            *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F 52 PTRACERS_FORCING_SURF 
      INTEGER iTrc, ks
./pkg/ptracers/ptracers_forcing_surf.F 58 PTRACERS_FORCING_SURF 
        ks = Nr
./pkg/ptracers/ptracers_forcing_surf.F 60 PTRACERS_FORCING_SURF 
        ks = 1
./pkg/ptracers/ptracers_forcing_surf.F 80 PTRACERS_FORCING_SURF 
        cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks)
./pkg/ptracers/ptracers_forcing_surf.F 86 PTRACERS_FORCING_SURF 
            tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./model/src/diags_oceanic_surf_flux.F 130 DIAGS_OCEANIC_SURF_FLUX 
     &       + PmEpR(i,j,bi,bj)*theta(i,j,ks,bi,bj)*HeatCapacity_Cp
./model/src/diags_oceanic_surf_flux.F 157 DIAGS_OCEANIC_SURF_FLUX 
     &       + PmEpR(i,j,bi,bj)*salt(i,j,ks,bi,bj)
./model/src/diags_oceanic_surf_flux.F 48 DIAGS_OCEANIC_SURF_FLUX 
      INTEGER ks
./model/src/diags_oceanic_surf_flux.F 54 DIAGS_OCEANIC_SURF_FLUX 
        ks=Nr
./model/src/diags_oceanic_surf_flux.F 56 DIAGS_OCEANIC_SURF_FLUX 
        ks=1
./pkg/salt_plume/salt_plume_forcing_surf.F 49 SALT_PLUME_FORCING_SURF 
      INTEGER i, j, ks
./pkg/salt_plume/salt_plume_forcing_surf.F 52 SALT_PLUME_FORCING_SURF 
         ks = Nr
./pkg/salt_plume/salt_plume_forcing_surf.F 54 SALT_PLUME_FORCING_SURF 
         ks = 1
./pkg/seaice/seaice_advdiff.F 174 SEAICE_ADVDIFF 
          xA(i,j) = _dyG(i,j,bi,bj)*_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_advdiff.F 175 SEAICE_ADVDIFF 
          yA(i,j) = _dxG(i,j,bi,bj)*_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_advdiff.F 64 SEAICE_ADVDIFF 
      INTEGER ks
./pkg/seaice/seaice_advdiff.F 85 SEAICE_ADVDIFF 
      ks = 1
./model/src/external_forcing_surf.F 103 EXTERNAL_FORCING_SURF 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./model/src/external_forcing_surf.F 104 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 108 EXTERNAL_FORCING_SURF 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./model/src/external_forcing_surf.F 109 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 138 EXTERNAL_FORCING_SURF 
     &                    *dBHybSigF(ks)*recip_drF(ks)
./model/src/external_forcing_surf.F 139 EXTERNAL_FORCING_SURF 
     &                    *recip_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 143 EXTERNAL_FORCING_SURF 
     &                    *dBHybSigF(ks)*recip_drF(ks)
./model/src/external_forcing_surf.F 144 EXTERNAL_FORCING_SURF 
     &                    *recip_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 152 EXTERNAL_FORCING_SURF 
           IF (ks.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/external_forcing_surf.F 154 EXTERNAL_FORCING_SURF 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/external_forcing_surf.F 156 EXTERNAL_FORCING_SURF 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/external_forcing_surf.F 280 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F 291 EXTERNAL_FORCING_SURF 
     &          *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F 315 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./model/src/external_forcing_surf.F 326 EXTERNAL_FORCING_SURF 
     &           *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./model/src/external_forcing_surf.F 341 EXTERNAL_FORCING_SURF 
     &           *( tRef(ks) - temp_EvPrRn )
./model/src/external_forcing_surf.F 58 EXTERNAL_FORCING_SURF 
      INTEGER ks
./model/src/external_forcing_surf.F 69 EXTERNAL_FORCING_SURF 
       ks        = Nr
./model/src/external_forcing_surf.F 71 EXTERNAL_FORCING_SURF 
       ks        = 1
./model/src/external_forcing_surf.F 87 EXTERNAL_FORCING_SURF 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./model/src/external_forcing_surf.F 88 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 92 EXTERNAL_FORCING_SURF 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./model/src/external_forcing_surf.F 93 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/ini_cg2d.F 216 INI_CG2D 
           ks = ksurfC(i,j,bi,bj)
./model/src/ini_cg2d.F 220 INI_CG2D 
     &      +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks)
./model/src/ini_cg2d.F 49 INI_CG2D 
      INTEGER i, j, k, ks
./model/src/ini_cg3d.F 250 INI_CG3D 
           ks = ksurfC(i,j,bi,bj)
./model/src/ini_cg3d.F 251 INI_CG3D 
           IF ( ks.LE.Nr ) THEN
./model/src/ini_cg3d.F 252 INI_CG3D 
             aC3d(i,j,ks,bi,bj) = aC3d(i,j,ks,bi,bj)
./model/src/ini_cg3d.F 254 INI_CG3D 
     &          *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTfreesurf
./model/src/ini_cg3d.F 50 INI_CG3D 
      INTEGER i, j, k, ks
./verification/fizhi-gridalt-hs/code/do_fizhi.F 152 DO_FIZHI 
      _RL kF,sigma_b,ks,ka,deg2rad,pi,atm_po,atm_kappa,termp,kv,kT
./verification/fizhi-gridalt-hs/code/do_fizhi.F 163 DO_FIZHI 
       ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 189 DO_FIZHI 
         kT=ka+(ks-ka)
./model/src/ini_nh_fields.F 45 INI_NH_FIELDS 
      INTEGER ks
./model/src/ini_nh_fields.F 84 INI_NH_FIELDS 
             ks = ksurfC(i,j,bi,bj)
./model/src/ini_nh_fields.F 85 INI_NH_FIELDS 
             IF ( ks.LE.Nr ) THEN
./model/src/ini_nh_fields.F 86 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj)
./model/src/ini_nlfs_vars.F 104 INI_NLFS_VARS 
           ks = kSurfC(i,j,bi,bj)
./model/src/ini_nlfs_vars.F 105 INI_NLFS_VARS 
           IF (ks.LE.Nr) THEN
./model/src/ini_nlfs_vars.F 106 INI_NLFS_VARS 
             Rmin_tmp = rF(ks+1)
./model/src/ini_nlfs_vars.F 107 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfW(i,j,bi,bj))
./model/src/ini_nlfs_vars.F 109 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfW(i+1,j,bi,bj))
./model/src/ini_nlfs_vars.F 111 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfS(i,j,bi,bj))
./model/src/ini_nlfs_vars.F 113 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfS(i,j+1,bi,bj))
./model/src/ini_nlfs_vars.F 117 INI_NLFS_VARS 
     &        MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks),
./model/src/ini_nlfs_vars.F 118 INI_NLFS_VARS 
     &                                Rmin_tmp + hFacInfMOM*drF(ks)
./model/src/ini_nlfs_vars.F 39 INI_NLFS_VARS 
      INTEGER ks
./model/src/ini_p_ground.F 272 INI_P_GROUND 
          ks = kSurfC(i,j,bi,bj)
./model/src/ini_p_ground.F 273 INI_P_GROUND 
          IF (ks.LE.Nr) THEN
./model/src/ini_p_ground.F 277 INI_P_GROUND 
               IF ( Pfld(i,j,bi,bj).LT.rF(k) ) ks = k
./model/src/ini_p_ground.F 280 INI_P_GROUND 
           IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN
./model/src/ini_p_ground.F 281 INI_P_GROUND 
            phiLoc = hRef(2*ks)
./model/src/ini_p_ground.F 282 INI_P_GROUND 
     &       + (hRef(2*ks-1)-hRef(2*ks))
./model/src/ini_p_ground.F 283 INI_P_GROUND 
     &        *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks))
./model/src/ini_p_ground.F 285 INI_P_GROUND 
            phiLoc = hRef(2*ks)
./model/src/ini_p_ground.F 286 INI_P_GROUND 
     &       + (hRef(2*ks+1)-hRef(2*ks))
./model/src/ini_p_ground.F 287 INI_P_GROUND 
     &        *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks))
./verification/hs94.128x64x5/code/external_forcing.F 185 EXTERNAL_FORCING_T 
      _RL thetaLim,kT,ka,ks,sigma_b,term1,term2,thetaEq,termP
./verification/hs94.128x64x5/code/external_forcing.F 189 EXTERNAL_FORCING_T 
      ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/hs94.128x64x5/code/external_forcing.F 201 EXTERNAL_FORCING_T 
         kT=ka+(ks-ka)
./verification/hs94.1x64x5/code/external_forcing.F 185 EXTERNAL_FORCING_T 
      _RL thetaLim,kT,ka,ks,sigma_b,term1,term2,thetaEq,termP
./verification/hs94.1x64x5/code/external_forcing.F 189 EXTERNAL_FORCING_T 
      ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/hs94.1x64x5/code/external_forcing.F 201 EXTERNAL_FORCING_T 
         kT=ka+(ks-ka)
./verification/hs94.1x64x5/code_ad/external_forcing.F 185 EXTERNAL_FORCING_T 
      _RL thetaLim,kT,ka,ks,sigma_b,term1,term2,thetaEq,termP
./verification/hs94.1x64x5/code_ad/external_forcing.F 189 EXTERNAL_FORCING_T 
      ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/hs94.1x64x5/code_ad/external_forcing.F 201 EXTERNAL_FORCING_T 
         kT=ka+(ks-ka)
./verification/hs94.cs-32x32x5/code/external_forcing.F 217 EXTERNAL_FORCING_T 
      _RL thetaLim,kT,ka,ks,sigma_b,term1,term2,thetaEq
./verification/hs94.cs-32x32x5/code/external_forcing.F 222 EXTERNAL_FORCING_T 
      ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/hs94.cs-32x32x5/code/external_forcing.F 250 EXTERNAL_FORCING_T 
         kT=ka+(ks-ka)
./model/src/integr_continuity.F 148 INTEGR_CONTINUITY 
            ks = ksurfC(I,J,bi,bj)
./model/src/integr_continuity.F 151 INTEGR_CONTINUITY 
     &                                         *recip_deepFac2F(ks)
./model/src/integr_continuity.F 164 INTEGR_CONTINUITY 
            ks = ksurfC(i,j,bi,bj)
./model/src/integr_continuity.F 166 INTEGR_CONTINUITY 
     &                                         *recip_deepFac2F(ks)
./model/src/integr_continuity.F 212 INTEGR_CONTINUITY 
           ks = ksurfC(i,j,bi,bj)
./model/src/integr_continuity.F 214 INTEGR_CONTINUITY 
     &                            *deepFac2F(ks)*rhoFacF(ks)
./model/src/integr_continuity.F 58 INTEGR_CONTINUITY 
      INTEGER i,j, ks
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 132 PTRACERS_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 162 PTRACERS_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 183 PTRACERS_FORCING_SURF 
     &            *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 52 PTRACERS_FORCING_SURF 
      INTEGER iTrc, ks
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 58 PTRACERS_FORCING_SURF 
        ks = Nr
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 60 PTRACERS_FORCING_SURF 
        ks = 1
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 69 PTRACERS_FORCING_SURF 
     &                  * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 70 PTRACERS_FORCING_SURF 
     &                  * drF(ks) * _hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 81 PTRACERS_FORCING_SURF 
        cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 87 PTRACERS_FORCING_SURF 
            tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 103 EXTERNAL_FORCING_SURF 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 104 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 108 EXTERNAL_FORCING_SURF 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 109 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 135 EXTERNAL_FORCING_SURF 
           IF (ks.EQ.ksurfC(i,j,bi,bj)) THEN
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 137 EXTERNAL_FORCING_SURF 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 139 EXTERNAL_FORCING_SURF 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 266 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 277 EXTERNAL_FORCING_SURF 
     &          *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 301 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 312 EXTERNAL_FORCING_SURF 
     &           *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 327 EXTERNAL_FORCING_SURF 
     &           *( tRef(ks) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 58 EXTERNAL_FORCING_SURF 
      INTEGER ks
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 69 EXTERNAL_FORCING_SURF 
       ks        = Nr
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 71 EXTERNAL_FORCING_SURF 
       ks        = 1
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 87 EXTERNAL_FORCING_SURF 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 88 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 92 EXTERNAL_FORCING_SURF 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 93 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 185 EXTERNAL_FORCING_T 
      _RL thetaLim,kT,ka,ks,sigma_b,term1,term2,thetaEq,termP
./verification/tutorial_held_suarez_cs/code/external_forcing.F 189 EXTERNAL_FORCING_T 
      ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 201 EXTERNAL_FORCING_T 
         kT=ka+(ks-ka)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 131 PTRACERS_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 161 PTRACERS_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 182 PTRACERS_FORCING_SURF 
     &            *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 52 PTRACERS_FORCING_SURF 
      INTEGER iTrc, ks
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 58 PTRACERS_FORCING_SURF 
        ks = Nr
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 60 PTRACERS_FORCING_SURF 
        ks = 1
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 80 PTRACERS_FORCING_SURF 
        cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 86 PTRACERS_FORCING_SURF 
            tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./model/src/post_cg3d.F 51 POST_CG3D 
      INTEGER ks
./model/src/post_cg3d.F 73 POST_CG3D 
            ks = ksurfC(i,j,bi,bj)
./model/src/post_cg3d.F 74 POST_CG3D 
            IF ( ks.LE.Nr ) THEN
./model/src/post_cg3d.F 75 POST_CG3D 
             dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj)
./model/src/pre_cg3d.F 113 PRE_CG3D 
              ks = ksurfC(i,j,bi,bj)
./model/src/pre_cg3d.F 114 PRE_CG3D 
              IF ( ks.LE.Nr ) THEN
./model/src/pre_cg3d.F 115 PRE_CG3D 
               cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/pre_cg3d.F 118 PRE_CG3D 
     &                              *_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/pre_cg3d.F 128 PRE_CG3D 
              ks = ksurfC(i,j,bi,bj)
./model/src/pre_cg3d.F 131 PRE_CG3D 
     &                    *_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/pre_cg3d.F 153 PRE_CG3D 
              ks = ksurfC(i,j,bi,bj)
./model/src/pre_cg3d.F 154 PRE_CG3D 
              IF ( ks.LE.Nr ) THEN
./model/src/pre_cg3d.F 155 PRE_CG3D 
               cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/pre_cg3d.F 157 PRE_CG3D 
     &                  *_rA(i,j,bi,bj)*deepFac2F(ks)/deltaTmom
./model/src/pre_cg3d.F 60 PRE_CG3D 
      INTEGER ks, kp1
./model/src/pre_cg3d.F 85 PRE_CG3D 
          ks = 1
./model/src/pre_cg3d.F 86 PRE_CG3D 
          IF ( usingPCoords ) ks = Nr
./model/src/pre_cg3d.F 89 PRE_CG3D 
            cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/set_ref_state.F 222 SET_REF_STATE 
          ks = (k+1)/2
./model/src/set_ref_state.F 225 SET_REF_STATE 
          phiRef(k+1) = phiRef(k)+ddPI*tRef(ks)
./model/src/set_ref_state.F 41 SET_REF_STATE 
      INTEGER k, ks, stdUnit
./model/src/solve_for_pressure.F 190 SOLVE_FOR_PRESSURE 
           ks = ksurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F 191 SOLVE_FOR_PRESSURE 
           IF ( ks.LE.Nr ) THEN
./model/src/solve_for_pressure.F 193 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 196 SOLVE_FOR_PRESSURE 
     &           +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) )
./model/src/solve_for_pressure.F 197 SOLVE_FOR_PRESSURE 
            cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/solve_for_pressure.F 198 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 201 SOLVE_FOR_PRESSURE 
     &           +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) )
./model/src/solve_for_pressure.F 212 SOLVE_FOR_PRESSURE 
           ks = ksurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F 214 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 222 SOLVE_FOR_PRESSURE 
           ks = ksurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F 224 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 58 SOLVE_FOR_PRESSURE 
      INTEGER ks
./model/src/update_cg2d.F 125 UPDATE_CG2D 
           ks = ksurfC(I,J,bi,bj)
./model/src/update_cg2d.F 129 UPDATE_CG2D 
     &      +freeSurfFac*cg2dNorm*recip_Bo(I,J,bi,bj)*deepFac2F(ks)
./model/src/update_cg2d.F 54 UPDATE_CG2D 
      INTEGER I, J, K, ks
./model/src/update_surf_dr.F 102 UPDATE_SURF_DR 
          ks = ksurfW(i,j,bi,bj)
./model/src/update_surf_dr.F 103 UPDATE_SURF_DR 
          IF (ks.LE.Nr) THEN
./model/src/update_surf_dr.F 104 UPDATE_SURF_DR 
           hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj)
./model/src/update_surf_dr.F 105 UPDATE_SURF_DR 
           recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj)
./model/src/update_surf_dr.F 111 UPDATE_SURF_DR 
          ks = ksurfS(i,j,bi,bj)
./model/src/update_surf_dr.F 112 UPDATE_SURF_DR 
          IF (ks.LE.Nr) THEN
./model/src/update_surf_dr.F 113 UPDATE_SURF_DR 
           hFacS(i,j,ks,bi,bj) = hFac_surfS(i,j,bi,bj)
./model/src/update_surf_dr.F 114 UPDATE_SURF_DR 
           recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj)
./model/src/update_surf_dr.F 47 UPDATE_SURF_DR 
      INTEGER ks
./model/src/update_surf_dr.F 89 UPDATE_SURF_DR 
          ks = ksurfC(i,j,bi,bj)
./model/src/update_surf_dr.F 90 UPDATE_SURF_DR 
          IF (ks.LE.Nr) THEN
./model/src/update_surf_dr.F 91 UPDATE_SURF_DR 
           hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 92 UPDATE_SURF_DR 
           recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 111 BULKF_FORCING 
     I            cloud(i,j,bi,bj),theta(i,j,ks,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 127 BULKF_FORCING 
     I            Qair(i,j,bi,bj), theta(i,j,ks,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 176 BULKF_FORCING 
            IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN
./pkg/bulk_force/bulkf_forcing.F 64 BULKF_FORCING 
      INTEGER ks, iceornot
./pkg/bulk_force/bulkf_forcing.F 73 BULKF_FORCING 
      ks = 1
./pkg/bulk_force/bulkf_forcing.F 83 BULKF_FORCING 
           IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN
./pkg/bulk_force/bulkf_forcing.F 88 BULKF_FORCING 
     I            theta(i,j,ks,bi,bj), flwdwn(i,j,bi,bj),