pkg/icefront/icefront_check.F

5da8ce63fa Dimi*0001 #include "ICEFRONT_OPTIONS.h"
                0002
                0003       SUBROUTINE ICEFRONT_CHECK( myThid )
                0004 C     /==========================================================\
                0005 C     | SUBROUTINE ICEFRONT_CHECK                                |
                0006 C     | o Validate basic package setup and inter-package         |
                0007 C     | dependencies.                                            |
                0008 C     \==========================================================/
                0009       IMPLICIT NONE
                0010
                0011 C     === Global variables ===
                0012 #include "SIZE.h"
                0013 #include "EEPARAMS.h"
                0014 #include "PARAMS.h"
                0015 #include "ICEFRONT.h"
                0016
                0017 C     === Routine arguments ===
                0018 C     myThid -  Number of this instance of ICEFRONT_CHECK
                0019       INTEGER myThid
                0020
                0021 #ifdef ALLOW_ICEFRONT
                0022
                0023 C     === Local variables ===
                0024 C     msgBuf      - Informational/error meesage buffer
                0025       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0026
                0027       _BEGIN_MASTER(myThid)
                0028
                0029       WRITE(msgBuf,'(A)') 'ICEFRONT_CHECK: #define ALLOW_ICEFRONT'
                0030       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0031      &     SQUEEZE_RIGHT, myThid )
                0032
                0033 C     So far, ICEFRONT works only with oceanic z-coordinates
                0034       IF ( buoyancyRelation .NE. 'OCEANIC' ) THEN
                0035          WRITE(msgBuf,'(A)')
                0036      &      'ICEFRONT works only with buoyancyRelation = ''OCEANIC'''
                0037          CALL PRINT_ERROR( msgBuf, myThid )
                0038          STOP 'ABNORMAL END: S/R ICEFRONT_CHECK'
                0039       ENDIF
                0040
27073e4a80 Dimi*0041
5da8ce63fa Dimi*0042 CML#ifdef ALLOW_NONHYDROSTATIC
                0043 CML      IF ( nonHydrostatic ) THEN
                0044 CML         WRITE(msgBuf,'(A)')
                0045 CML     &      'Currently ICEFRONT and nonHydrostatic cannot be turned'
                0046 CML         CALL PRINT_ERROR( msgBuf , 1)
                0047 CML         WRITE(msgBuf,'(A)') 'on at the same time'
                0048 CML         CALL PRINT_ERROR( msgBuf , 1)
                0049 CML         STOP 'ABNORMAL END: S/R ICEFRONT_CHECK'
                0050 CML      ENDIF
                0051 CML#endif /* ALLOW_NONHYDROSTATIC */
                0052
                0053       _END_MASTER(myThid)
                0054
                0055 #endif /* ALLOW_ICEFRONT */
                0056
                0057       RETURN
                0058       END