model/src/packages_check.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check.F,v 1.7 2001/02/20 19:39:42 jmc 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

#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.7 2001/02/20 19:39:42 jmc Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	SUBROUTINE PACKAGES_CHECK( myThid )
7	C /==========================================================\
8	C \| SUBROUTINE PACKAGES_CHECK \|
9	C \| o Check runtime activated packages have been built in. \|
10	C \|==========================================================\|
11	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	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	#ifdef ALLOW_KPP
33	IF (useKPP) CALL KPP_CHECK( myThid )
34	#else
35	IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)
36	#endif
37
38	#ifdef ALLOW_GMREDI
39	IF (useGMRedi) CALL GMREDI_CHECK( myThid )
40	#else
41	IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
42	#endif
43
44	#ifdef ALLOW_OBCS
45	IF (useOBCS) CALL OBCS_CHECK( myThid )
46	#else
47	IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
48	#endif
49
50	#ifndef ALLOW_AIM
51	IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
52	#endif
53
54	#ifndef ALLOW_FLT
55	IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
56	#endif
57
58	RETURN
59	END