model/src/packages_check.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check.F,v 1.8 2001/09/13 17:43:55 adcroft 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_FLT
      IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
#endif

      RETURN
      END
1	C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check.F,v 1.8 2001/09/13 17:43:55 adcroft Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: PACKAGES_CHECK
8	C !INTERFACE:
9	SUBROUTINE PACKAGES_CHECK( myThid )
10	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	IMPLICIT NONE
25	C === Global variables ===
26	#include "SIZE.h"
27	#include "EEPARAMS.h"
28	#include "PARAMS.h"
29
30	C !INPUT/OUTPUT PARAMETERS:
31	C === Routine arguments ===
32	C myThid :: Number of this instances
33	INTEGER myThid
34
35	C !LOCAL VARIABLES:
36	C === Local variables ===
37	C msgBuf :: Informational/error meesage buffer
38	CHARACTER*(MAX_LEN_MBUF) msgBuf
39	CEOP
40
41	#ifdef ALLOW_KPP
42	IF (useKPP) CALL KPP_CHECK( myThid )
43	#else
44	IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)
45	#endif
46
47	#ifdef ALLOW_GMREDI
48	IF (useGMRedi) CALL GMREDI_CHECK( myThid )
49	#else
50	IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
51	#endif
52
53	#ifdef ALLOW_OBCS
54	IF (useOBCS) CALL OBCS_CHECK( myThid )
55	#else
56	IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
57	#endif
58
59	#ifndef ALLOW_AIM
60	IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
61	#endif
62
63	#ifndef ALLOW_FLT
64	IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
65	#endif
66
67	RETURN
68	END