Symbol Description Uses
s 87


File Line number Procedure Code
./pkg/admtlm/admtlm_dsvd.F 172 ADMTLM_DSVD 
     &                 s(maxncv,2), resid(maxn), ax(maxm)
./pkg/admtlm/admtlm_dsvd.F 543 ADMTLM_DSVD 
         call DSEUPD ( rvec, 'All', select, s, v, ldv, sigma,
./pkg/admtlm/admtlm_dsvd.F 572 ADMTLM_DSVD 
               print *, 'ph-ev ', j, s(j,1), s(j,2)
./pkg/admtlm/admtlm_dsvd.F 579 ADMTLM_DSVD 
               s(j,1) = sqrt(s(j,1))
./pkg/admtlm/admtlm_dsvd.F 629 ADMTLM_DSVD 
               call DAXPY(m, -s(j,1), u(1,j), 1, tmpvec2, 1)
./pkg/admtlm/admtlm_dsvd.F 630 ADMTLM_DSVD 
               s(j,2) = dnrm2(m, tmpvec2, 1)
./pkg/admtlm/admtlm_dsvd.F 638 ADMTLM_DSVD 
            call DMOUT(6, nconv, 2, s, maxncv, -6,
./pkg/dic/carbon_chem.F 1000 CARBON_COEFFS_PRESSURE_DEP 
     &          0.0118 * s + 0.000116*s2))
./pkg/dic/carbon_chem.F 1002 CARBON_COEFFS_PRESSURE_DEP 
     &          0.0184*s + 0.000118*s2))
./pkg/dic/carbon_chem.F 1019 CARBON_COEFFS_PRESSURE_DEP 
           akb(i,j,bi,bj)=exp((-8966.90 - 2890.53*sqrts - 77.942*s +
./pkg/dic/carbon_chem.F 1021 CARBON_COEFFS_PRESSURE_DEP 
     &          (148.0248 + 137.1942*sqrts + 1.62142*s) +
./pkg/dic/carbon_chem.F 1022 CARBON_COEFFS_PRESSURE_DEP 
     &          (-24.4344 - 25.085*sqrts - 0.2474*s) *
./pkg/dic/carbon_chem.F 1040 CARBON_COEFFS_PRESSURE_DEP 
     &          (-0.65643*invtk - 0.01844)*s)
./pkg/dic/carbon_chem.F 1047 CARBON_COEFFS_PRESSURE_DEP 
     &          (0.37335*invtk - 0.05778) * s)
./pkg/dic/carbon_chem.F 1053 CARBON_COEFFS_PRESSURE_DEP 
     &          sqrts + (-44.99486*invtk - 0.09984) * s)
./pkg/dic/carbon_chem.F 1062 CARBON_COEFFS_PRESSURE_DEP 
     &          log(1.0-0.001005*s))
./pkg/dic/carbon_chem.F 1069 CARBON_COEFFS_PRESSURE_DEP 
     &          sqrts - 0.01615 * s)
./pkg/dic/carbon_chem.F 1078 CARBON_COEFFS_PRESSURE_DEP 
     &          log(1.0 - 0.001005*s))
./pkg/dic/carbon_chem.F 1083 CARBON_COEFFS_PRESSURE_DEP 
     &          log(1.0 - 0.001005*s) +
./pkg/dic/carbon_chem.F 1111 CARBON_COEFFS_PRESSURE_DEP 
         tmpa3 = -(0.07711*s) + (0.0041249*s15)
./pkg/dic/carbon_chem.F 13 CALC_PCO2 
     I                       t,s,diclocal,pt,sit,ta,
./pkg/dic/carbon_chem.F 341 CALC_PCO2_APPROX_CO3 
     I                       t,s,diclocal,pt,sit,ta,
./pkg/dic/carbon_chem.F 371 CALC_PCO2_APPROX_CO3 
        _RL  t, s, pt, sit, ta
./pkg/dic/carbon_chem.F 478 CALC_PCO2_APPROX 
     I                       t,s,diclocal,pt,sit,ta,
./pkg/dic/carbon_chem.F 48 CALC_PCO2 
        _RL  t, s, pt, sit, ta
./pkg/dic/carbon_chem.F 507 CALC_PCO2_APPROX 
        _RL  t, s, pt, sit, ta
./pkg/dic/carbon_chem.F 660 CARBON_COEFFS 
        _RL  s
./pkg/dic/carbon_chem.F 697 CARBON_COEFFS 
           s = stemp(i,j,1,bi,bj)
./pkg/dic/carbon_chem.F 704 CARBON_COEFFS 
           is=19.924*s/(1000.-1.005*s)
./pkg/dic/carbon_chem.F 707 CARBON_COEFFS 
           s2=s*s
./pkg/dic/carbon_chem.F 708 CARBON_COEFFS 
           sqrts=sqrt(s)
./pkg/dic/carbon_chem.F 709 CARBON_COEFFS 
           s15=s**1.5
./pkg/dic/carbon_chem.F 710 CARBON_COEFFS 
           scl=s/1.80655
./pkg/dic/carbon_chem.F 716 CARBON_COEFFS 
     &          s * (.025695 - .025225*tk100 +
./pkg/dic/carbon_chem.F 722 CARBON_COEFFS 
     &        s * (0.023517 - 0.023656*tk100 +
./pkg/dic/carbon_chem.F 730 CARBON_COEFFS 
     &          0.0118 * s + 0.000116*s2))
./pkg/dic/carbon_chem.F 732 CARBON_COEFFS 
     &          0.0184*s + 0.000118*s2))
