DELTAH.f90#49 & DHCLM , DHCHK , SVPM , UPM , TGPM , PTPM , PTP #104 PTP = 0.5*(PTS+PTPM) #105 BVF = SQRT(G*TGP/PTP) #143 PTP = PTS #144 BVF = SQRT(G*TGP/PTP) PCALC.f90#89 REAL :: HSPRIM , ZPLM , DHFOLD , SVPM , UPM , TGPM , PTPM , PTP , & #218 PTP = 0.5*(PTS+PTPM) #219 BVF = SQRT(G*TGP/PTP) #254 PTP = PTS #255 BVF = SQRT(G*TGP/PTP) PLUME_VOL.f90#33 REAL :: HSPRIM , ZPLM , DHFOLD , SVPM , UPM , TGPM , PTPM , PTP , & #173 PTP = 0.5*(PTS+PTPM) #174 BVF = SQRT(G*TGP/PTP) #209 PTP = PTS #210 BVF = SQRT(G*TGP/PTP) SIGZ.f90#40 REAL :: XARG , TTRAVL , PTP , BVFRQ , ZTMP , SIGF , ALPHAB #61 & GRIDPT(NDXZHE+1),HE,PTP) #63 BVFRQ = SQRT(G*TGEFF/PTP) SIGZPR.f90#28 REAL :: XARG , TTRAVL , PTP , BVFRQ , ZTMP , SIGF , ALPHAB , & #49 & GRIDPT(NDXZHE+1),ZARG,PTP) #51 PTP = GRIDPT(1) ! 0 #54 BVFRQ = SQRT(G*TGEFF/PTP) ! 164418
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use