Symbol Description Uses
s1 101


File Line number Procedure Code
./pkg/mnc/mnc_cwrapper.F 158 MNC_CW_DUMP 
      character s1*(NBLNK), blnk*(NBLNK)
./pkg/mnc/mnc_cwrapper.F 166 MNC_CW_DUMP 
      s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 167 MNC_CW_DUMP 
      write(s1,'(a5,a)') 'MNC: ',
./pkg/mnc/mnc_cwrapper.F 170 MNC_CW_DUMP 
     &     s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 177 MNC_CW_DUMP 
          s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 178 MNC_CW_DUMP 
          write(s1,'(a5,2i5,a3,a20,i3,a3,5i4,a4,5i4,a4,5i4,6a8)')
./pkg/mnc/mnc_cwrapper.F 186 MNC_CW_DUMP 
     &         s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 191 MNC_CW_DUMP 
      s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 192 MNC_CW_DUMP 
      write(s1,'(a5,a)') 'MNC: ',
./pkg/mnc/mnc_cwrapper.F 195 MNC_CW_DUMP 
     &     s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 202 MNC_CW_DUMP 
          s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 203 MNC_CW_DUMP 
          write(s1,'(a5,2i5,a3,a25,a3,i4)') 'MNC: ',
./pkg/mnc/mnc_cwrapper.F 207 MNC_CW_DUMP 
     &         s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 210 MNC_CW_DUMP 
            s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 211 MNC_CW_DUMP 
            write(s1,'(a5,a14,i4,a3,a25,a3,a55)')
./pkg/mnc/mnc_cwrapper.F 216 MNC_CW_DUMP 
     &           s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 219 MNC_CW_DUMP 
            s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 220 MNC_CW_DUMP 
            write(s1,'(a5,a14,i4,a3,a25,a3,i20)')
./pkg/mnc/mnc_cwrapper.F 225 MNC_CW_DUMP 
     &           s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 228 MNC_CW_DUMP 
            s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 229 MNC_CW_DUMP 
            write(s1,'(a5,a14,i4,a3,a25,a3,f25.10)')
./pkg/mnc/mnc_cwrapper.F 234 MNC_CW_DUMP 
     &           s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 240 MNC_CW_DUMP 
        s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 241 MNC_CW_DUMP 
        write(s1,'(a)') 'MNC:    None defined!'
./pkg/mnc/mnc_cwrapper.F 243 MNC_CW_DUMP 
     &       s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_file.F 259 MNC_FILE_ADD_ATTR_ANY 
      character*(MNC_MAX_CHAR) s1
