pkg/exch2/w2_set_myown_facets.F

017b6b2289 Jean*0001 #include "PACKAGES_CONFIG.h"
                0002 #include "CPP_EEOPTIONS.h"
                0003 #include "W2_OPTIONS.h"
                0004
                0005 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0006 CBOP 0
                0007 C !ROUTINE: W2_SET_MYOWN_FACETS
                0008
                0009 C !INTERFACE:
                0010       SUBROUTINE W2_SET_MYOWN_FACETS( myThid )
                0011
                0012 C     !DESCRIPTION:
                0013 C     Set-up multi-facets (=sub-domain) topology :
                0014 C     User specific version to be modified accordingly
                0015
                0016 C     !USES:
                0017       IMPLICIT NONE
                0018
d6ea3164dc Jean*0019 C      Tile topology settings data structures
017b6b2289 Jean*0020 #include "SIZE.h"
                0021 #include "EEPARAMS.h"
                0022 #ifdef ALLOW_EXCH2
                0023 #include "W2_EXCH2_SIZE.h"
                0024 #include "W2_EXCH2_PARAMS.h"
                0025 #include "W2_EXCH2_TOPOLOGY.h"
                0026 #endif /* ALLOW_EXCH2 */
                0027
                0028 C     !INPUT PARAMETERS:
                0029 C     myThid  :: my Thread Id number
                0030 C               (Note: not relevant since threading has not yet started)
                0031       INTEGER myThid
                0032
                0033 #ifdef ALLOW_EXCH2
                0034 C     !FUNCTIONS:
                0035
                0036 C     !LOCAL VARIABLES:
                0037 C     === Local variables ===
d6ea3164dc Jean*0038 C     msgBuf     :: Informational/error message buffer
017b6b2289 Jean*0039 c     CHARACTER*(MAX_LEN_MBUF) msgBuf
                0040 CEOP
                0041
                0042       STOP 'ABNORMAL END: S/R W2_SET_MYOWN_FACETS empty'
                0043
                0044 #endif /* ALLOW_EXCH2 */
                0045
                0046       RETURN
                0047       END