model/src/packages_check.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check.F,v 1.4 2000/09/13 20:35:07 heimbach Exp $

#include "CPP_OPTIONS.h"

      SUBROUTINE PACKAGES_CHECK( myThid )
C     /==========================================================\
C     | SUBROUTINE PACKAGES_CHECK                                |
C     | o Check dependances between selected packages            |
C     |==========================================================|
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

      return
      end
1	heimbach	1.5	C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check.F,v 1.4 2000/09/13 20:35:07 heimbach Exp $
2	adcroft	1.1
3			#include "CPP_OPTIONS.h"
4
5	heimbach	1.2	SUBROUTINE PACKAGES_CHECK( myThid )
6	adcroft	1.1	C /==========================================================\
7	heimbach	1.2	C \| SUBROUTINE PACKAGES_CHECK \|
8	adcroft	1.1	C \| o Check dependances between selected packages \|
9			C \|==========================================================\|
10			C \==========================================================/
11			IMPLICIT NONE
12
13			C === Global variables ===
14			#include "SIZE.h"
15			#include "EEPARAMS.h"
16			#include "PARAMS.h"
17
18			C === Routine arguments ===
19			C myThid - Number of this instances
20			INTEGER myThid
21
22			C === Local variables ===
23			C msgBuf - Informational/error meesage buffer
24			CHARACTER*(MAX_LEN_MBUF) msgBuf
25
26	heimbach	1.3	#ifdef ALLOW_KPP
27			IF (useKPP) CALL KPP_CHECK( myThid )
28	adcroft	1.1	#else
29	heimbach	1.5	IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)
30	adcroft	1.1	#endif
31
32	heimbach	1.3	#ifdef ALLOW_GMREDI
33			IF (useGMRedi) CALL GMREDI_CHECK( myThid )
34			#else
35	heimbach	1.5	IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
36	adcroft	1.1	#endif
37
38			return
39			end