pkg/regrid/regrid_check.F

aa076db465 Ed H*0001 #include "REGRID_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !ROUTINE: REGRID_CHECK
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE REGRID_CHECK( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Check dependances with other packages
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018 #include "REGRID_SIZE.h"
                0019 #include "REGRID.h"
                0020
                0021 C     !INPUT PARAMETERS:
                0022 C     myThid -  Number of this instances
                0023       INTEGER myThid
                0024 CEOP
                0025
                0026 C     !LOCAL VARIABLES:
                0027 C     msgBuf      - Informational/error meesage buffer
                0028       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0029
                0030
                0031 #ifdef ALLOW_REGRID
                0032
                0033       WRITE(msgBuf,'(A)') 'REGRID_CHECK: #define REGRID'
                0034       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0035      &     SQUEEZE_RIGHT , 1)
                0036
                0037       _BEGIN_MASTER(myThid)
                0038
                0039       IF (.NOT. useMNC) THEN
                0040         WRITE(msgBuf,'(A)') 'Regrid needs useMNC=.true.'
                0041         CALL PRINT_ERROR( msgBuf , 1)
                0042         STOP 'ABNORMAL END: S/R REGRID_CHECK'
                0043       ENDIF
                0044
                0045       _END_MASTER(myThid)
                0046
                0047 #endif /* ALLOW_REGRID */
                0048
                0049       RETURN
                0050       END