model/src/packages_check.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_check.F,v 1.32 2006/02/07 11:47:48 mlosch Exp $
C $Name:  $

#include "PACKAGES_CONFIG.h"
#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: PACKAGES_CHECK
C     !INTERFACE:
      SUBROUTINE PACKAGES_CHECK( myThid )
C     !DESCRIPTION: \bv
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     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     myThid ::  Number of this instances
      INTEGER myThid

C     !LOCAL VARIABLES:
C     === Local variables ===
C     msgBuf      :: Informational/error meesage buffer
c     CHARACTER*(MAX_LEN_MBUF) msgBuf
CEOP

#ifdef ALLOW_RUNCLOCK
      IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )
#else
      IF (useRunClock) CALL PACKAGES_CHECK_ERROR('RUNCLOCK', myThid)
#endif

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

#ifdef ALLOW_PP81
      IF (usePP81) CALL PP81_CHECK( myThid )
#else
      IF (usePP81) CALL PACKAGES_CHECK_ERROR('PP81', myThid)
#endif

#ifdef ALLOW_MY82
      IF (useMY82) CALL MY82_CHECK( myThid )
#else
      IF (useMY82) CALL PACKAGES_CHECK_ERROR('MY82', myThid)
#endif

#ifdef ALLOW_GGL90
      IF (useGGL90) CALL GGL90_CHECK( myThid )
#else
      IF (useGGL90) CALL PACKAGES_CHECK_ERROR('GGL90', myThid)
#endif

#ifdef ALLOW_OPPS
      IF (useOPPS) CALL OPPS_CHECK( myThid )
#else
      IF (useOPPS) CALL PACKAGES_CHECK_ERROR('OPPS', 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_BULK_FORCE
      IF (useBulkForce) CALL PACKAGES_CHECK_ERROR('BULK?FORCE',myThid)
#endif

#ifndef ALLOW_THSICE
      IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid)
#endif

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

#ifndef ALLOW_LAND
      IF (useLand) CALL PACKAGES_CHECK_ERROR('LAND', myThid)
#endif

#ifndef ALLOW_PTRACERS
      IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
#endif

#ifndef ALLOW_MATRIX
      IF (useMATRIX) CALL PACKAGES_CHECK_ERROR('MATRIX', myThid)
#endif

#ifdef ALLOW_GCHEM
      IF (useGCHEM) CALL GCHEM_CHECK( myThid )
#else
      IF (useGCHEM) CALL PACKAGES_CHECK_ERROR('GCHEM', myThid)
#endif

#ifndef ALLOW_OFFLINE
      IF (useOffLine) CALL PACKAGES_CHECK_ERROR('OFFLINE', myThid)
#endif

#ifndef ALLOW_SHAP_FILT
      IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)
#endif

#ifndef ALLOW_ZONAL_FILT
      IF (useZONAL_FILT) CALL PACKAGES_CHECK_ERROR('ZONAL_FILT',myThid)
#endif

#ifndef ALLOW_FLT
      IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
#endif

#ifdef ALLOW_SBO
      IF (useSBO) CALL SBO_CHECK( myThid )
#else
      IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)
#endif

#ifdef ALLOW_SEAICE
      IF (useSEAICE) CALL SEAICE_CHECK( myThid )
#else
      IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)
#endif

#ifdef ALLOW_SHELFICE
      IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
#else
      IF (useShelfIce) CALL PACKAGES_CHECK_ERROR('SHELFICE', myThid)
#endif

#ifndef ALLOW_CD_CODE
      IF (useCDscheme) CALL PACKAGES_CHECK_ERROR('CD_CODE', myThid)
#endif

#ifdef ALLOW_AUTODIFF
      CALL AUTODIFF_CHECK( myThid )
#endif

#ifdef ALLOW_CTRL
      CALL CTRL_CHECK( myThid )
#endif

#ifdef ALLOW_COST
      CALL COST_CHECK( myThid )
