Symbol Description Uses
p1 77


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 546 OPPS_CALC 
         p1 = pLoc*SItoBar
./pkg/opps/opps_calc.F 547 OPPS_CALC 
         p2 = p1*p1
./pkg/opps/opps_calc.F 595 OPPS_CALC 
     &        p1*( eosJMDCKP(1)
./pkg/opps/opps_calc.F 600 OPPS_CALC 
     &   + p1*s1*( eosJMDCKP(5)
./pkg/opps/opps_calc.F 604 OPPS_CALC 
     &      + p1*s3o2*eosJMDCKP(8)
./pkg/opps/opps_calc.F 617 OPPS_CALC 
         rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) - rhoConst
./pkg/opps/opps_calc.F 623 OPPS_CALC 
         p1   = pLoc*SItodBar
./pkg/opps/opps_calc.F 624 OPPS_CALC 
         p1t1 = p1*t1
./pkg/opps/opps_calc.F 631 OPPS_CALC 
     &        + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2
./pkg/opps/opps_calc.F 633 OPPS_CALC 
     &        +     p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) )
./pkg/opps/opps_calc.F 644 OPPS_CALC 
     &        + p1*(eosMDJWFden(10)
./pkg/opps/opps_calc.F 645 OPPS_CALC 
     &        +     p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) )
./model/src/find_alpha.F 143 FIND_ALPHA 
               p1  = locPres(i,j)*SItoBar
./model/src/find_alpha.F 144 FIND_ALPHA 
               p2 = p1*p1
./model/src/find_alpha.F 184 FIND_ALPHA 
     &        p1*(    eosJMDCKP(2)
./model/src/find_alpha.F 188 FIND_ALPHA 
     &   + p1*s1*(    eosJMDCKP(6)
./model/src/find_alpha.F 205 FIND_ALPHA 
     &              - bulkmod(i,j)*p1*drhoP0dtheta
./model/src/find_alpha.F 206 FIND_ALPHA 
     &              - rhoP0(i,j)*p1*dKdtheta )
./model/src/find_alpha.F 207 FIND_ALPHA 
     &              /( bulkmod(i,j) - p1 )**2
./model/src/find_alpha.F 240 FIND_ALPHA 
               p1   = locPres(i,j)*SItodBar
./model/src/find_alpha.F 241 FIND_ALPHA 
               p1t1 = p1*t1
./model/src/find_alpha.F 246 FIND_ALPHA 
     &              + p1t1*(2.*eosMDJWFnum(8) + 2.*eosMDJWFnum(11)*p1)
./model/src/find_alpha.F 255 FIND_ALPHA 
     &              + p1*p1*(3.*eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1)
./model/src/find_alpha.F 307 FIND_BETA 
      _RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1
./model/src/find_alpha.F 396 FIND_BETA 
               p1  = locPres(i,j)*SItoBar
./model/src/find_alpha.F 430 FIND_BETA 
     &           p1*( eosJMDCKP(5)
./model/src/find_alpha.F 434 FIND_BETA 
     &        + s3o2*p1*eosJMDCKP(8)
./model/src/find_alpha.F 435 FIND_BETA 
     &      + p1*p1*( eosJMDCKP(12)
./model/src/find_alpha.F 444 FIND_BETA 
     &              - bulkmod(i,j)*p1*drhoP0dS
./model/src/find_alpha.F 445 FIND_BETA 
     &              - rhoP0(i,j)*p1*dKdS )
./model/src/find_alpha.F 446 FIND_BETA 
     &              /( bulkmod(i,j) - p1 )**2
./model/src/find_alpha.F 479 FIND_BETA 
               p1   = locPres(i,j)*SItodBar
./model/src/find_alpha.F 480 FIND_BETA 
               p1t1 = p1*t1
./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 463 FIND_RHONUM 
            p1   = locPres(i,j)*SItodBar
./model/src/find_rho.F 470 FIND_RHONUM 
     &           + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2
./model/src/find_rho.F 472 FIND_RHONUM 
     &           +     p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) )
./model/src/find_rho.F 524 FIND_RHODEN 
      _RL t1, t2, s1, sp5, p1, p1t1
./model/src/find_rho.F 541 FIND_RHODEN 
            p1   = locPres(i,j)*SItodBar
./model/src/find_rho.F 542 FIND_RHODEN 
            p1t1 = p1*t1
./model/src/find_rho.F 552 FIND_RHODEN 
     &           + p1*(eosMDJWFden(10)
./model/src/find_rho.F 553 FIND_RHODEN 
     &           +     p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) )
./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 646 FIND_RHO_SCALAR 
         p1 = pLoc*SItoBar
./model/src/find_rho.F 647 FIND_RHO_SCALAR 
         p2 = p1*p1
./model/src/find_rho.F 695 FIND_RHO_SCALAR 
     &        p1*( eosJMDCKP(1)
./model/src/find_rho.F 700 FIND_RHO_SCALAR 
     &   + p1*s1*( eosJMDCKP(5)
./model/src/find_rho.F 704 FIND_RHO_SCALAR 
     &      + p1*s3o2*eosJMDCKP(8)
./model/src/find_rho.F 717 FIND_RHO_SCALAR 
         rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) - rhoConst
./model/src/find_rho.F 723 FIND_RHO_SCALAR 
         p1   = pLoc*SItodBar
./model/src/find_rho.F 724 FIND_RHO_SCALAR 
         p1t1 = p1*t1
./model/src/find_rho.F 731 FIND_RHO_SCALAR 
     &        + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2
./model/src/find_rho.F 733 FIND_RHO_SCALAR 
     &        +     p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) )
./model/src/find_rho.F 744 FIND_RHO_SCALAR 
     &        + p1*(eosMDJWFden(10)
./model/src/find_rho.F 745 FIND_RHO_SCALAR 
     &        +     p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) )
./pkg/fizhi/fizhi_lwrad.F 1413 IRRAD 
          p1=-2.0
./pkg/fizhi/fizhi_lwrad.F 1421 IRRAD 
     *                 w1,p1,dwe,dpe,h11,h12,h13,trant)
./pkg/fizhi/fizhi_lwrad.F 1425 IRRAD 
     *                 w1,p1,dwe,dpe,h21,h22,h23,trant)
./pkg/fizhi/fizhi_lwrad.F 1430 IRRAD 
     *                 w1,p1,dwe,dpe,h81,h82,h83,trant)
./pkg/fizhi/fizhi_lwrad.F 1451 IRRAD 
          p1=-2.0
./pkg/fizhi/fizhi_lwrad.F 1455 IRRAD 
     *                w1,p1,dwe,dpe,c1,c2,c3,trant)
./pkg/fizhi/fizhi_lwrad.F 1470 IRRAD 
          p1=-2.0
./pkg/fizhi/fizhi_lwrad.F 1474 IRRAD 
     *                w1,p1,dwe,dpe,o1,o2,o3,trant)
./pkg/fizhi/fizhi_lwrad.F 2464 TABLUP 
      subroutine TABLUP(k1,k2,m,n,np,nx,nh,nt,sabs,spre,stem,w1,p1,
./pkg/fizhi/fizhi_lwrad.F 2507 TABLUP 
      _RL w1,p1,dwe,dpe
./pkg/fizhi/fizhi_lwrad.F 2532 TABLUP 
        pe=(log10(x2)-p1)/dpe
./pkg/fizhi/fizhi_lwrad.F 2535 TABLUP 
        pe=max(pe,p1)
./pkg/fizhi/fizhi_lwrad.F 620 IRRAD 
      _RL dp,xx,p1,dwe,dpe,a1,b1,fk1,a2,b2,fk2