Symbol Description Uses
pLoc local in-situ temperature, salinity, pressure 55


File Line number Procedure Code
./pkg/frazil/frazil_calc_rhs.F 43 FRAZIL_CALC_RHS 
      _RL Tfreezing, Tresid, pLoc, sLoc, tLoc
./pkg/frazil/frazil_calc_rhs.F 72 FRAZIL_CALC_RHS 
            pLoc = ABS(RC(k))
./pkg/frazil/frazil_calc_rhs.F 74 FRAZIL_CALC_RHS 
            tLoc = SW_TEMP(sLoc,theta(i,j,k,bi,bj),pLoc,0. _d 0)
./pkg/frazil/frazil_calc_rhs.F 88 FRAZIL_CALC_RHS 
            Tfreezing = (a0 + a1*sqrt(sLoc) + a2*sLoc) * sLoc + b*pLoc
./pkg/icefront/icefront_thermodynamics.F 112 ICEFRONT_THERMODYNAMICS 
            pLoc = ABS(rC(k))
./pkg/icefront/icefront_thermodynamics.F 117 ICEFRONT_THERMODYNAMICS 
            tLoc = SW_TEMP(sLoc,tLoc,pLoc,0.D0)
./pkg/icefront/icefront_thermodynamics.F 122 ICEFRONT_THERMODYNAMICS 
             pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K)))
./pkg/icefront/icefront_thermodynamics.F 125 ICEFRONT_THERMODYNAMICS 
     &           (R_icefront(I,J,bi,bj)-pLoc)
./pkg/icefront/icefront_thermodynamics.F 129 ICEFRONT_THERMODYNAMICS 
            eps4 = b*pLoc + c0
./pkg/icefront/icefront_thermodynamics.F 62 ICEFRONT_THERMODYNAMICS 
      _RL tLoc, sLoc, pLoc
./pkg/opps/opps_calc.F 469 OPPS_CALC 
      _RL pLoc
./pkg/opps/opps_calc.F 483 OPPS_CALC 
        pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 487 OPPS_CALC 
        pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 492 OPPS_CALC 
       pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 495 OPPS_CALC 
      CALL FIND_RHO_SCALAR( tLoc, sLoc, pLoc, rhoLoc, myThid )
./model/src/find_rho.F 1076 FIND_RHO_SCALAR 
       p1   = pLoc*SItodBar
./model/src/find_rho.F 1113 FIND_RHO_SCALAR 
       p       = pLoc*SItodBar
./model/src/find_rho.F 813 FIND_RHO_SCALAR 
     I     tLoc, sLoc, pLoc,
./model/src/find_rho.F 834 FIND_RHO_SCALAR 
      _RL tLoc, sLoc, pLoc
./model/src/find_rho.F 943 FIND_RHO_SCALAR 
         p1 = pLoc*SItoBar
./pkg/shelfice/shelfice_thermodynamics.F 238 SHELFICE_THERMODYNAMICS 
          pLoc(I,J) = ABS(R_shelfIce(I,J,bi,bj))
./pkg/shelfice/shelfice_thermodynamics.F 289 SHELFICE_THERMODYNAMICS 
          tLoc(I,J) = SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL)
./pkg/shelfice/shelfice_thermodynamics.F 291 SHELFICE_THERMODYNAMICS 
          CALL SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL,tLoc(I,J))
./pkg/shelfice/shelfice_thermodynamics.F 301 SHELFICE_THERMODYNAMICS 
           IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN
./pkg/shelfice/shelfice_thermodynamics.F 343 SHELFICE_THERMODYNAMICS 
           IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN
./pkg/shelfice/shelfice_thermodynamics.F 347 SHELFICE_THERMODYNAMICS 
     &           + b*pLoc(I,J) + c0
./pkg/shelfice/shelfice_thermodynamics.F 393 SHELFICE_THERMODYNAMICS 
           IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN
./pkg/shelfice/shelfice_thermodynamics.F 396 SHELFICE_THERMODYNAMICS 
            thetaFreeze = a0*sLoc(I,J)+c0+b*pLoc(I,J)
./pkg/shelfice/shelfice_thermodynamics.F 417 SHELFICE_THERMODYNAMICS 
            eps3 = eps3a/pLoc(I,J)
./pkg/shelfice/shelfice_thermodynamics.F 418 SHELFICE_THERMODYNAMICS 
            eps4 = b*pLoc(I,J) + c0
./pkg/shelfice/shelfice_thermodynamics.F 429 SHELFICE_THERMODYNAMICS 
     &                   + ( c0 - SHELFICEthetaSurface )/pLoc(I,J) )
./pkg/shelfice/shelfice_thermodynamics.F 438 SHELFICE_THERMODYNAMICS 
             print *, 'ml-shelfice: pLoc    = ', pLoc(I,J)
./pkg/shelfice/shelfice_thermodynamics.F 81 SHELFICE_THERMODYNAMICS 
      _RL pLoc(1:sNx,1:sNy)
./model/src/ini_eos.F 369 EOS_CHECK 
      _RL tLoc(ncheck), ptLoc(ncheck), sLoc(ncheck), pLoc(ncheck)
./model/src/ini_eos.F 411 EOS_CHECK 
     &     pLoc
./model/src/ini_eos.F 474 EOS_CHECK 
            rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity
./model/src/ini_eos.F 476 EOS_CHECK 
            rC(k) =  pLoc(kcheck)
./model/src/ini_eos.F 484 EOS_CHECK 
          pFld(i,j)    = pLoc(kcheck)
./model/src/ini_eos.F 528 EOS_CHECK 
     &         pLoc(kcheck)*SItoBar, ' bar)',
./model/src/ini_eos.F 539 EOS_CHECK 
     &         pLoc(kcheck), rhoLoc(i,j), myThid )
./model/src/ini_linear_phisurf.F 116 INI_LINEAR_PHISURF 
             pLoc = Ro_surf(i,j,bi,bj)
./model/src/ini_linear_phisurf.F 121 INI_LINEAR_PHISURF 
     I            pLoc,
./model/src/ini_linear_phisurf.F 126 INI_LINEAR_PHISURF 
     I            tRef(k), sRef(k), pLoc,
./model/src/ini_linear_phisurf.F 50 INI_LINEAR_PHISURF 
      _RL     pLoc, rhoLoc
./model/src/set_ref_state.F 113 SET_REF_STATE 
          pLoc = -rhoConst*rC(k)*gravity
./model/src/set_ref_state.F 115 SET_REF_STATE 
     I                          tRef(k), sRef(k), pLoc,
./model/src/set_ref_state.F 122 SET_REF_STATE 
          pLoc = -rhoConst*rF(k)*gravity
./model/src/set_ref_state.F 124 SET_REF_STATE 
     I                          tRef(k-1), sRef(k-1), pLoc,
./model/src/set_ref_state.F 127 SET_REF_STATE 
     I                          tRef(k), sRef(k), pLoc,
./model/src/set_ref_state.F 145 SET_REF_STATE 
          pLoc = rC(k)
./model/src/set_ref_state.F 147 SET_REF_STATE 
     I                          tRef(k), sRef(k), pLoc,
./model/src/set_ref_state.F 154 SET_REF_STATE 
          pLoc = rF(k)
./model/src/set_ref_state.F 156 SET_REF_STATE 
     I                             tRef(k-1), sRef(k-1), pLoc,
./model/src/set_ref_state.F 159 SET_REF_STATE 
     I                             tRef(k), sRef(k), pLoc,
./model/src/set_ref_state.F 44 SET_REF_STATE 
      _RL pLoc, rhoUp, rhoDw, rhoLoc