Symbol Description Uses
s1 104


File Line number Procedure Code
./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 135 FIND_ALPHA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 136 FIND_ALPHA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 137 FIND_ALPHA 
               s3o2 = SQRT(s1*s1*s1)
./model/src/find_alpha.F 139 FIND_ALPHA 
               s1   = 0. _d 0
./model/src/find_alpha.F 156 FIND_ALPHA 
     &        s1*(
./model/src/find_alpha.F 175 FIND_ALPHA 
     &        s1*(    eosJMDCKSw(2)
./model/src/find_alpha.F 188 FIND_ALPHA 
     &   + p1*s1*(    eosJMDCKP(6)
./model/src/find_alpha.F 194 FIND_ALPHA 
     &   + p2*s1*(    eosJMDCKP(13)
./model/src/find_alpha.F 232 FIND_ALPHA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 233 FIND_ALPHA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 234 FIND_ALPHA 
               sp5 = SQRT(s1)
./model/src/find_alpha.F 236 FIND_ALPHA 
               s1  = 0. _d 0
./model/src/find_alpha.F 245 FIND_ALPHA 
     &              + eosMDJWFnum(5)*s1
./model/src/find_alpha.F 252 FIND_ALPHA 
     &              + s1*(eosMDJWFden(6)
./model/src/find_alpha.F 307 FIND_BETA 
      _RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1
./model/src/find_alpha.F 388 FIND_BETA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 389 FIND_BETA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 390 FIND_BETA 
               s3o2 = 1.5*SQRT(s1)
./model/src/find_alpha.F 392 FIND_BETA 
               s1   = 0. _d 0
./model/src/find_alpha.F 413 FIND_BETA 
     &              + 2*eosJMDCSw(9)*s1
./model/src/find_alpha.F 471 FIND_BETA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 472 FIND_BETA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 473 FIND_BETA 
               sp5 = SQRT(s1)
./model/src/find_alpha.F 475 FIND_BETA 
               s1  = 0. _d 0
./model/src/find_alpha.F 484 FIND_BETA 
     &              + 2.*eosMDJWFnum(6)*s1 + eosMDJWFnum(9)*p1
./model/src/find_alpha.F 52 FIND_ALPHA 
      _RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1
./model/src/find_rho.F 454 FIND_RHONUM 
      _RL t1, t2, s1, p1
./model/src/find_rho.F 461 FIND_RHONUM 
            s1  = sFld(i,j,k,bi,bj)
./model/src/find_rho.F 468 FIND_RHONUM 
     &           + s1*(eosMDJWFnum(4)
./model/src/find_rho.F 469 FIND_RHONUM 
     &           +     eosMDJWFnum(5)*t1  + eosMDJWFnum(6)*s1)
./model/src/find_rho.F 471 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,k,bi,bj)
./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 592 FIND_RHO_SCALAR 
      _RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1
./model/src/find_rho.F 618 FIND_RHO_SCALAR 
      s1  = sLoc
./model/src/find_rho.F 619 FIND_RHO_SCALAR 
      IF ( s1 .LT. 0. _d 0 ) THEN
./model/src/find_rho.F 622 FIND_RHO_SCALAR 
     &        ' FIND_RHO_SCALAR:   WARNING, salinity = ', s1
./model/src/find_rho.F 623 FIND_RHO_SCALAR 
         s1 = 0. _d 0
./model/src/find_rho.F 644 FIND_RHO_SCALAR 
         s3o2 = s1*SQRT(s1)
./model/src/find_rho.F 659 FIND_RHO_SCALAR 
     &        s1*(
./model/src/find_rho.F 671 FIND_RHO_SCALAR 
     &           + eosJMDCSw(9)*s1*s1
./model/src/find_rho.F 684 FIND_RHO_SCALAR 
     &        s1*( eosJMDCKSw(1)
./model/src/find_rho.F 700 FIND_RHO_SCALAR 
     &   + p1*s1*( eosJMDCKP(5)
./model/src/find_rho.F 709 FIND_RHO_SCALAR 
     &    + p2*s1*( eosJMDCKP(12)
./model/src/find_rho.F 721 FIND_RHO_SCALAR 
         sp5 = SQRT(s1)
./model/src/find_rho.F 729 FIND_RHO_SCALAR 
     &        + s1*(eosMDJWFnum(4)
./model/src/find_rho.F 730 FIND_RHO_SCALAR 
     &        +     eosMDJWFnum(5)*t1  + eosMDJWFnum(6)*s1)
./model/src/find_rho.F 732 FIND_RHO_SCALAR 
     &        +     eosMDJWFnum(9)*s1
./model/src/find_rho.F 740 FIND_RHO_SCALAR 
     &        + s1*(eosMDJWFden(5)
./pkg/mnc/mnc_cwrapper.F 141 MNC_CW_DUMP 
      character s1*(NBLNK), blnk*(NBLNK)
./pkg/mnc/mnc_cwrapper.F 149 MNC_CW_DUMP 
      s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 150 MNC_CW_DUMP 
      write(s1,'(a5,a)') 'MNC: ',
./pkg/mnc/mnc_cwrapper.F 153 MNC_CW_DUMP 
     &     s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 160 MNC_CW_DUMP 
          s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 161 MNC_CW_DUMP 
          write(s1,'(a5,2i5,a3,a20,i3,a3,5i4,a4,5i4,a4,5i4,6a8)')
./pkg/mnc/mnc_cwrapper.F 169 MNC_CW_DUMP 
     &         s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 174 MNC_CW_DUMP 
      s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 175 MNC_CW_DUMP 
      write(s1,'(a5,a)') 'MNC: ',
./pkg/mnc/mnc_cwrapper.F 178 MNC_CW_DUMP 
     &     s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 185 MNC_CW_DUMP 
          s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 186 MNC_CW_DUMP 
          write(s1,'(a5,2i5,a3,a25,a3,i4)') 'MNC: ',
./pkg/mnc/mnc_cwrapper.F 190 MNC_CW_DUMP 
     &         s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 193 MNC_CW_DUMP 
            s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 194 MNC_CW_DUMP 
            write(s1,'(a5,a14,i4,a3,a25,a3,a55)')
./pkg/mnc/mnc_cwrapper.F 199 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,a14,i4,a3,a25,a3,i20)')
./pkg/mnc/mnc_cwrapper.F 208 MNC_CW_DUMP 
     &           s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 211 MNC_CW_DUMP 
            s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 212 MNC_CW_DUMP 
            write(s1,'(a5,a14,i4,a3,a25,a3,f25.10)')
./pkg/mnc/mnc_cwrapper.F 217 MNC_CW_DUMP 
     &           s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_cwrapper.F 223 MNC_CW_DUMP 
        s1(1:NBLNK) = blnk(1:NBLNK)
./pkg/mnc/mnc_cwrapper.F 224 MNC_CW_DUMP 
        write(s1,'(a)') 'MNC:    None defined!'
./pkg/mnc/mnc_cwrapper.F 226 MNC_CW_DUMP 
     &       s1, standardMessageUnit, SQUEEZE_RIGHT, mythid)
./pkg/mnc/mnc_file.F 258 MNC_FILE_ADD_ATTR_ANY 
      character*(MNC_MAX_CHAR) s1
./pkg/mnc/mnc_file.F 277 MNC_FILE_ADD_ATTR_ANY 
      s1(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_file.F 279 MNC_FILE_ADD_ATTR_ANY 
      s1(1:n1) = atname(1:n1)
./pkg/mnc/mnc_file.F 283 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_TEXT(fid, NF_GLOBAL, s1, lens, sv)
./pkg/mnc/mnc_file.F 288 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_DOUBLE(fid, NF_GLOBAL, s1, NF_DOUBLE, len, dv)
./pkg/mnc/mnc_file.F 293 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_REAL(fid, NF_GLOBAL, s1, NF_FLOAT, len, rv)
./pkg/mnc/mnc_file.F 298 MNC_FILE_ADD_ATTR_ANY 
        err = NF_PUT_ATT_INT(fid, NF_GLOBAL, s1, NF_INT, len, iv)