Homec4science
Diffusion GYACOMO (OBSOLETE: LATEST VERSION ON gitlab.epfl.ch) (gather_output) Browse

gyacomo/src/diagnostics_par_mod.F90
64580260bcbegather_output

Last Change
Raw File

diagnostics_par_mod.F90
View Options

MODULE diagnostics_par
! Module for diagnostic parameters
USE prec_const
IMPLICIT NONE
PRIVATE
LOGICAL, PUBLIC, PROTECTED :: write_doubleprecision = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: write_gamma, write_hf ! output particle transport and heat flux
LOGICAL, PUBLIC, PROTECTED :: write_phi, write_Na00
LOGICAL, PUBLIC, PROTECTED :: write_Napj, write_Sapj
LOGICAL, PUBLIC, PROTECTED :: write_dens, write_fvel, write_temp
INTEGER, PUBLIC, PROTECTED :: nsave_0d, nsave_1d, nsave_2d, nsave_3d, nsave_5d
! HDF5 file
CHARACTER(len=256), PUBLIC :: resfile0 = "outputs" ! Head of main result file name
CHARACTER(len=256), PUBLIC :: resfile ! Main result file
CHARACTER(len=256), PUBLIC :: rstfile ! restart result file
INTEGER, PUBLIC :: job2load ! jobnum of the checkpoint to load
INTEGER, PUBLIC :: fidres ! FID for resfile
INTEGER, PUBLIC :: fidrst ! FID for restart file
PUBLIC :: diag_par_readinputs, diag_par_outputinputs
CONTAINS
SUBROUTINE diag_par_readinputs
! Read the input parameters
USE basic, ONLY : lu_in
USE prec_const
IMPLICIT NONE
NAMELIST /OUTPUT_PAR/ nsave_0d, nsave_1d, nsave_2d, nsave_3d, nsave_5d
NAMELIST /OUTPUT_PAR/ write_doubleprecision, write_gamma, write_hf, write_phi
NAMELIST /OUTPUT_PAR/ write_Na00, write_Napj, write_Sapj
NAMELIST /OUTPUT_PAR/ write_dens, write_fvel, write_temp
NAMELIST /OUTPUT_PAR/ job2load
READ(lu_in,output_par)
END SUBROUTINE diag_par_readinputs
SUBROUTINE diag_par_outputinputs(fidres, str)
!
! Write the input parameters to the results_xx.h5 file
!
USE prec_const
USE futils, ONLY: attach
IMPLICIT NONE
INTEGER, INTENT(in) :: fidres
CHARACTER(len=256), INTENT(in) :: str
CALL attach(fidres, TRIM(str), "write_doubleprecision", write_doubleprecision)
CALL attach(fidres, TRIM(str), "nsave_0d", nsave_0d)
CALL attach(fidres, TRIM(str), "nsave_1d", nsave_1d)
CALL attach(fidres, TRIM(str), "nsave_2d", nsave_2d)
CALL attach(fidres, TRIM(str), "nsave_5d", nsave_5d)
END SUBROUTINE diag_par_outputinputs
END MODULE diagnostics_par
c4science · Help