Input/Output module. More...
Public Member Functions | |
| subroutine | initialize |
| Initialize variables. More... | |
| subroutine | reainp |
| Read Input data This subroutine reads input data from the file flow_model.inp. More... | |
| subroutine | write_output |
| subroutine | write_dakota |
| subroutine | close_units |
Public Attributes | |
| character(len=15) | finp |
| character *150 | fout5 |
| Name of output file for backup of input parameters. More... | |
| character(len=80) | run_name |
| character(len=80) | input_name |
| character(len=80) | out_file |
| character(len=80) | out_file2 |
| character(len=80) | out_file3 |
| character(len=80) | out_file4 |
| character(len=3) | outtime |
| Output units for time. More... | |
| real *8 | factime |
| character(len=3) | outpres_b = 'Pa ' |
| Output units for pressure. More... | |
| real *8 | facpres |
| character(len=3) | outflux = 'd00' |
| Output units for mass flux. More... | |
| real *8 | facflux |
| character(len=3) | outmass = 'Kg ' |
| Output units for remaining chamber mass. More... | |
| real *8 | facmass |
| character(len=3) | outvelo = 'ms ' |
| Output units for velocity. More... | |
| real *8 | facvelo |
| character(len=3) | outdist = ' m ' |
| Output units for distance. More... | |
| real *8 | facdist |
| character(len=5) | outdens = 'Kgm-3' |
| Output units for density. More... | |
| character(len=3) | outpres_t = 'Pa' |
| Output units for pressure. More... | |
| integer *4 | iprint |
| Flag for print. More... | |
| real *8 | pi |
| integer, parameter | ninp = 7 |
| Input data unit. More... | |
| integer, parameter | nout5 =14 |
| Backup input unit. More... | |
Input/Output module.
This module contains all the input/output subroutines and related variables.
Definition at line 8 of file inpout.f90.
| subroutine inpout::close_units | ( | ) |
| subroutine inpout::initialize | ( | ) |
Initialize variables.
This subroutine initialises the input variables
Definition at line 65 of file inpout.f90.

| subroutine inpout::reainp | ( | ) |
Read Input data This subroutine reads input data from the file flow_model.inp.
Definition at line 102 of file inpout.f90.


| subroutine inpout::write_dakota | ( | ) |
| subroutine inpout::write_output | ( | ) |
| real*8 inpout::facdist |
Definition at line 34 of file inpout.f90.
| real*8 inpout::facflux |
Definition at line 28 of file inpout.f90.
| real*8 inpout::facmass |
Definition at line 30 of file inpout.f90.
| real*8 inpout::facpres |
Definition at line 26 of file inpout.f90.
| real*8 inpout::factime |
Definition at line 24 of file inpout.f90.
| real*8 inpout::facvelo |
Definition at line 32 of file inpout.f90.
| character(len=15) inpout::finp |
Definition at line 12 of file inpout.f90.
| character*150 inpout::fout5 |
Name of output file for backup of input parameters.
Definition at line 13 of file inpout.f90.
| character(len=80) inpout::input_name |
Definition at line 15 of file inpout.f90.
| integer*4 inpout::iprint |
Flag for print.
Definition at line 39 of file inpout.f90.
| integer, parameter inpout::ninp = 7 |
Input data unit.
Definition at line 45 of file inpout.f90.
| integer, parameter inpout::nout5 =14 |
Backup input unit.
Definition at line 49 of file inpout.f90.
| character(len=80) inpout::out_file |
Definition at line 17 of file inpout.f90.
| character(len=80) inpout::out_file2 |
Definition at line 18 of file inpout.f90.
| character(len=80) inpout::out_file3 |
Definition at line 19 of file inpout.f90.
| character(len=80) inpout::out_file4 |
Definition at line 20 of file inpout.f90.
| character(len=5) inpout::outdens = 'Kgm-3' |
Output units for density.
Definition at line 36 of file inpout.f90.
| character(len=3) inpout::outdist = ' m ' |
Output units for distance.
Definition at line 33 of file inpout.f90.
| character(len=3) inpout::outflux = 'd00' |
Output units for mass flux.
Definition at line 27 of file inpout.f90.
| character(len=3) inpout::outmass = 'Kg ' |
Output units for remaining chamber mass.
Definition at line 29 of file inpout.f90.
| character(len=3) inpout::outpres_b = 'Pa ' |
Output units for pressure.
Definition at line 25 of file inpout.f90.
| character(len=3) inpout::outpres_t = 'Pa' |
Output units for pressure.
Definition at line 37 of file inpout.f90.
| character(len=3) inpout::outtime |
Output units for time.
Definition at line 23 of file inpout.f90.
| character(len=3) inpout::outvelo = 'ms ' |
Output units for velocity.
Definition at line 31 of file inpout.f90.
| real*8 inpout::pi |
Definition at line 41 of file inpout.f90.
| character(len=80) inpout::run_name |
Definition at line 15 of file inpout.f90.
1.8.7