AshFlow  0.1
ashflowmodel
 All Classes Files Functions Variables Pages
current.f90
Go to the documentation of this file.
1 !********************************************************************************
5 !********************************************************************************
6 
7 MODULE current_module
8  !
9  IMPLICIT NONE
10  !
11 
13  LOGICAL :: oneD_model
14 
16  REAL*8 :: h
17 
19  REAL*8 :: r
20 
22  REAL*8 :: u
23 
25  REAL*8 :: T
26 
28  REAL*8 :: r_old
29 
31  REAL*8 :: r_new
32 
34  REAL*8 :: h_old
35 
37  REAL*8 :: h_new
38 
40  REAL*8 :: h0
41 
43  REAL*8 :: r0
44 
45 
46  REAL*8 :: solid_mass_flux
47 
49  REAL*8 :: T0
50 
52  LOGICAL :: TVENT_FLAG
53 
55  REAL*8 :: mass_flux
56 
58  REAL*8 :: plume_velocity
59 
61  Real*8 :: Initial_MF
62 
64  Real*8 ::solidMF_ratio
65 
66  !
67  SAVE
68  !----------------------------------------------------------------------
69 CONTAINS
70 
71 !******************************************************************************
74 !******************************************************************************
75 
76  SUBROUTINE initialize_current
77  IMPLICIT NONE
78  !
79  h = h0
80  r = r0
81  !
82  RETURN
83  END SUBROUTINE initialize_current
84  !----------------------------------------------------------------------
85 END MODULE current_module
86 !----------------------------------------------------------------------
current_module::initialize_current
subroutine initialize_current
Initialising current This subroutine allocates conditions at flow source to those assigned in input f...
Definition: current.f90:76
current_module
Current module This module contains descriptors for the initial conditions of the flow...
Definition: current.f90:7
Generated on Mon Jan 9 2017 11:30:33 for AshFlow by   doxygen 1.8.7