model/src/packages_check.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check.F,v 1.6 2001/02/02 21:04:48 adcroft Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

      SUBROUTINE PACKAGES_CHECK( myThid )
C     /==========================================================\
C     | SUBROUTINE PACKAGES_CHECK                                |
C     | o Check runtime activated packages have been built in.   |
C     |==========================================================|
C     | All packages can be selected/deselected at build time    |
C     | ( when code is compiled ) and activated/deactivated at   |
C     | runtime. This routine does a quick check to trap packages|
C     | that were activated at runtime but that were not compiled|
C     | in at build time.                                        |
C     \==========================================================/
      IMPLICIT NONE

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

C     === Routine arguments ===
C     myThid -  Number of this instances
      INTEGER myThid

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

#ifdef ALLOW_KPP
      IF (useKPP) CALL KPP_CHECK( myThid )
#else
      IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)
#endif

#ifdef ALLOW_GMREDI
      IF (useGMRedi) CALL GMREDI_CHECK( myThid )
#else
      IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
#endif

#ifdef ALLOW_OBCS
      IF (useOBCS) CALL OBCS_CHECK( myThid )
#else
      IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
#endif

#ifndef ALLOW_AIM
      IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
#endif

      RETURN
      END
1	jmc	1.7	C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check.F,v 1.6 2001/02/02 21:04:48 adcroft Exp $
2	adcroft	1.6	C $Name: $
3	adcroft	1.1
4			#include "CPP_OPTIONS.h"
5
6	heimbach	1.2	SUBROUTINE PACKAGES_CHECK( myThid )
7	adcroft	1.1	C /==========================================================\
8	heimbach	1.2	C \| SUBROUTINE PACKAGES_CHECK \|
9	adcroft	1.6	C \| o Check runtime activated packages have been built in. \|
10	adcroft	1.1	C \|==========================================================\|
11	adcroft	1.6	C \| All packages can be selected/deselected at build time \|
12			C \| ( when code is compiled ) and activated/deactivated at \|
13			C \| runtime. This routine does a quick check to trap packages\|
14			C \| that were activated at runtime but that were not compiled\|
15			C \| in at build time. \|
16	adcroft	1.1	C \==========================================================/
17			IMPLICIT NONE
18
19			C === Global variables ===
20			#include "SIZE.h"
21			#include "EEPARAMS.h"
22			#include "PARAMS.h"
23
24			C === Routine arguments ===
25			C myThid - Number of this instances
26			INTEGER myThid
27
28			C === Local variables ===
29			C msgBuf - Informational/error meesage buffer
30			CHARACTER*(MAX_LEN_MBUF) msgBuf
31
32	heimbach	1.3	#ifdef ALLOW_KPP
33			IF (useKPP) CALL KPP_CHECK( myThid )
34	adcroft	1.1	#else
35	heimbach	1.5	IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)
36	adcroft	1.1	#endif
37
38	heimbach	1.3	#ifdef ALLOW_GMREDI
39			IF (useGMRedi) CALL GMREDI_CHECK( myThid )
40			#else
41	heimbach	1.5	IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
42	adcroft	1.1	#endif
43
44	adcroft	1.6	#ifdef ALLOW_OBCS
45			IF (useOBCS) CALL OBCS_CHECK( myThid )
46			#else
47			IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
48	jmc	1.7	#endif
49
50			#ifndef ALLOW_AIM
51			IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
52	adcroft	1.6	#endif
53
54			RETURN
55			END