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.