Symbol Description Uses
S (total) power of the filter for T,S, Velocity 110


File Line number Procedure Code
./pkg/sphere/sphere.F 265 SHCROTATE 
      REAL    SINA, COSA, C, S
./pkg/sphere/sphere.F 282 SHCROTATE 
               S = SHC(K-M)
./pkg/sphere/sphere.F 283 SHCROTATE 
               SHC(K+M) = COSA*C + SINA*S
./pkg/sphere/sphere.F 284 SHCROTATE 
               SHC(K-M) =-SINA*C + COSA*S
./pkg/sphere/sphere.F 531 HELMHOLTZ 
      SUBROUTINE HELMHOLTZ(LMAX,S,P)
./pkg/sphere/sphere.F 538 HELMHOLTZ 
      REAL    S           ! INPUT  sin(latitude).
./pkg/sphere/sphere.F 569 HELMHOLTZ 
      C  = SNGL(DSQRT(1.0D0-DBLE(S)*DBLE(S)))
./pkg/sphere/sphere.F 582 HELMHOLTZ 
            P(K) = S*P(K-1)/AK
./pkg/sphere/sphere.F 590 HELMHOLTZ 
               P(K) =(S*P(K-1)-P(K-2)*A(M))/AK
./pkg/sbo/sbo_rho.F 106 NO PROCEDURE 
      SR = ((((9.1697E-10*T+2.0816E-8)*T-9.9348E-7) * S +
./pkg/sbo/sbo_rho.F 109 NO PROCEDURE 
     &     S + ((-5.77905E-7*T+1.16092E-4)*T+1.43713E-3)*T-0.1194975)
./pkg/sbo/sbo_rho.F 111 NO PROCEDURE 
     &     ((-6.1670E-5*T+1.09987E-2)*T-0.603459)*T+54.6746) * S +
./pkg/sbo/sbo_rho.F 23 NO PROCEDURE 
      _RL DPT,LAT,S,T
./pkg/sbo/sbo_rho.F 49 NO PROCEDURE 
     &     ((2.7759E-12*T-1.1351E-10)*(S-35.0)+
./pkg/sbo/sbo_rho.F 51 NO PROCEDURE 
     &     1.8741E-8))*P+(-4.2393E-8*T+1.8932E-6)*(S-35.0)+
./pkg/sbo/sbo_rho.F 57 NO PROCEDURE 
     &     ((2.7759E-12*T-1.1351E-10)*(S-35.0)+
./pkg/sbo/sbo_rho.F 59 NO PROCEDURE 
     &     1.8741E-8))*P+(-4.2393E-8*T+1.8932E-6)*(S-35.0)+
./pkg/sbo/sbo_rho.F 65 NO PROCEDURE 
     &     ((2.7759E-12*T-1.1351E-10)*(S-35.0)+
./pkg/sbo/sbo_rho.F 67 NO PROCEDURE 
     &     1.8741E-8))*P+(-4.2393E-8*T+1.8932E-6)*(S-35.0)+
./pkg/sbo/sbo_rho.F 6 NO PROCEDURE 
      _RL FUNCTION SBO_RHO( DPT, LAT, S, T )
./pkg/sbo/sbo_rho.F 74 NO PROCEDURE 
     &     ((2.7759E-12*T-1.1351E-10)*(S-35.0)+
./pkg/sbo/sbo_rho.F 76 NO PROCEDURE 
     &     1.8741E-8))*P+(-4.2393E-8*T+1.8932E-6)*(S-35.0)+
./pkg/sbo/sbo_rho.F 92 NO PROCEDURE 
      SR = sqrt(abs(S))
./pkg/sbo/sbo_rho.F 95 NO PROCEDURE 
      x = (4.8314E-4 * S +
./pkg/sbo/sbo_rho.F 98 NO PROCEDURE 
     &     +8.24493E-1)*S + ((((6.536332E-9*T-1.120083E-6)