Symbol Description Uses
sa 53



File Line number Procedure Code
./pkg/opps/opps_calc.F 534 NLOPPS
      subroutine NLOPPS(j,is,ie,ta,sa,gcmdz)
./pkg/opps/opps_calc.F 566 NLOPPS
      real ta(imt,km),sa(imt,km),gcmdz(km),dz(km)
./pkg/opps/opps_calc.F 649 NLOPPS
         stemp(k)=sa(i,k)
./pkg/opps/opps_calc.F 659 NLOPPS
         if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then
./pkg/opps/opps_calc.F 669 NLOPPS
        write(*,*)(ta(i,k),sa(i,k),k=1,NumGridPoints)
./pkg/opps/opps_calc.F 911 NLOPPS
            sa(i,k2) = stemp(k2)
./pkg/opps/opps_calc.F 919 NLOPPS
            if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then
./model/src/find_alpha.F 298 FIND_ALPHA
         sa      = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 303 FIND_ALPHA
         IF ( sa .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 304 FIND_ALPHA
          sqrtsa = SQRT(sa)
./model/src/find_alpha.F 306 FIND_ALPHA
          sa     = 0. _d 0
./model/src/find_alpha.F 313 FIND_ALPHA
     &   + sa*(teos(06) + 2.*teos(07)*ct
./model/src/find_alpha.F 315 FIND_ALPHA
     &   + p*(     teos(13) + 2.*teos(14)*ct  + sa*2.*teos(16)
./model/src/find_alpha.F 320 FIND_ALPHA
     &   + sa*(teos(27)
./model/src/find_alpha.F 326 FIND_ALPHA
     &   + p*(teos(44) + 2.*teos(45)*ct + teos(46)*sa
./model/src/find_alpha.F 390 FIND_BETA
      _RL ct, sa, sqrtsa, p
./model/src/find_alpha.F 605 FIND_BETA
         sa      = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 60 FIND_ALPHA
      _RL ct, sa, sqrtsa, p
./model/src/find_alpha.F 610 FIND_BETA
         IF ( sa .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 611 FIND_BETA
          sqrtsa = SQRT(sa)
./model/src/find_alpha.F 613 FIND_BETA
          sa     = 0. _d 0
./model/src/find_alpha.F 625 FIND_BETA
     &   + 2.*teos(36)*sa
./model/src/find_rho.F 1128 FIND_RHO_SCALAR
       sa      = sLoc
./model/src/find_rho.F 1129 FIND_RHO_SCALAR
       IF ( sa .GT. 0. _d 0 ) THEN
./model/src/find_rho.F 1130 FIND_RHO_SCALAR
        sqrtsa = SQRT(sa)
./model/src/find_rho.F 1132 FIND_RHO_SCALAR
        sa     = 0. _d 0
./model/src/find_rho.F 1139 FIND_RHO_SCALAR
     &   + sa*(teos(05) + ct*(teos(06) + teos(07)*ct)
./model/src/find_rho.F 1143 FIND_RHO_SCALAR
     &                      + sa*(teos(15) + teos(16)*ct)
./model/src/find_rho.F 1144 FIND_RHO_SCALAR
     &   + p*(teos(17) + ct*(teos(18) + teos(19)*ct) + teos(20)*sa))
./model/src/find_rho.F 1148 FIND_RHO_SCALAR
     &   + sa*(teos(26) + ct*(teos(27) + ct*(teos(28)
./model/src/find_rho.F 1150 FIND_RHO_SCALAR
     &   + teos(36)*sa
./model/src/find_rho.F 1154 FIND_RHO_SCALAR
     %   + sa*(teos(41) + teos(42)*ct)
./model/src/find_rho.F 1155 FIND_RHO_SCALAR
     %   + p*(teos(43) + ct*(teos(44) + teos(45)*ct + teos(46)*sa)
./model/src/find_rho.F 779 FIND_RHOTEOS
      _RL ct, sa, sqrtsa, p
./model/src/find_rho.F 787 FIND_RHOTEOS
        sa      = sFld(i,j)
./model/src/find_rho.F 792 FIND_RHOTEOS
        IF ( sa .GT. 0. _d 0 ) THEN
./model/src/find_rho.F 793 FIND_RHOTEOS
         sqrtsa = SQRT(sa)
./model/src/find_rho.F 795 FIND_RHOTEOS
         sa     = 0. _d 0
./model/src/find_rho.F 802 FIND_RHOTEOS
     &   + sa*(teos(05) + ct*(teos(06) + teos(07)*ct)
./model/src/find_rho.F 806 FIND_RHOTEOS
     &                 + sa*(teos(15) + teos(16)*ct)
./model/src/find_rho.F 807 FIND_RHOTEOS
     &   + p*(teos(17) + ct*(teos(18) + teos(19)*ct) + teos(20)*sa))
./model/src/find_rho.F 811 FIND_RHOTEOS
     &   + sa*(teos(26) + ct*(teos(27) + ct*(teos(28)
./model/src/find_rho.F 813 FIND_RHOTEOS
     &   + teos(36)*sa
./model/src/find_rho.F 817 FIND_RHOTEOS
     &   + sa*(teos(41) + teos(42)*ct)
./model/src/find_rho.F 818 FIND_RHOTEOS
     &   + p*(teos(43) + ct*(teos(44) + teos(45)*ct + teos(46)*sa)
./model/src/find_rho.F 862 FIND_RHO_SCALAR
      _RL ct, sa, sqrtsa, p
./model/src/gsw_teos10.F 100 NO PROCEDURE
      ct_diff        = gsw_ct_from_pt(sa,pt) - CT
./model/src/gsw_teos10.F 131 NO PROCEDURE
      _RL sa, pt
./model/src/gsw_teos10.F 144 NO PROCEDURE
      x2   = sfac*sa
./model/src/gsw_teos10.F 199 NO PROCEDURE
      _RL sa, pt0
./model/src/gsw_teos10.F 211 NO PROCEDURE
      x2   = sfac*sa
./model/src/gsw_teos10.F 92 NO PROCEDURE
      ct_diff = gsw_ct_from_pt(sa,pt) - CT
./model/src/gsw_teos10.F 97 NO PROCEDURE
      dct_dpt = -(ptm + 273.15 _d 0)*gsw_gibbs_pt0_pt0(sa,ptm)/cp0