pkg/darwin/darwin_check.F

C $Header$
C $Name$

#include "DARWIN_OPTIONS.h"

      SUBROUTINE DARWIN_CHECK( myThid )
C     /==========================================================\
C     | SUBROUTINE DARWIN_CHECK                                  |
C     | o Check dependences with other packages:                 |
C     |   Print darwin indices (iPO4,...) and ptracer names      |
C     |   to allow for manual check                              |
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
c#include "EEPARAMS.h"

C     === Routine arguments ===
C     myThid -  Number of this instances
      INTEGER myThid

C     === Local variables ===

#ifdef ALLOW_DARWIN
C     run checks specific to darwin
#ifdef ALLOW_QUOTA
      CALL QUOTA_CHECK( myThid )
#endif
#ifdef ALLOW_MONOD
      CALL MONOD_CHECK( myThid )
#endif
#endif /* ALLOW_DARWIN */
       
      RETURN
      END

1	C $Header$
2	C $Name$
3
4	#include "DARWIN_OPTIONS.h"
5
6	SUBROUTINE DARWIN_CHECK( myThid )
7	C /==========================================================\
8	C \| SUBROUTINE DARWIN_CHECK \|
9	C \| o Check dependences with other packages: \|
10	C \| Print darwin indices (iPO4,...) and ptracer names \|
11	C \| to allow for manual check \|
12	C \==========================================================/
13	IMPLICIT NONE
14
15	C === Global variables ===
16	c#include "EEPARAMS.h"
17
18	C === Routine arguments ===
19	C myThid - Number of this instances
20	INTEGER myThid
21
22	C === Local variables ===
23
24	#ifdef ALLOW_DARWIN
25	C run checks specific to darwin
26	#ifdef ALLOW_QUOTA
27	CALL QUOTA_CHECK( myThid )
28	#endif
29	#ifdef ALLOW_MONOD
30	CALL MONOD_CHECK( myThid )
31	#endif
32	#endif /* ALLOW_DARWIN */
33
34	RETURN
35	END
36