declarations_partel.f

Go to the documentation of this file.

!                   ***************************
                    MODULE declarations_partel
!                   ***************************
!
!
!***********************************************************************
! PARTEL                                             09/05/2014
!***********************************************************************
!
!brief    Defining parameters that need to be created first because they
!+        could be used by any other library.
!
!history  Y. AUDOUIN & J-M HERVOUET (EDF LAB, LNHE)
!+        09/05/2014
!+        V7P0
!+   First version.
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      IMPLICIT NONE
!----------------------------------------------------------------------
!
!     MAXIMUM NUMBER OF HALO, IN THE PARALLEL VERSION THE NUMBER OF HALO WILL BE DIRECTLY COMPUTED
      INTEGER, PARAMETER :: nbmaxhalo=100000
!
      INTEGER, PARAMETER :: maxnproc = 100000 ! MAX PARTITION NUMBER [00000..99999]
      INTEGER, PARAMETER :: maxaddch = 10 ! MAX ADDED SUFFIX LENGTH
      INTEGER, PARAMETER :: maxvar = 100  ! MAX NUMBER OF VARIABLES
      ! Coordinates offset
      INTEGER x_orig, y_orig
!
      CHARACTER(LEN=3) :: code = '   '
!
!-----------------------------------------------------------------------
!
      END MODULE declarations_partel