Symbol Description Uses
s1 104


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)
./pkg/opps/opps_calc.F 472 OPPS_CALC 
      _RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1
./pkg/opps/opps_calc.F 521 OPPS_CALC 
      s1  = sLoc
./pkg/opps/opps_calc.F 544 OPPS_CALC 
         s3o2 = s1*SQRT(s1)
./pkg/opps/opps_calc.F 559 OPPS_CALC 
     &        s1*(
./pkg/opps/opps_calc.F 571 OPPS_CALC 
     &           + eosJMDCSw(9)*s1*s1
./pkg/opps/opps_calc.F 584 OPPS_CALC 
     &        s1*( eosJMDCKSw(1)
./pkg/opps/opps_calc.F 600 OPPS_CALC 
     &   + p1*s1*( eosJMDCKP(5)
./pkg/opps/opps_calc.F 609 OPPS_CALC 
     &    + p2*s1*( eosJMDCKP(12)
./pkg/opps/opps_calc.F 621 OPPS_CALC 
         sp5 = SQRT(s1)
./pkg/opps/opps_calc.F 629 OPPS_CALC 
     &        + s1*(eosMDJWFnum(4)
./pkg/opps/opps_calc.F 630 OPPS_CALC 
     &        +     eosMDJWFnum(5)*t1  + eosMDJWFnum(6)*s1)
./pkg/opps/opps_calc.F 632 OPPS_CALC 
     &        +     eosMDJWFnum(9)*s1
./pkg/opps/opps_calc.F 640 OPPS_CALC 
     &        + s1*(eosMDJWFden(5)
./model/src/find_alpha.F 139 FIND_ALPHA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 140 FIND_ALPHA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 141 FIND_ALPHA 
               s3o2 = SQRT(s1*s1*s1)
./model/src/find_alpha.F 143 FIND_ALPHA 
               s1   = 0. _d 0
./model/src/find_alpha.F 160 FIND_ALPHA 
     &        s1*(
./model/src/find_alpha.F 179 FIND_ALPHA 
     &        s1*(    eosJMDCKSw(2)
./model/src/find_alpha.F 192 FIND_ALPHA 
     &   + p1*s1*(    eosJMDCKP(6)
./model/src/find_alpha.F 198 FIND_ALPHA 
     &   + p2*s1*(    eosJMDCKP(13)
./model/src/find_alpha.F 239 FIND_ALPHA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 240 FIND_ALPHA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 241 FIND_ALPHA 
               sp5 = SQRT(s1)
./model/src/find_alpha.F 243 FIND_ALPHA 
               s1  = 0. _d 0
./model/src/find_alpha.F 252 FIND_ALPHA 
     &              + eosMDJWFnum(5)*s1
./model/src/find_alpha.F 259 FIND_ALPHA 
     &              + s1*(eosMDJWFden(6)
./model/src/find_alpha.F 317 FIND_BETA 
      _RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1
./model/src/find_alpha.F 399 FIND_BETA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 400 FIND_BETA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 401 FIND_BETA 
               s3o2 = 1.5*SQRT(s1)
./model/src/find_alpha.F 403 FIND_BETA 
               s1   = 0. _d 0
./model/src/find_alpha.F 424 FIND_BETA 
     &              + 2*eosJMDCSw(9)*s1
./model/src/find_alpha.F 485 FIND_BETA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 486 FIND_BETA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 487 FIND_BETA 
               sp5 = SQRT(s1)
./model/src/find_alpha.F 489 FIND_BETA 
               s1  = 0. _d 0
./model/src/find_alpha.F 498 FIND_BETA 
     &              + 2.*eosMDJWFnum(6)*s1 + eosMDJWFnum(9)*p1
./model/src/find_alpha.F 55 FIND_ALPHA 
      _RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1
./model/src/find_rho.F 458 FIND_RHONUM 
      _RL t1, t2, s1, p1
./model/src/find_rho.F 465 FIND_RHONUM 
            s1  = sFld(i,j)
./model/src/find_rho.F 472 FIND_RHONUM 
     &           + s1*(eosMDJWFnum(4)
./model/src/find_rho.F 473 FIND_RHONUM 
     &           +     eosMDJWFnum(5)*t1  + eosMDJWFnum(6)*s1)
./model/src/find_rho.F 475 FIND_RHONUM 
     &           +     eosMDJWFnum(9)*s1
./model/src/find_rho.F 524 FIND_RHODEN 
      _RL t1, t2, s1, sp5, p1, p1t1
./model/src/find_rho.F 533 FIND_RHODEN 
            s1  = sFld(i,j)
./model/src/find_rho.F 534 FIND_RHODEN 
           IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_rho.F 535 FIND_RHODEN 
            sp5 = SQRT(s1)
./model/src/find_rho.F 537 FIND_RHODEN 
            s1  = 0. _d 0
./model/src/find_rho.F 548 FIND_RHODEN 
     &           + s1*(eosMDJWFden(5)
./model/src/find_rho.F 595 FIND_RHO_SCALAR 
      _RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1
./model/src/find_rho.F 620 FIND_RHO_SCALAR 
      s1  = sLoc
./model/src/find_rho.F 621 FIND_RHO_SCALAR 
      IF ( s1 .LT. 0. _d 0 ) THEN
./model/src/find_rho.F 624 FIND_RHO_SCALAR 
     &        ' FIND_RHO_SCALAR:   WARNING, salinity = ', s1
./model/src/find_rho.F 627 FIND_RHO_SCALAR 
         s1 = 0. _d 0
./model/src/find_rho.F 656 FIND_RHO_SCALAR 
         s3o2 = s1*SQRT(s1)
./model/src/find_rho.F 671 FIND_RHO_SCALAR 
     &        s1*(
./model/src/find_rho.F 683 FIND_RHO_SCALAR 
     &           + eosJMDCSw(9)*s1*s1
./model/src/find_rho.F 696 FIND_RHO_SCALAR 
     &        s1*( eosJMDCKSw(1)
./model/src/find_rho.F 712 FIND_RHO_SCALAR 
     &   + p1*s1*( eosJMDCKP(5)
./model/src/find_rho.F 721 FIND_RHO_SCALAR 
     &    + p2*s1*( eosJMDCKP(12)
./model/src/find_rho.F 733 FIND_RHO_SCALAR 
         sp5 = SQRT(s1)
./model/src/find_rho.F 741 FIND_RHO_SCALAR 
     &        + s1*(eosMDJWFnum(4)
./model/src/find_rho.F 742 FIND_RHO_SCALAR 
     &        +     eosMDJWFnum(5)*t1  + eosMDJWFnum(6)*s1)
./model/src/find_rho.F 744 FIND_RHO_SCALAR 
     &        +     eosMDJWFnum(9)*s1
./model/src/find_rho.F 752 FIND_RHO_SCALAR 
     &        + s1*(eosMDJWFden(5)