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


File Line number Procedure Code
./pkg/icefront/icefront_thermodynamics.F 106 ICEFRONT_THERMODYNAMICS 
            pLoc = ABS(rC(k))
./pkg/icefront/icefront_thermodynamics.F 111 ICEFRONT_THERMODYNAMICS 
            tLoc = SW_TEMP(sLoc,tLoc,pLoc,0.D0)
./pkg/icefront/icefront_thermodynamics.F 116 ICEFRONT_THERMODYNAMICS 
             pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K)))
./pkg/icefront/icefront_thermodynamics.F 119 ICEFRONT_THERMODYNAMICS 
     &           (R_icefront(I,J,bi,bj)-pLoc)
./pkg/icefront/icefront_thermodynamics.F 123 ICEFRONT_THERMODYNAMICS 
            eps4 = b*pLoc + c0
./pkg/icefront/icefront_thermodynamics.F 62 ICEFRONT_THERMODYNAMICS 
      _RL tLoc, sLoc, pLoc
./pkg/opps/opps_calc.F 471 OPPS_CALC 
      _RL pLoc
./pkg/opps/opps_calc.F 492 OPPS_CALC 
        pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 496 OPPS_CALC 
        pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 501 OPPS_CALC 
       pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 546 OPPS_CALC 
         p1 = pLoc*SItoBar
./pkg/opps/opps_calc.F 623 OPPS_CALC 
         p1   = pLoc*SItodBar
./pkg/shelfice/shelfice_thermodynamics.F 121 SHELFICE_THERMODYNAMICS 
          pLoc(I,J) = ABS(R_shelfIce(I,J,bi,bj))
./pkg/shelfice/shelfice_thermodynamics.F 154 SHELFICE_THERMODYNAMICS 
          tLoc(I,J) = SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),0.D0)
./pkg/shelfice/shelfice_thermodynamics.F 163 SHELFICE_THERMODYNAMICS 
           IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN
./pkg/shelfice/shelfice_thermodynamics.F 167 SHELFICE_THERMODYNAMICS 
     &           + b*pLoc(I,J) + c0
./pkg/shelfice/shelfice_thermodynamics.F 214 SHELFICE_THERMODYNAMICS 
           IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN
./pkg/shelfice/shelfice_thermodynamics.F 221 SHELFICE_THERMODYNAMICS 
     &           * SHELFICEkappa/pLoc(I,J)
./pkg/shelfice/shelfice_thermodynamics.F 222 SHELFICE_THERMODYNAMICS 
            eps4 = b*pLoc(I,J) + c0
./pkg/shelfice/shelfice_thermodynamics.F 235 SHELFICE_THERMODYNAMICS 
             print *, 'ml-shelfice: pLoc    = ', pLoc(I,J)
./pkg/shelfice/shelfice_thermodynamics.F 64 SHELFICE_THERMODYNAMICS 
      _RL pLoc(1:sNx,1:sNy)
./model/src/find_rho.F 568 FIND_RHO_SCALAR 
     I     tLoc, sLoc, pLoc,
./model/src/find_rho.F 589 FIND_RHO_SCALAR 
      _RL tLoc, sLoc, pLoc
./model/src/find_rho.F 658 FIND_RHO_SCALAR 
         p1 = pLoc*SItoBar
./model/src/find_rho.F 735 FIND_RHO_SCALAR 
         p1   = pLoc*SItodBar
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 112 INI_LINEAR_PHISURF 
             pLoc = Ro_surf(I,J,bi,bj)
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 116 INI_LINEAR_PHISURF 
     I            pLoc,
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 49 INI_LINEAR_PHISURF 
      _RL     pLoc, rhoLoc
./model/src/ini_eos.F 315 EOS_CHECK 
      _RL tLoc(ncheck), ptLoc(ncheck), sLoc(ncheck), pLoc(ncheck)
./model/src/ini_eos.F 346 EOS_CHECK 
     &     pLoc
./model/src/ini_eos.F 398 EOS_CHECK 
            rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity
./model/src/ini_eos.F 400 EOS_CHECK 
            rC(k) =  pLoc(kcheck)
./model/src/ini_eos.F 408 EOS_CHECK 
          pFld(i,j)    = pLoc(kcheck)
./model/src/ini_eos.F 446 EOS_CHECK 
     &         pLoc(kcheck)*SItoBar, ' bar)',
./model/src/ini_eos.F 457 EOS_CHECK 
     &         pLoc(kcheck), rhoLoc(i,j), myThid )
./model/src/ini_linear_phisurf.F 175 INI_LINEAR_PHISURF 
             pLoc = Ro_surf(I,J,bi,bj)
./model/src/ini_linear_phisurf.F 177 INI_LINEAR_PHISURF 
     I            tRef(k), sRef(k), pLoc,
./model/src/ini_linear_phisurf.F 59 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