nesting_sannino/nest_parent/nest_parent_check.F

C $Header: /u/gcmpack/MITgcm/pkg/nest_parent/nest_parent_check.F,v 1.0 2005/07/18 01:19:36 gianmaria sannino Exp $
C $Name:  $
#include "NEST_PARENT_OPTIONS.h"

      SUBROUTINE NEST_PARENT_CHECK( myThid )
C     /==========================================================\
C     | SUBROUTINE NEST_PARENT_CHECK                             |
C     | o Validate basic package setup and inter-package         |
C     | dependencies.                                            |
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     === Routine arguments ===
C     myThid -  Number of this instance of NEST_PARENT_INIT
      INTEGER myThid

#ifdef ALLOW_NEST_PARENT

C     === Local variables ===
C     msgBuf      - Informational/error meesage buffer
      CHARACTER*(MAX_LEN_MBUF) msgBuf

      WRITE(msgBuf,'(A)') 
     & 'NEST_PARENT_CHECK: #define ALLOW_NEST_PARENT'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     & SQUEEZE_RIGHT , 1)

C     OASIS needs convection turned off (will be packaged later)
c      IF (cAdjFreq.NE.0.  .OR.
c     &     ivdc_kappa.NE.0.) THEN
c         WRITE(msgBuf,'(A)') 'Some form of convection has been enabled'
c         CALL PRINT_ERROR( msgBuf , 1)
c         STOP 'ABNORMAL END: S/R OASIS_CHECK'
c      ENDIF

#endif /* ALLOW_NEST_PARENT */

      return
      end
1	heimbach	1.1	C $Header: /u/gcmpack/MITgcm/pkg/nest_parent/nest_parent_check.F,v 1.0 2005/07/18 01:19:36 gianmaria sannino Exp $
2			C $Name: $
3			#include "NEST_PARENT_OPTIONS.h"
4
5			SUBROUTINE NEST_PARENT_CHECK( myThid )
6			C /==========================================================\
7			C \| SUBROUTINE NEST_PARENT_CHECK \|
8			C \| o Validate basic package setup and inter-package \|
9			C \| dependencies. \|
10			C \==========================================================/
11			IMPLICIT NONE
12
13			C === Global variables ===
14			#include "SIZE.h"
15			#include "EEPARAMS.h"
16			#include "PARAMS.h"
17
18			C === Routine arguments ===
19			C myThid - Number of this instance of NEST_PARENT_INIT
20			INTEGER myThid
21
22			#ifdef ALLOW_NEST_PARENT
23
24			C === Local variables ===
25			C msgBuf - Informational/error meesage buffer
26			CHARACTER*(MAX_LEN_MBUF) msgBuf
27
28			WRITE(msgBuf,'(A)')
29			& 'NEST_PARENT_CHECK: #define ALLOW_NEST_PARENT'
30			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
31			& SQUEEZE_RIGHT , 1)
32
33			C OASIS needs convection turned off (will be packaged later)
34			c IF (cAdjFreq.NE.0. .OR.
35			c & ivdc_kappa.NE.0.) THEN
36			c WRITE(msgBuf,'(A)') 'Some form of convection has been enabled'
37			c CALL PRINT_ERROR( msgBuf , 1)
38			c STOP 'ABNORMAL END: S/R OASIS_CHECK'
39			c ENDIF
40
41			#endif /* ALLOW_NEST_PARENT */
42
43			return
44			end