Symbol Description Uses
p1 66


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
./model/src/find_alpha.F 156 FIND_ALPHA 
               p1  = locPres(i,j)*SItoBar
./model/src/find_alpha.F 157 FIND_ALPHA 
               p2 = p1*p1
./model/src/find_alpha.F 197 FIND_ALPHA 
     &        p1*(    eosJMDCKP(2)
./model/src/find_alpha.F 201 FIND_ALPHA 
     &   + p1*s1*(    eosJMDCKP(6)
./model/src/find_alpha.F 218 FIND_ALPHA 
     &              - bulkmod(i,j)*p1*drhoP0dtheta
./model/src/find_alpha.F 219 FIND_ALPHA 
     &              - rhoP0(i,j)*p1*dKdtheta )
./model/src/find_alpha.F 220 FIND_ALPHA 
     &              /( bulkmod(i,j) - p1 )**2
./model/src/find_alpha.F 259 FIND_ALPHA 
               p1   = locPres(i,j)*SItodBar
./model/src/find_alpha.F 260 FIND_ALPHA 
               p1t1 = p1*t1
./model/src/find_alpha.F 265 FIND_ALPHA 
     &              + p1t1*(2.*eosMDJWFnum(8) + 2.*eosMDJWFnum(11)*p1)
./model/src/find_alpha.F 274 FIND_ALPHA 
     &              + p1*p1*(3.*eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1)
./model/src/find_alpha.F 389 FIND_BETA 
      _RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1
./model/src/find_alpha.F 484 FIND_BETA 
               p1  = locPres(i,j)*SItoBar
./model/src/find_alpha.F 518 FIND_BETA 
     &           p1*( eosJMDCKP(5)
./model/src/find_alpha.F 522 FIND_BETA 
     &        + s3o2*p1*eosJMDCKP(8)
./model/src/find_alpha.F 523 FIND_BETA 
     &      + p1*p1*( eosJMDCKP(12)
./model/src/find_alpha.F 532 FIND_BETA 
     &              - bulkmod(i,j)*p1*drhoP0dS
./model/src/find_alpha.F 533 FIND_BETA 
     &              - rhoP0(i,j)*p1*dKdS )
./model/src/find_alpha.F 534 FIND_BETA 
     &              /( bulkmod(i,j) - p1 )**2
./model/src/find_alpha.F 573 FIND_BETA 
               p1   = locPres(i,j)*SItodBar
./model/src/find_alpha.F 574 FIND_BETA 
               p1t1 = p1*t1
./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 1041 FIND_RHO_SCALAR 
         bMpres =  p1 * ( eosP1 +
./model/src/find_rho.F 1045 FIND_RHO_SCALAR 
     &          + p1*s1*( eosP5 +
./model/src/find_rho.F 1048 FIND_RHO_SCALAR 
     &          + p1*s3o2*eosP8
./model/src/find_rho.F 1069 FIND_RHO_SCALAR 
     &        p1*( eosJMDCKP(1)
./model/src/find_rho.F 1074 FIND_RHO_SCALAR 
     &   + p1*s1*( eosJMDCKP(5)
./model/src/find_rho.F 1078 FIND_RHO_SCALAR 
     &      + p1*s3o2*eosJMDCKP(8)
./model/src/find_rho.F 1092 FIND_RHO_SCALAR 
         rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod)
./model/src/find_rho.F 1098 FIND_RHO_SCALAR 
       p1   = pLoc*SItodBar
./model/src/find_rho.F 1099 FIND_RHO_SCALAR 
       p1t1 = p1*t1
./model/src/find_rho.F 1106 FIND_RHO_SCALAR 
     &      + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2
./model/src/find_rho.F 1108 FIND_RHO_SCALAR 
     &      +     p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) )
./model/src/find_rho.F 1118 FIND_RHO_SCALAR 
     &      + p1*(eosMDJWFden(10)
./model/src/find_rho.F 1119 FIND_RHO_SCALAR 
     &      +     p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) )
./model/src/find_rho.F 629 FIND_RHONUM 
      _RL t1, t2, s1, p1
./model/src/find_rho.F 638 FIND_RHONUM 
            p1   = locPres(i,j)*SItodBar
./model/src/find_rho.F 645 FIND_RHONUM 
     &           + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2
./model/src/find_rho.F 647 FIND_RHONUM 
     &           +     p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) )
./model/src/find_rho.F 695 FIND_RHODEN 
      _RL t1, t2, s1, sp5, p1, p1t1
./model/src/find_rho.F 716 FIND_RHODEN 
            p1   = locPres(i,j)*SItodBar
./model/src/find_rho.F 717 FIND_RHODEN 
            p1t1 = p1*t1
./model/src/find_rho.F 727 FIND_RHODEN 
     &           + p1*(eosMDJWFden(10)
./model/src/find_rho.F 728 FIND_RHODEN 
     &           +     p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) )
./model/src/find_rho.F 861 FIND_RHO_SCALAR 
      _RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1
./model/src/find_rho.F 965 FIND_RHO_SCALAR 
         p1 = pLoc*SItoBar
./model/src/find_rho.F 966 FIND_RHO_SCALAR 
         p2 = p1*p1