data.f90

!Crown Copyright 2012 AWE.
!
! This file is part of CloverLeaf.
!
! CloverLeaf is free software: you can redistribute it and/or modify it under 
! the terms of the GNU General Public License as published by the 
! Free Software Foundation, either version 3 of the License, or (at your option) 
! any later version.
!
! CloverLeaf is distributed in the hope that it will be useful, but 
! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 
! FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more 
! details.
!
! You should have received a copy of the GNU General Public License along with 
! CloverLeaf. If not, see http://www.gnu.org/licenses/.

!>  @brief Holds parameters definitions
!>  @author Wayne Gaudin
!>  @details Parameters used in the CloverLeaf are defined here.

MODULE data_module

  IMPLICIT NONE

  REAL(KIND=8), PARAMETER :: g_version=1.3

  INTEGER,      PARAMETER :: g_ibig=640000

  REAL(KIND=8), PARAMETER :: g_small=1.0e-16  &
    ,g_big  =1.0e+21

  INTEGER,      PARAMETER :: g_name_len_max=255 &
    ,g_xdir=1           &
    ,g_ydir=2

  ! These two need to be kept consistent with update_halo
  INTEGER,      PARAMETER :: CHUNK_LEFT   =1    &
    ,CHUNK_RIGHT  =2    &
    ,CHUNK_BOTTOM =3    &
    ,CHUNK_TOP    =4    &
    ,EXTERNAL_FACE=-1

  INTEGER,      PARAMETER :: TILE_LEFT   =1    &
    ,TILE_RIGHT  =2    &
    ,TILE_BOTTOM =3    &
    ,TILE_TOP    =4    &
    ,EXTERNAL_TILE=-1


  INTEGER,         PARAMETER :: FIELD_DENSITY0   = 1         &
    ,FIELD_DENSITY1   = 2         &
    ,FIELD_ENERGY0    = 3         &
    ,FIELD_ENERGY1    = 4         &
    ,FIELD_PRESSURE   = 5         &
    ,FIELD_VISCOSITY  = 6         &
    ,FIELD_SOUNDSPEED = 7         &
    ,FIELD_XVEL0      = 8         &
    ,FIELD_XVEL1      = 9         &
    ,FIELD_YVEL0      =10         &
    ,FIELD_YVEL1      =11         &
    ,FIELD_VOL_FLUX_X =12         &
    ,FIELD_VOL_FLUX_Y =13         &
    ,FIELD_MASS_FLUX_X=14         &
    ,FIELD_MASS_FLUX_Y=15         &
    ,NUM_FIELDS       =15

  INTEGER,         PARAMETER :: CELL_DATA     = 1,        &
    VERTEX_DATA   = 2,        &
    X_FACE_DATA   = 3,        &
    y_FACE_DATA   = 4


  ! Time step control constants
  INTEGER,        PARAMETER ::  SOUND = 1     &
    ,X_VEL = 2     &
    ,Y_VEL = 3     &
    ,DIVERG= 4

  INTEGER,                      PARAMETER :: g_rect=1 &
    ,g_circ=2 &
    ,g_point=3


  INTEGER         ::            g_in           & ! File for input data.
    ,g_out


  TYPE parallel_type
    LOGICAL           ::      parallel &
      ,boss
    INTEGER         ::        max_task &
      ,task     &
      ,boss_task

  END TYPE parallel_type
   
  TYPE(parallel_type) :: parallel
     
  INTEGER,        PARAMETER ::g_len_max=500

    !TODO:: set this from input file 

END MODULE data_module