Scrambler
1
|
00001 !######################################################################### 00002 ! 00003 ! Copyright (C) 2003-2012 Department of Physics and Astronomy, 00004 ! University of Rochester, 00005 ! Rochester, NY 00006 ! 00007 ! io_declarations.f90 is part of AstroBEAR. 00008 ! 00009 ! AstroBEAR is free software: you can redistribute it and/or modify 00010 ! it under the terms of the GNU General Public License as published by 00011 ! the Free Software Foundation, either version 3 of the License, or 00012 ! (at your option) any later version. 00013 ! 00014 ! AstroBEAR is distributed in the hope that it will be useful, 00015 ! but WITHOUT ANY WARRANTY; without even the implied warranty of 00016 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00017 ! GNU General Public License for more details. 00018 ! 00019 ! You should have received a copy of the GNU General Public License 00020 ! along with AstroBEAR. If not, see <http://www.gnu.org/licenses/>. 00021 ! 00022 !######################################################################### 00025 00029 00034 MODULE IODeclarations 00035 00036 USE GlobalDeclarations 00037 00038 IMPLICIT NONE 00039 SAVE 00040 00041 PUBLIC 00042 00043 00044 ! Value tags for iDataFileType. 00045 INTEGER, PARAMETER :: IO_CHOMBO = 0 !! iDataFileType tag for the Chombo format. 00046 INTEGER, PARAMETER :: IO_BOV = 1 !! iDataFileType tag for the BOV format. 00047 INTEGER :: NrInputVars 00048 00049 NAMELIST/IOData/iDataFileType 00050 00051 REAL(KIND=qPrec) :: t_io_cumulative = 0.d0, t_io_start, t_io_end !! Stores the cumulative time spent generating files. 00052 00053 END MODULE IODeclarations 00054