Symbol Description Uses
p1 77


File Line number Procedure Code
./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
./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 147 FIND_ALPHA 
               p1  = locPres(i,j)*SItoBar
./model/src/find_alpha.F 148 FIND_ALPHA 
               p2 = p1*p1
./model/src/find_alpha.F 188 FIND_ALPHA 
     &        p1*(    eosJMDCKP(2)
./model/src/find_alpha.F 192 FIND_ALPHA 
     &   + p1*s1*(    eosJMDCKP(6)
./model/src/find_alpha.F 209 FIND_ALPHA 
     &              - bulkmod(i,j)*p1*drhoP0dtheta
./model/src/find_alpha.F 210 FIND_ALPHA 
     &              - rhoP0(i,j)*p1*dKdtheta )
./model/src/find_alpha.F 211 FIND_ALPHA 
     &              /( bulkmod(i,j) - p1 )**2
./model/src/find_alpha.F 247 FIND_ALPHA 
               p1   = locPres(i,j)*SItodBar
./model/src/find_alpha.F 248 FIND_ALPHA 
               p1t1 = p1*t1
./model/src/find_alpha.F 253 FIND_ALPHA 
     &              + p1t1*(2.*eosMDJWFnum(8) + 2.*eosMDJWFnum(11)*p1)
./model/src/find_alpha.F 262 FIND_ALPHA 
     &              + p1*p1*(3.*eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1)
./model/src/find_alpha.F 317 FIND_BETA 
      _RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1
./model/src/find_alpha.F 407 FIND_BETA 
               p1  = locPres(i,j)*SItoBar
./model/src/find_alpha.F 441 FIND_BETA 
     &           p1*( eosJMDCKP(5)
./model/src/find_alpha.F 445 FIND_BETA 
     &        + s3o2*p1*eosJMDCKP(8)
./model/src/find_alpha.F 446 FIND_BETA 
     &      + p1*p1*( eosJMDCKP(12)
./model/src/find_alpha.F 455 FIND_BETA 
     &              - bulkmod(i,j)*p1*drhoP0dS
./model/src/find_alpha.F 456 FIND_BETA 
     &              - rhoP0(i,j)*p1*dKdS )
./model/src/find_alpha.F 457 FIND_BETA 
     &              /( bulkmod(i,j) - p1 )**2
./model/src/find_alpha.F 493 FIND_BETA 
               p1   = locPres(i,j)*SItodBar
./model/src/find_alpha.F 494 FIND_BETA 
               p1t1 = p1*t1
./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 467 FIND_RHONUM 
            p1   = locPres(i,j)*SItodBar
./model/src/find_rho.F 474 FIND_RHONUM 
     &           + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2
./model/src/find_rho.F 476 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 595 FIND_RHO_SCALAR 
      _RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1
./model/src/find_rho.F 658 FIND_RHO_SCALAR 
         p1 = pLoc*SItoBar
./model/src/find_rho.F 659 FIND_RHO_SCALAR 
         p2 = p1*p1
./model/src/find_rho.F 707 FIND_RHO_SCALAR 
     &        p1*( eosJMDCKP(1)
./model/src/find_rho.F 712 FIND_RHO_SCALAR 
     &   + p1*s1*( eosJMDCKP(5)
./model/src/find_rho.F 716 FIND_RHO_SCALAR 
     &      + p1*s3o2*eosJMDCKP(8)
./model/src/find_rho.F 729 FIND_RHO_SCALAR 
         rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod)
./model/src/find_rho.F 735 FIND_RHO_SCALAR 
         p1   = pLoc*SItodBar
./model/src/find_rho.F 736 FIND_RHO_SCALAR 
         p1t1 = p1*t1
./model/src/find_rho.F 743 FIND_RHO_SCALAR 
     &        + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2
./model/src/find_rho.F 745 FIND_RHO_SCALAR 
     &        +     p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) )
./model/src/find_rho.F 756 FIND_RHO_SCALAR 
     &        + p1*(eosMDJWFden(10)
./model/src/find_rho.F 757 FIND_RHO_SCALAR 
     &        +     p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) )