Symbol Description Uses
s1 95


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 
         bMsalt = s1 * ( eosS1 +
./model/src/find_rho.F 1023 FIND_RHO_SCALAR 
     &          + p1*s1*( eosP5 +
./model/src/find_rho.F 1030 FIND_RHO_SCALAR 
     &         + p2*s1* ( eosP12 +
./model/src/find_rho.F 1036 FIND_RHO_SCALAR 
     &        s1*( eosJMDCKSw(1)
./model/src/find_rho.F 1052 FIND_RHO_SCALAR 
     &   + p1*s1*( eosJMDCKP(5)
./model/src/find_rho.F 1061 FIND_RHO_SCALAR 
     &    + p2*s1*( eosJMDCKP(12)
./model/src/find_rho.F 1074 FIND_RHO_SCALAR 
       sp5 = SQRT(s1)
./model/src/find_rho.F 1082 FIND_RHO_SCALAR 
     &      + s1*(eosMDJWFnum(4)
./model/src/find_rho.F 1083 FIND_RHO_SCALAR 
     &      +     eosMDJWFnum(5)*t1  + eosMDJWFnum(6)*s1)
./model/src/find_rho.F 1085 FIND_RHO_SCALAR 
     &      +     eosMDJWFnum(9)*s1
./model/src/find_rho.F 1092 FIND_RHO_SCALAR 
     &      + s1*(eosMDJWFden(5)
./model/src/find_rho.F 608 FIND_RHONUM 
      _RL t1, t2, s1, p1
./model/src/find_rho.F 615 FIND_RHONUM 
            s1  = sFld(i,j)
./model/src/find_rho.F 622 FIND_RHONUM 
     &           + s1*(eosMDJWFnum(4)
./model/src/find_rho.F 623 FIND_RHONUM 
     &           +     eosMDJWFnum(5)*t1  + eosMDJWFnum(6)*s1)
./model/src/find_rho.F 625 FIND_RHONUM 
     &           +     eosMDJWFnum(9)*s1
./model/src/find_rho.F 674 FIND_RHODEN 
      _RL t1, t2, s1, sp5, p1, p1t1
./model/src/find_rho.F 683 FIND_RHODEN 
            s1  = sFld(i,j)
./model/src/find_rho.F 688 FIND_RHODEN 
           IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_rho.F 689 FIND_RHODEN 
            sp5 = SQRT(s1)
./model/src/find_rho.F 691 FIND_RHODEN 
            s1  = 0. _d 0
./model/src/find_rho.F 702 FIND_RHODEN 
     &           + s1*(eosMDJWFden(5)
./model/src/find_rho.F 840 FIND_RHO_SCALAR 
      _RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1
./model/src/find_rho.F 905 FIND_RHO_SCALAR 
      s1  = sLoc
./model/src/find_rho.F 906 FIND_RHO_SCALAR 
      IF ( s1 .LT. 0. _d 0 ) THEN
./model/src/find_rho.F 909 FIND_RHO_SCALAR 
     &        ' FIND_RHO_SCALAR:   WARNING, salinity = ', s1
./model/src/find_rho.F 912 FIND_RHO_SCALAR 
         s1 = 0. _d 0
./model/src/find_rho.F 941 FIND_RHO_SCALAR 
         s3o2 = s1*SQRT(s1)
./model/src/find_rho.F 966 FIND_RHO_SCALAR 
         rsalt =   s1 * ( eosS1 +
./model/src/find_rho.F 974 FIND_RHO_SCALAR 
     &         + s1*s1*   eosS9
./model/src/find_rho.F 977 FIND_RHO_SCALAR 
     &        s1*(
./model/src/find_rho.F 989 FIND_RHO_SCALAR 
     &           + eosJMDCSw(9)*s1*s1