model/src/packages_check.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_check.F,v 1.14 2003/06/12 18:21:34 jmc Exp $
C $Name:  $

#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
      CHARACTER*(MAX_LEN_MBUF) msgBuf
CEOP

#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

#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_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

#if ( defined (ALLOW_ADJOINT_RUN) || \
      defined (ALLOW_TANGENTLINEAR_RUN) || \
      defined (ALLOW_GRADIENT_CHECK) || \
      defined (ALLOW_ECCO_OPTIMIZATION) )
      CALL CTRL_CHECK( myThid )
      CALL COST_CHECK( myThid )
#endif

      RETURN
      END
1	heimbach	1.15	C $Header: /u/gcmpack/MITgcm/model/src/packages_check.F,v 1.14 2003/06/12 18:21:34 jmc Exp $
2	adcroft	1.6	C $Name: $
3	adcroft	1.1
4			#include "CPP_OPTIONS.h"
5
6	cnh	1.9	CBOP
7			C !ROUTINE: PACKAGES_CHECK
8			C !INTERFACE:
9	heimbach	1.2	SUBROUTINE PACKAGES_CHECK( myThid )
10	cnh	1.9	C !DESCRIPTION: \bv
11			C ==========================================================
12			C \| SUBROUTINE PACKAGES_CHECK
13			C \| o Check runtime activated packages have been built in.
14			C ==========================================================
15			C \| All packages can be selected/deselected at build time
16			C \| ( when code is compiled ) and activated/deactivated at
17			C \| runtime. This routine does a quick check to trap packages
18			C \| that were activated at runtime but that were not compiled
19			C \| in at build time.
20			C ==========================================================
21			C \ev
22
23			C !USES:
24	adcroft	1.1	IMPLICIT NONE
25			C === Global variables ===
26			#include "SIZE.h"
27			#include "EEPARAMS.h"
28			#include "PARAMS.h"
29
30	cnh	1.9	C !INPUT/OUTPUT PARAMETERS:
31	adcroft	1.1	C === Routine arguments ===
32	cnh	1.9	C myThid :: Number of this instances
33	adcroft	1.1	INTEGER myThid
34
35	cnh	1.9	C !LOCAL VARIABLES:
36	adcroft	1.1	C === Local variables ===
37	cnh	1.9	C msgBuf :: Informational/error meesage buffer
38	adcroft	1.1	CHARACTER*(MAX_LEN_MBUF) msgBuf
39	cnh	1.9	CEOP
40	adcroft	1.1
41	heimbach	1.3	#ifdef ALLOW_KPP
42			IF (useKPP) CALL KPP_CHECK( myThid )
43	adcroft	1.1	#else
44	heimbach	1.5	IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)
45	adcroft	1.1	#endif
46
47	heimbach	1.3	#ifdef ALLOW_GMREDI
48			IF (useGMRedi) CALL GMREDI_CHECK( myThid )
49			#else
50	heimbach	1.5	IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
51	adcroft	1.1	#endif
52
53	adcroft	1.6	#ifdef ALLOW_OBCS
54			IF (useOBCS) CALL OBCS_CHECK( myThid )
55			#else
56			IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
57	jmc	1.7	#endif
58
59			#ifndef ALLOW_AIM
60			IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
61	jmc	1.14	#endif
62
63			#ifndef ALLOW_LAND
64			IF (useLand) CALL PACKAGES_CHECK_ERROR('LAND', myThid)
65	adcroft	1.11	#endif
66
67			#ifndef ALLOW_PTRACERS
68			IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
69	jmc	1.10	#endif
70
71			#ifndef ALLOW_SHAP_FILT
72			IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)
73			#endif
74
75			#ifndef ALLOW_ZONAL_FILT
76			IF (useZONAL_FILT) CALL PACKAGES_CHECK_ERROR('ZONAL_FILT',myThid)
77	adcroft	1.8	#endif
78
79			#ifndef ALLOW_FLT
80			IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
81	dimitri	1.13	#endif
82
83			#ifdef ALLOW_SBO
84			IF (useSBO) CALL SBO_CHECK( myThid )
85			#else
86			IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)
87	heimbach	1.12	#endif
88
89			#ifdef ALLOW_SEAICE
90			IF (useSEAICE) CALL SEAICE_CHECK( myThid )
91			#else
92			IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)
93	heimbach	1.15	#endif
94
95			#if ( defined (ALLOW_ADJOINT_RUN) \|\| \
96			defined (ALLOW_TANGENTLINEAR_RUN) \|\| \
97			defined (ALLOW_GRADIENT_CHECK) \|\| \
98			defined (ALLOW_ECCO_OPTIMIZATION) )
99			CALL CTRL_CHECK( myThid )
100			CALL COST_CHECK( myThid )
101	adcroft	1.6	#endif
102
103			RETURN
104			END