PLUME-MoM  1.0
Integralvolcanicplumemodel
 All Classes Files Functions Variables Pages
plume.f90
Go to the documentation of this file.
1 !********************************************************************************
3 !
10 !********************************************************************************
11 MODULE plume_module
12  !
13  IMPLICIT NONE
14  !
15  REAL*8 :: s
16  REAL*8 :: x
17  REAL*8 :: y
18  REAL*8 :: z
19  REAL*8 :: r
20  REAL*8 :: u
21  REAL*8 :: w
22  REAL*8 :: mag_u
23  REAL*8 :: phi
24  REAL*8 :: rp
25  REAL*8 :: alpha_inp
26  REAL*8 :: beta_inp
27  REAL*8 :: prob_factor
28  LOGICAL :: particles_loss
29 
30  !
31  REAL*8 :: vent_height
32  REAL*8 :: w0
33  REAL*8 :: r0
34  REAL*8 :: mfr_exp0
35  !
36  SAVE
37 
38 CONTAINS
39 
40  !******************************************************************************
42  !
49  !******************************************************************************
50 
51  SUBROUTINE initialize_plume
52 
53  IMPLICIT NONE
54 
55  x = 0.d0
56  y = 0.d0
57  z = vent_height
58  s = 0.d0
59  r = r0
60  u = 1.d-5
61  w = w0
62 
63  mag_u = dsqrt(u*u+w*w)
64  phi = atan(w/u)
65 
66  RETURN
67 
68  END SUBROUTINE initialize_plume
69 
70 END MODULE plume_module
71 
plume_module::initialize_plume
subroutine initialize_plume
Plume variables initialization.
Definition: plume.f90:51
plume_module
Plume module.
Definition: plume.f90:11
Generated on Wed Jun 1 2016 10:07:08 for PLUME-MoM by   doxygen 1.8.7