model/src/packages_check.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_check.F,v 1.36 2006/08/15 04:24:03 edhill 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_ATM2D
      IF (useATM2D) CALL PACKAGES_CHECK_ERROR('ATM2D', 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
      IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )
#endif

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

#ifdef ALLOW_REGRID
      IF (useREGRID) CALL REGRID_CHECK( myThid )
#else
      IF (useREGRID) CALL PACKAGES_CHECK_ERROR('REGRID', myThid)
#endif

#ifdef ALLOW_MYPACKAGE
      IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
#else
      IF (useMYPACKAGE) CALL PACKAGES_CHECK_ERROR('MYPACKAGE', myThid)
#endif

      RETURN
      END
1	jscott	1.37	C $Header: /u/gcmpack/MITgcm/model/src/packages_check.F,v 1.36 2006/08/15 04:24:03 edhill 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	jscott	1.37	#ifndef ALLOW_ATM2D
99			IF (useATM2D) CALL PACKAGES_CHECK_ERROR('ATM2D', myThid)
100			#endif
101
102	jmc	1.7	#ifndef ALLOW_AIM
103			IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
104	jmc	1.14	#endif
105
106			#ifndef ALLOW_LAND
107			IF (useLand) CALL PACKAGES_CHECK_ERROR('LAND', myThid)
108	adcroft	1.11	#endif
109
110			#ifndef ALLOW_PTRACERS
111			IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
112	jmc	1.10	#endif
113
114	jmc	1.30	#ifndef ALLOW_MATRIX
115			IF (useMATRIX) CALL PACKAGES_CHECK_ERROR('MATRIX', myThid)
116			#endif
117
118	mlosch	1.25	#ifdef ALLOW_GCHEM
119			IF (useGCHEM) CALL GCHEM_CHECK( myThid )
120			#else
121			IF (useGCHEM) CALL PACKAGES_CHECK_ERROR('GCHEM', myThid)
122			#endif
123
124	jmc	1.33	#ifndef ALLOW_OFFLINE
125			IF (useOffLine) CALL PACKAGES_CHECK_ERROR('OFFLINE', myThid)
126			#endif
127
128	jmc	1.10	#ifndef ALLOW_SHAP_FILT
129			IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)
130			#endif
131
132			#ifndef ALLOW_ZONAL_FILT
133			IF (useZONAL_FILT) CALL PACKAGES_CHECK_ERROR('ZONAL_FILT',myThid)
134	adcroft	1.8	#endif
135
136			#ifndef ALLOW_FLT
137			IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
138	dimitri	1.13	#endif
139
140			#ifdef ALLOW_SBO
141			IF (useSBO) CALL SBO_CHECK( myThid )
142			#else
143			IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)
144	heimbach	1.12	#endif
145
146			#ifdef ALLOW_SEAICE
147			IF (useSEAICE) CALL SEAICE_CHECK( myThid )
148			#else
149			IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)
150	edhill	1.20	#endif
151
152	mlosch	1.32	#ifdef ALLOW_SHELFICE
153			IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
154			#else
155			IF (useShelfIce) CALL PACKAGES_CHECK_ERROR('SHELFICE', myThid)
156			#endif
157
158	edhill	1.20	#ifndef ALLOW_CD_CODE
159			IF (useCDscheme) CALL PACKAGES_CHECK_ERROR('CD_CODE', myThid)
160	heimbach	1.15	#endif
161
162	heimbach	1.19	#ifdef ALLOW_AUTODIFF
163	heimbach	1.24	CALL AUTODIFF_CHECK( myThid )
164	heimbach	1.26	#endif
165
166			#ifdef ALLOW_CTRL
167	heimbach	1.15	CALL CTRL_CHECK( myThid )
168	heimbach	1.26	#endif
169
170			#ifdef ALLOW_COST
171	heimbach	1.15	CALL COST_CHECK( myThid )
172	adcroft	1.6	#endif
173
174	heimbach	1.29	#ifdef ALLOW_GRDCHK
175	heimbach	1.34	IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )
176	heimbach	1.29	#endif
177
178	jmc	1.27	#ifdef ALLOW_DIAGNOSTICS
179			IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
180			#else
181	jmc	1.33	IF (useDiagnostics)
182	jmc	1.27	& CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid )
183			#endif
184
185	edhill	1.36	#ifdef ALLOW_REGRID
186			IF (useREGRID) CALL REGRID_CHECK( myThid )
187			#else
188			IF (useREGRID) CALL PACKAGES_CHECK_ERROR('REGRID', myThid)
189			#endif
190
191	heimbach	1.35	#ifdef ALLOW_MYPACKAGE
192			IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
193			#else
194			IF (useMYPACKAGE) CALL PACKAGES_CHECK_ERROR('MYPACKAGE', myThid)
195			#endif
196
197	adcroft	1.6	RETURN
198			END