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 
37 real :: ztop_(ntime)
38 
39 contains
40 subroutine zero_plumegen_coms
41 
42 w=0.0;t=0.0;qv=0.0;qc=0.0;qh=0.0;qi=0.0;sc=0.0
43 vth=0.0;vti=0.0;rho=0.0;txs=0.0
44 est=0.0;qsat=0.0;qpas=0.0;qtotal=0.0
45 wc=0.0;wt=0.0;tt=0.0;qvt=0.0;qct=0.0;qht=0.0;qit=0.0;sct=0.0
46 dzm=0.0;dzt=0.0;zm=0.0;zt=0.0;vctr1=0.0;vctr2=0.0
47 vt3dc=0.0;vt3df=0.0;vt3dk=0.0;vt3dg=0.0;scr1=0.0
48 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 
49 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 
50 zcon=0.0;zzcon=0.0;scon=0.0 
51 dz=0.0;dqsdz=0.0;visc=0.0;viscosity=0.0;tstpf=0.0
52 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
53 wbar=0.0;alast=0.0;vhrel=0.0;virel=0.0  
54 zsurf=0.0;zbase=0.0;ztop=0.0;area=0.0;rsurf=0.0;alpha=0.0;radius=0.0;heating=0.0
55 fmoist=0.0;bload=0.0;dt=0.0;time=0.0;tdur=0.0
56 ztop_=0.0
57 
58 n=0;nm1=0;l=0;lbase=0;mintime=0;mdur=0;maxtime=0
59 end subroutine zero_plumegen_coms
60 End Module