CRITDS.f90#116            XN2(NL) = (G/PTHC)*TGHC                                     !      0
DELTAH.f90#105         BVF = SQRT(G*TGP/PTP)
#144         BVF = SQRT(G*TGP/PTP)
FLUXES.f90#40      FB = (0.25/TS)*(VS*DS*DS)*G*(TS-TA)
GRDDEN.f90#58         GRIDRHO(I) = RAMB0*(TAMB0/TAMB)*EXP(-G*GRIDHT(I)/(RGASM*TBAR))
MAIN1.f90#74     &                    G = 9.80616 , VONKAR = 0.4 ,                  &
METINI.f90#185         BVF = SQRT(G*TGS/PTS)                                          !  22954
PCALC.f90#219            BVF = SQRT(G*TGP/PTP)
#255            BVF = SQRT(G*TGP/PTP)
PENFCT.f90#54         BVZI2 = G/PTATZI*VPTGZI                                        !   1454
PLUME_VOL.f90#174            BVF = SQRT(G*TGP/PTP)
#210            BVF = SQRT(G*TGP/PTP)
PVMRM_CALC.f90#187         PCORR = EXP(-G*0.028966*ZCORR/(RGAS*TAP))
REFL_HT.f90#93      BVFRQ = SQRT(G*TGREFL/PTREFL)
SIGZ.f90#63         BVFRQ = SQRT(G*TGEFF/PTP)
SIGZPR.f90#54         BVFRQ = SQRT(G*TGEFF/PTP)                                      ! 164418
TGINIT.f90#72            THSTAR = USTAR**2/(G*VONKAR*OBULEN/TA)                      !   2546
URBCALC.f90#56      URBWSTR = ((G/TA)*URBHF*ZIURB)**0.333333
#66      URBOBULEN = -((TA*URBUSTR**3)/(0.4*G*URBHF))
VDP1.f90#133               AVGRAV(I,J) = (APDENS(I,J)-RHOAIR)*G*DIAMCM**2*SCF(I)    &


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