data_parameters.f

Go to the documentation of this file.

!*******************************************************************************
!
!  Note separating the Doxygen comment block here so detailed decription is
!  found in the Module not the file.
!
!*******************************************************************************
      MODULE data_parameters
      USE file_opts, only: path_length
 
      IMPLICIT NONE
 
!*******************************************************************************
!  module parameters
!*******************************************************************************
      INTEGER, PARAMETER           :: data_short_name_length = 30
      INTEGER, PARAMETER           :: data_name_length = 80
 
      INTEGER, PARAMETER           :: data_no_id = -1
 
      INTEGER, PARAMETER           :: data_max_indices = 2
 
!  MPI task parameters.
      INTEGER, PARAMETER           :: mpi_jacobian_task    = 0
      INTEGER, PARAMETER           :: mpi_equilibrium_task = 1
      INTEGER, PARAMETER           :: mpi_mgrid_task       = 2
      INTEGER, PARAMETER           :: mpi_sync_task        = 3
      INTEGER, PARAMETER           :: mpi_step_task        = 4
      INTEGER, PARAMETER           :: mpi_quit_task        = 5
 
      CHARACTER (len=*), PARAMETER :: dir_prefix = 'process_dir'
      INTEGER, PARAMETER           :: dir_prefix_len = 14
 
      INTEGER, PARAMETER :: max_sxrem_profiles = 10
      INTEGER, PARAMETER :: max_gaussprocess = 2 + max_sxrem_profiles
 
      CONTAINS
!*******************************************************************************
!  UTILITY SUBROUTINES
!*******************************************************************************
!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
      FUNCTION filename_base(filename)
 
      IMPLICIT NONE
 
!  Declare Arguments
      CHARACTER (len=path_length)   :: filename_base
      CHARACTER (len=*), INTENT(in) :: filename
 
!  Start of executable code
      IF ((filename(1:4) .eq. 'v3fi') .and.                                    &
     &    (filename(6:6) .eq. '.')) THEN
         filename_base = trim(filename(7:len_trim(filename)))
      ELSE
         filename_base = trim(filename)
      END IF
 
      END FUNCTION
 
!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
      FUNCTION process_dir(rank)
 
      IMPLICIT NONE
 
!  Declare Arguments
      CHARACTER (len=dir_prefix_len) :: process_dir
      INTEGER, INTENT(in)            :: rank
 
!  Start of executable code
      IF (rank .lt. 10) THEN
         WRITE (process_dir, 1000) dir_prefix, rank
      ELSE
         WRITE (process_dir, 1001) dir_prefix, rank
      END IF
 
!  Support up to 99 directories. Need to add leading zeros to avoid spaces.
1000  FORMAT(a11,'_0',i1)
1001  FORMAT(a11,'_',i2)
 
      END FUNCTION
 
      END MODULE