#endif

#ifdef ALLOW_GRDCHK
      CALL GRDCHK_CHECK( myThid )
#endif

#ifdef ALLOW_DIAGNOSTICS
      IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
#else
      IF (useDiagnostics)
     &   CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid )
#endif

      RETURN
      END
1	jmc	1.33	C $Header: /u/gcmpack/MITgcm/model/src/packages_check.F,v 1.32 2006/02/07 11:47:48 mlosch Exp $
2	adcroft	1.6	C $Name: $
3	adcroft	1.1
4	edhill	1.16	#include "PACKAGES_CONFIG.h"
5	adcroft	1.1	#include "CPP_OPTIONS.h"
6
7	cnh	1.9	CBOP
8			C !ROUTINE: PACKAGES_CHECK
9			C !INTERFACE:
10	heimbach	1.2	SUBROUTINE PACKAGES_CHECK( myThid )
11	cnh	1.9	C !DESCRIPTION: \bv
12			C ==========================================================
13			C \| SUBROUTINE PACKAGES_CHECK
14			C \| o Check runtime activated packages have been built in.
15			C ==========================================================
16			C \| All packages can be selected/deselected at build time
17			C \| ( when code is compiled ) and activated/deactivated at
18			C \| runtime. This routine does a quick check to trap packages
19			C \| that were activated at runtime but that were not compiled
20			C \| in at build time.
21			C ==========================================================
22			C \ev
23
24			C !USES:
25	adcroft	1.1	IMPLICIT NONE
26			C === Global variables ===
27			#include "SIZE.h"
28			#include "EEPARAMS.h"
29			#include "PARAMS.h"
30
31	cnh	1.9	C !INPUT/OUTPUT PARAMETERS:
32	adcroft	1.1	C === Routine arguments ===
33	cnh	1.9	C myThid :: Number of this instances
34	adcroft	1.1	INTEGER myThid
35
36	cnh	1.9	C !LOCAL VARIABLES:
37	adcroft	1.1	C === Local variables ===
38	cnh	1.9	C msgBuf :: Informational/error meesage buffer
39	jmc	1.31	c CHARACTER*(MAX_LEN_MBUF) msgBuf
40	cnh	1.9	CEOP
41	adcroft	1.1
42	adcroft	1.28	#ifdef ALLOW_RUNCLOCK
43			IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )
44			#else
45			IF (useRunClock) CALL PACKAGES_CHECK_ERROR('RUNCLOCK', myThid)
46			#endif
47
48	heimbach	1.3	#ifdef ALLOW_KPP
49			IF (useKPP) CALL KPP_CHECK( myThid )
50	adcroft	1.1	#else
51	heimbach	1.5	IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)
52	adcroft	1.1	#endif
53
54	mlosch	1.22	#ifdef ALLOW_PP81
55			IF (usePP81) CALL PP81_CHECK( myThid )
56			#else
57			IF (usePP81) CALL PACKAGES_CHECK_ERROR('PP81', myThid)
58			#endif
59
60			#ifdef ALLOW_MY82
61			IF (useMY82) CALL MY82_CHECK( myThid )
62			#else
63			IF (useMY82) CALL PACKAGES_CHECK_ERROR('MY82', myThid)
64			#endif
65
66	mlosch	1.23	#ifdef ALLOW_GGL90
67			IF (useGGL90) CALL GGL90_CHECK( myThid )
68			#else
69			IF (useGGL90) CALL PACKAGES_CHECK_ERROR('GGL90', myThid)
70			#endif
71
72			#ifdef ALLOW_OPPS
73			IF (useOPPS) CALL OPPS_CHECK( myThid )
74			#else
75			IF (useOPPS) CALL PACKAGES_CHECK_ERROR('OPPS', myThid)
76			#endif
77
78	heimbach	1.3	#ifdef ALLOW_GMREDI
79			IF (useGMRedi) CALL GMREDI_CHECK( myThid )
80			#else
81	heimbach	1.5	IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
82	adcroft	1.1	#endif
83
84	adcroft	1.6	#ifdef ALLOW_OBCS
85			IF (useOBCS) CALL OBCS_CHECK( myThid )
86			#else
87			IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
88	jmc	1.17	#endif
89
90			#ifndef ALLOW_BULK_FORCE
91	jmc	1.21	IF (useBulkForce) CALL PACKAGES_CHECK_ERROR('BULK?FORCE',myThid)
92	jmc	1.17	#endif
93
94	jmc	1.21	#ifndef ALLOW_THSICE
95			IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid)
96	jmc	1.7	#endif
97
98			#ifndef ALLOW_AIM
99			IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
100	jmc	1.14	#endif
101
102			#ifndef ALLOW_LAND
103			IF (useLand) CALL PACKAGES_CHECK_ERROR('LAND', myThid)
104	adcroft	1.11	#endif
105
106			#ifndef ALLOW_PTRACERS
107			IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
108	jmc	1.10	#endif
109
110	jmc	1.30	#ifndef ALLOW_MATRIX
111			IF (useMATRIX) CALL PACKAGES_CHECK_ERROR('MATRIX', myThid)
112			#endif
113
114	mlosch	1.25	#ifdef ALLOW_GCHEM
115			IF (useGCHEM) CALL GCHEM_CHECK( myThid )
116			#else
117			IF (useGCHEM) CALL PACKAGES_CHECK_ERROR('GCHEM', myThid)
118			#endif
119
120	jmc	1.33	#ifndef ALLOW_OFFLINE
121			IF (useOffLine) CALL PACKAGES_CHECK_ERROR('OFFLINE', myThid)
122			#endif
123
124	jmc	1.10	#ifndef ALLOW_SHAP_FILT
125			IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)
126			#endif
127
128			#ifndef ALLOW_ZONAL_FILT
129			IF (useZONAL_FILT) CALL PACKAGES_CHECK_ERROR('ZONAL_FILT',myThid)
130	adcroft	1.8	#endif
131
132			#ifndef ALLOW_FLT
133			IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
134	dimitri	1.13	#endif
135
136			#ifdef ALLOW_SBO
137			IF (useSBO) CALL SBO_CHECK( myThid )
138			#else
139			IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)
140	heimbach	1.12	#endif
141
142			#ifdef ALLOW_SEAICE
143			IF (useSEAICE) CALL SEAICE_CHECK( myThid )
144			#else
145			IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)
146	edhill	1.20	#endif
147
148	mlosch	1.32	#ifdef ALLOW_SHELFICE
149			IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
150			#else
151			IF (useShelfIce) CALL PACKAGES_CHECK_ERROR('SHELFICE', myThid)
152			#endif
153
154	edhill	1.20	#ifndef ALLOW_CD_CODE
155			IF (useCDscheme) CALL PACKAGES_CHECK_ERROR('CD_CODE', myThid)
156	heimbach	1.15	#endif
157
158	heimbach	1.19	#ifdef ALLOW_AUTODIFF
159	heimbach	1.24	CALL AUTODIFF_CHECK( myThid )
160	heimbach	1.26	#endif
161
162			#ifdef ALLOW_CTRL
163	heimbach	1.15	CALL CTRL_CHECK( myThid )
164	heimbach	1.26	#endif
165
166			#ifdef ALLOW_COST
167	heimbach	1.15	CALL COST_CHECK( myThid )
168	adcroft	1.6	#endif
169
170	heimbach	1.29	#ifdef ALLOW_GRDCHK
171			CALL GRDCHK_CHECK( myThid )
172			#endif
173
174	jmc	1.27	#ifdef ALLOW_DIAGNOSTICS
175			IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
176			#else
177	jmc	1.33	IF (useDiagnostics)
178	jmc	1.27	& CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid )
179			#endif
180
181	adcroft	1.6	RETURN
182			END