AshFlow  0.1
ashflowmodel
 All Classes Files Functions Variables Pages
flow_model.f90
Go to the documentation of this file.
1 !********************************************************************************
18 !********************************************************************************
19 
21 
22 
23 PROGRAM flow_model
24 
25  USE inpout, ONLY: initialize , reainp
26  USE inpout, ONLY: run_name , close_units
27 
28  USE pdcflow, ONLY: pdc
30 
31  IMPLICIT NONE
32  !
33  !*** Initialize the input variables
34  !
35  CALL initialize
36 
37  !
38  !*** Open and Read input data from file cpiuc.inp
39  !
40  CALL reainp
41 
42  !
43  !*** Allocate variables for the colum model
44  !
45  CALL allocate_matrix
46 
47  !*** Solve the model
48  CALL pdc(run_name)
49 
50  CALL close_units
51 
52 END PROGRAM flow_model
subroutine initialize
Initialize variables.
Definition: inpout.f90:65
PDC flow model This module calls subroutines required from other modules for solving the model and de...
Definition: flow.f90:10
Solver Module This module contains the differential equations that are solved at each iteration...
Definition: solver_flow.f90:10
subroutine allocate_matrix
Allocate matrix This subroutine defines the matrix over which each of the conditions are solved...
Definition: solver_flow.f90:61
Input/Output module.
Definition: inpout.f90:8
subroutine reainp
Read Input data This subroutine reads input data from the file flow_model.inp.
Definition: inpout.f90:102
subroutine pdc(run_name)
PDC run_name This subroutine calls all subroutines required from other modules for solving the model...
Definition: flow.f90:23
subroutine close_units
Definition: inpout.f90:481
program flow_model
Main Program.
Definition: flow_model.f90:23