./pkg/mnc/mnc_file.F 279 MNC_FILE_ADD_ATTR_ANY 
      s1(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_file.F 281 MNC_FILE_ADD_ATTR_ANY 
      s1(1:n1) = atname(1:n1)
./pkg/mnc/mnc_file.F 285 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_TEXT(fid, NF_GLOBAL, s1, lens, sv)
./pkg/mnc/mnc_file.F 290 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_DOUBLE(fid, NF_GLOBAL, s1, NF_DOUBLE, len, dv)
./pkg/mnc/mnc_file.F 295 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_REAL(fid, NF_GLOBAL, s1, NF_FLOAT, len, rv)
./pkg/mnc/mnc_file.F 300 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_INT(fid, NF_GLOBAL, s1, NF_INT, len, iv)
./model/src/find_alpha.F 148 FIND_ALPHA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 149 FIND_ALPHA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 150 FIND_ALPHA 
               s3o2 = SQRT(s1*s1*s1)
./model/src/find_alpha.F 152 FIND_ALPHA 
               s1   = 0. _d 0
./model/src/find_alpha.F 169 FIND_ALPHA 
     &        s1*(
./model/src/find_alpha.F 188 FIND_ALPHA 
     &        s1*(    eosJMDCKSw(2)
./model/src/find_alpha.F 201 FIND_ALPHA 
     &   + p1*s1*(    eosJMDCKP(6)
./model/src/find_alpha.F 207 FIND_ALPHA 
     &   + p2*s1*(    eosJMDCKP(13)
./model/src/find_alpha.F 247 FIND_ALPHA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 252 FIND_ALPHA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 253 FIND_ALPHA 
               sp5 = SQRT(s1)
./model/src/find_alpha.F 255 FIND_ALPHA 
               s1  = 0. _d 0
./model/src/find_alpha.F 264 FIND_ALPHA 
     &              + eosMDJWFnum(5)*s1
./model/src/find_alpha.F 271 FIND_ALPHA 
     &              + s1*(eosMDJWFden(6)
./model/src/find_alpha.F 389 FIND_BETA 
      _RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1
./model/src/find_alpha.F 472 FIND_BETA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 477 FIND_BETA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 478 FIND_BETA 
               s3o2 = 1.5*SQRT(s1)
./model/src/find_alpha.F 480 FIND_BETA 
               s1   = 0. _d 0
./model/src/find_alpha.F 501 FIND_BETA 
     &              + 2*eosJMDCSw(9)*s1
./model/src/find_alpha.F 561 FIND_BETA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 566 FIND_BETA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 567 FIND_BETA 
               sp5 = SQRT(s1)
./model/src/find_alpha.F 569 FIND_BETA 
               s1  = 0. _d 0
./model/src/find_alpha.F 578 FIND_BETA 
     &              + 2.*eosMDJWFnum(6)*s1 + eosMDJWFnum(9)*p1
./model/src/find_alpha.F 59 FIND_ALPHA 
      _RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1
./model/src/find_rho.F 1011 FIND_RHO_SCALAR 
     &           + eosJMDCSw(9)*s1*s1
./model/src/find_rho.F 1033 FIND_RHO_SCALAR 
         bMsalt = s1 * ( eosS1 +
./model/src/find_rho.F 1045 FIND_RHO_SCALAR 
     &          + p1*s1*( eosP5 +
./model/src/find_rho.F 1052 FIND_RHO_SCALAR 
     &         + p2*s1* ( eosP12 +
./model/src/find_rho.F 1058 FIND_RHO_SCALAR 
     &        s1*( eosJMDCKSw(1)
./model/src/find_rho.F 1074 FIND_RHO_SCALAR 
     &   + p1*s1*( eosJMDCKP(5)
./model/src/find_rho.F 1083 FIND_RHO_SCALAR 
     &    + p2*s1*( eosJMDCKP(12)
./model/src/find_rho.F 1096 FIND_RHO_SCALAR 
       sp5 = SQRT(s1)
./model/src/find_rho.F 1104 FIND_RHO_SCALAR 
     &      + s1*(eosMDJWFnum(4)
./model/src/find_rho.F 1105 FIND_RHO_SCALAR 
     &      +     eosMDJWFnum(5)*t1  + eosMDJWFnum(6)*s1)
./model/src/find_rho.F 1107 FIND_RHO_SCALAR 
     &      +     eosMDJWFnum(9)*s1
./model/src/find_rho.F 1114 FIND_RHO_SCALAR 
     &      + s1*(eosMDJWFden(5)
./model/src/find_rho.F 629 FIND_RHONUM 
      _RL t1, t2, s1, p1
./model/src/find_rho.F 636 FIND_RHONUM 
            s1  = sFld(i,j)
./model/src/find_rho.F 643 FIND_RHONUM 
     &           + s1*(eosMDJWFnum(4)
./model/src/find_rho.F 644 FIND_RHONUM 
     &           +     eosMDJWFnum(5)*t1  + eosMDJWFnum(6)*s1)
./model/src/find_rho.F 646 FIND_RHONUM 
     &           +     eosMDJWFnum(9)*s1
./model/src/find_rho.F 695 FIND_RHODEN 
      _RL t1, t2, s1, sp5, p1, p1t1
./model/src/find_rho.F 704 FIND_RHODEN 
            s1  = sFld(i,j)
./model/src/find_rho.F 709 FIND_RHODEN 
           IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_rho.F 710 FIND_RHODEN 
            sp5 = SQRT(s1)
./model/src/find_rho.F 712 FIND_RHODEN 
            s1  = 0. _d 0
./model/src/find_rho.F 723 FIND_RHODEN 
     &           + s1*(eosMDJWFden(5)
./model/src/find_rho.F 861 FIND_RHO_SCALAR 
      _RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1
./model/src/find_rho.F 927 FIND_RHO_SCALAR 
      s1  = sLoc
./model/src/find_rho.F 928 FIND_RHO_SCALAR 
      IF ( s1 .LT. 0. _d 0 ) THEN
./model/src/find_rho.F 931 FIND_RHO_SCALAR 
     &        ' FIND_RHO_SCALAR:   WARNING, salinity = ', s1
./model/src/find_rho.F 934 FIND_RHO_SCALAR 
         s1 = 0. _d 0
./model/src/find_rho.F 963 FIND_RHO_SCALAR 
         s3o2 = s1*SQRT(s1)
./model/src/find_rho.F 988 FIND_RHO_SCALAR 
         rsalt =   s1 * ( eosS1 +
./model/src/find_rho.F 996 FIND_RHO_SCALAR 
     &         + s1*s1*   eosS9
./model/src/find_rho.F 999 FIND_RHO_SCALAR 
     &        s1*(
./model/src/gsw_teos10.F 53 NO PROCEDURE 
      _RL s1, p0, cp0
./model/src/gsw_teos10.F 64 NO PROCEDURE 
      s1 = SA * 35. _d 0 / 35.16504 _d 0
./model/src/gsw_teos10.F 82 NO PROCEDURE 
      ct_factor = (a3 + a4*s1 + a5ct)
./model/src/gsw_teos10.F 83 NO PROCEDURE 
      pt_num    = a0 + s1*(a1 + a2*s1) + CT*ct_factor
./model/src/gsw_teos10.F 84 NO PROCEDURE 
      pt_den    = b0 + b1*s1 + CT*(b2 + b3ct)