chem/module_zero_plumegen_coms.F

   1 !
   2 Module module_zero_plumegen_coms
   3 implicit none
   4 integer, parameter :: nkp = 200, ntime = 200
   5 !
   6 real,dimension(nkp) ::  w,t,qv,qc,qh,qi,sc,  &  ! blob
   7                         vth,vti,rho,txs,  &
   8                         est,qsat,qpas,qtotal
   9
  10 real,dimension(nkp) ::  wc,wt,tt,qvt,qct,qht,qit,sct
  11 real,dimension(nkp) ::  dzm,dzt,zm,zt,vctr1,vctr2 &
  12                        ,vt3dc,vt3df,vt3dk,vt3dg,scr1
  13
  14 !
  15 real,dimension(nkp) ::  pke,the,thve,thee,pe,te,qvenv,rhe,dne,sce ! environment at plume grid
  16 real,dimension(nkp) ::  ucon,vcon,wcon,thtcon ,rvcon,picon,tmpcon,dncon,prcon &
  17                        ,zcon,zzcon,scon ! environment at RAMS  grid
  18
  19 !
  20 real :: DZ,DQSDZ,VISC(nkp),VISCOSITY,TSTPF
  21 integer :: N,NM1,L
  22 !
  23 real :: ADVW,ADVT,ADVV,ADVC,ADVH,ADVI,CVH(nkp),CVI(nkp),ADIABAT,&
  24         WBAR,ALAST(10),VHREL,VIREL  ! advection
  25 !
  26 real :: ZSURF,ZBASE,ZTOP
  27 integer :: LBASE
  28 !
  29 real :: AREA,RSURF,ALPHA,RADIUS(nkp)  ! entrain
  30 !
  31 real :: HEATING(ntime),FMOIST,BLOAD   ! heating
  32 !
  33 real :: DT,TIME,TDUR
  34 integer :: MINTIME,MDUR,MAXTIME
  35 !
  36 REAL,    DIMENSION(nkp,2)    :: W_VMD,VMD
  37 REAL    :: upe   (nkp)
  38 REAL    :: vpe   (nkp)
  39 REAL    :: vel_e (nkp)
  40
  41 REAL    :: vel_p (nkp)
  42 REAL    :: rad_p (nkp)
  43 REAL    :: vel_t (nkp)
  44 REAL    :: rad_t (nkp)
  45
  46 real :: ztop_(ntime)
  47
  48 contains
  49 subroutine zero_plumegen_coms
  50
  51 w=0.0;t=0.0;qv=0.0;qc=0.0;qh=0.0;qi=0.0;sc=0.0
  52 vth=0.0;vti=0.0;rho=0.0;txs=0.0
  53 est=0.0;qsat=0.0;qpas=0.0;qtotal=0.0
  54 wc=0.0;wt=0.0;tt=0.0;qvt=0.0;qct=0.0;qht=0.0;qit=0.0;sct=0.0
  55 dzm=0.0;dzt=0.0;zm=0.0;zt=0.0;vctr1=0.0;vctr2=0.0
  56 vt3dc=0.0;vt3df=0.0;vt3dk=0.0;vt3dg=0.0;scr1=0.0
  57 pke=0.0;the=0.0;thve=0.0;thee=0.0;pe=0.0;te=0.0;qvenv=0.0;rhe=0.0;dne=0.0;sce=0.0
  58 ucon=0.0;vcon=0.0;wcon=0.0;thtcon =0.0;rvcon=0.0;picon=0.0;tmpcon=0.0;dncon=0.0;prcon=0.0
  59 zcon=0.0;zzcon=0.0;scon=0.0
  60 dz=0.0;dqsdz=0.0;visc=0.0;viscosity=0.0;tstpf=0.0
  61 advw=0.0;advt=0.0;advv=0.0;advc=0.0;advh=0.0;advi=0.0;cvh=0.0;cvi=0.0;adiabat=0.0
  62 wbar=0.0;alast=0.0;vhrel=0.0;virel=0.0
  63 zsurf=0.0;zbase=0.0;ztop=0.0;area=0.0;rsurf=0.0;alpha=0.0;radius=0.0;heating=0.0
  64 fmoist=0.0;bload=0.0;dt=0.0;time=0.0;tdur=0.0
  65 ztop_=0.0
  66 upe =0.0
  67 vpe =0.0
  68 vel_e =0.0
  69 vel_p =0.0
  70 rad_p =0.0
  71 vel_t =0.0
  72 rad_t =0.0
  73  W_VMD=0.0
  74  VMD=0.0
  75 n=0;nm1=0;l=0;lbase=0;mintime=0;mdur=0;maxtime=0
  76 end subroutine zero_plumegen_coms
  77 End Module