./pkg/dic/carbon_chem.F 736 CARBON_COEFFS 
           akb(i,j,bi,bj)=exp((-8966.90 - 2890.53*sqrts - 77.942*s +
./pkg/dic/carbon_chem.F 738 CARBON_COEFFS 
     &          (148.0248 + 137.1942*sqrts + 1.62142*s) +
./pkg/dic/carbon_chem.F 739 CARBON_COEFFS 
     &          (-24.4344 - 25.085*sqrts - 0.2474*s) *
./pkg/dic/carbon_chem.F 747 CARBON_COEFFS 
     &          (-0.65643*invtk - 0.01844)*s)
./pkg/dic/carbon_chem.F 754 CARBON_COEFFS 
     &          (0.37335*invtk - 0.05778) * s)
./pkg/dic/carbon_chem.F 760 CARBON_COEFFS 
     &          sqrts + (-44.99486*invtk - 0.09984) * s)
./pkg/dic/carbon_chem.F 769 CARBON_COEFFS 
     &          log(1.0-0.001005*s))
./pkg/dic/carbon_chem.F 776 CARBON_COEFFS 
     &          sqrts - 0.01615 * s)
./pkg/dic/carbon_chem.F 785 CARBON_COEFFS 
     &          log(1.0 - 0.001005*s))
./pkg/dic/carbon_chem.F 790 CARBON_COEFFS 
     &          log(1.0 - 0.001005*s) +
./pkg/dic/carbon_chem.F 892 CARBON_COEFFS_PRESSURE_DEP 
        _RL  s
./pkg/dic/carbon_chem.F 966 CARBON_COEFFS_PRESSURE_DEP 
           s = stemp(i,j,Klevel,bi,bj)
./pkg/dic/carbon_chem.F 973 CARBON_COEFFS_PRESSURE_DEP 
           is=19.924*s/(1000.-1.005*s)
./pkg/dic/carbon_chem.F 976 CARBON_COEFFS_PRESSURE_DEP 
           s2=s*s
./pkg/dic/carbon_chem.F 977 CARBON_COEFFS_PRESSURE_DEP 
           sqrts=sqrt(s)
./pkg/dic/carbon_chem.F 978 CARBON_COEFFS_PRESSURE_DEP 
           s15=s**1.5
./pkg/dic/carbon_chem.F 979 CARBON_COEFFS_PRESSURE_DEP 
           scl=s/1.80655
./pkg/dic/carbon_chem.F 986 CARBON_COEFFS_PRESSURE_DEP 
     &          s * (.025695 - .025225*tk100 +
./pkg/dic/carbon_chem.F 992 CARBON_COEFFS_PRESSURE_DEP 
     &        s * (0.023517 - 0.023656*tk100 +
./pkg/fizhi/fizhi_rayleigh.F 41 RAYLEIGH 
      _RL u(im,jm,lm),v(im,jm,lm),t(im,jm,lm),s(im,jm,lm)
./pkg/fizhi/fizhi_rayleigh.F 5 RAYLEIGH 
      subroutine RAYLEIGH(myid,pres,pkap,pekap,zsurf,u,v,t,s,im,jm,lm,
./pkg/fizhi/fizhi_rayleigh.F 68 RAYLEIGH 
     .                (1.+virtcon*s(i,j,L))
./pkg/fizhi/fizhi_moist.F 2606 CTEI 
      _RL    getcon,cp,alhl,elocp,cpoel,t,p,s,qs,dqsdt,dq
./pkg/fizhi/fizhi_moist.F 2629 CTEI 
      s = ( (k-krd)/(kmm-krd) )
./pkg/fizhi/fizhi_moist.F 2630 CTEI 
      f = 1.0 - min( 1.0 _d 0, max(0.0 _d 0,1.0-exp(-s)) )
./model/src/find_rho.F 249 FIND_RHOP0 
      _RL t, t2, t3, t4, s, s3o2
./model/src/find_rho.F 260 FIND_RHOP0 
            s  = sFld(i,j,k,bi,bj)
./model/src/find_rho.F 261 FIND_RHOP0 
           IF ( s .GT. 0. _d 0 ) THEN
./model/src/find_rho.F 262 FIND_RHOP0 
            s3o2 = s*SQRT(s)
./model/src/find_rho.F 264 FIND_RHOP0 
            s    = 0. _d 0
./model/src/find_rho.F 278 FIND_RHOP0 
     &         s*(
./model/src/find_rho.F 290 FIND_RHOP0 
     &           + eosJMDCSw(9)*s*s
./model/src/find_rho.F 342 FIND_BULKMOD 
      _RL t, t2, t3, t4, s, s3o2, p, p2
./model/src/find_rho.F 353 FIND_BULKMOD 
            s  = sFld(i,j,k,bi,bj)
./model/src/find_rho.F 354 FIND_BULKMOD 
          IF ( s .GT. 0. _d 0 ) THEN
./model/src/find_rho.F 355 FIND_BULKMOD 
            s3o2 = s*SQRT(s)
./model/src/find_rho.F 357 FIND_BULKMOD 
            s    = 0. _d 0
./model/src/find_rho.F 372 FIND_BULKMOD 
     &         s*( eosJMDCKSw(1)
./model/src/find_rho.F 388 FIND_BULKMOD 
     &     + p*s*( eosJMDCKP(5)
./model/src/find_rho.F 397 FIND_BULKMOD 
     &    + p2*s*( eosJMDCKP(12)
./pkg/sbo/sbo_calc.F 164 SBO_CALC 
      _RL s, t, u, v, density