pkg/gchem/gchem_diags.F

C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_diags.F,v 1.3 2009/05/29 18:37:42 stephd Exp $
C $Name:  $

#include "GCHEM_OPTIONS.h"
#ifdef ALLOW_DARWIN
#include "DARWIN_OPTIONS.h"
#endif

C !INTERFACE: ==========================================================
      SUBROUTINE GCHEM_DIAGS(myTime,myIter, myThid )

C !DESCRIPTION:
C calls subroutine that calculate diagnostic specific to
C any tracer epxperiment
C also calls gchem monitor 

C !USES: ===============================================================
      IMPLICIT NONE
#include "SIZE.h"
#include "GRID.h"
#include "DYNVARS.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GCHEM.h"

C !INPUT PARAMETERS: ===================================================
C  myThid               :: thread number
      INTEGER myThid, myIter
      _RL myTime
CEOP

#ifdef ALLOW_GCHEM
cccccccccccccccccccccc
c diagnostics        c
cccccccccccccccccccccc

#ifdef ALLOW_DIC
#ifdef ALLOW_TIMEAVE
       IF (myIter.NE.nIter0)
     & call dic_biotic_diags( myTime, myIter, myThid )
#endif /* ALLOW_TIMEAVE */
#endif /* ALLOW_DIC */

#ifdef ALLOW_DARWIN
#ifdef ALLOW_TIMEAVE
      IF ( useDARWIN ) THEN
       call darwin_diags( myTime, myIter, myThid )
#ifdef ALLOW_CARBON
       call dic_diags( myTime, myIter, myThid )
#endif
      ENDIF
#endif
#endif

#ifdef ALLOW_NPZDCAR
#ifdef ALLOW_TIMEAVE
       call npzdcar_diags( myTime, myIter, myThid )
#endif
#endif


#endif /* ALLOW_GCHEM */

      RETURN
      END
1	jahn	1.4	C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_diags.F,v 1.3 2009/05/29 18:37:42 stephd Exp $
2	jahn	1.1	C $Name: $
3
4			#include "GCHEM_OPTIONS.h"
5	stephd	1.3	#ifdef ALLOW_DARWIN
6			#include "DARWIN_OPTIONS.h"
7			#endif
8	jahn	1.1
9			C !INTERFACE: ==========================================================
10			SUBROUTINE GCHEM_DIAGS(myTime,myIter, myThid )
11
12			C !DESCRIPTION:
13			C calls subroutine that calculate diagnostic specific to
14			C any tracer epxperiment
15			C also calls gchem monitor
16
17			C !USES: ===============================================================
18			IMPLICIT NONE
19			#include "SIZE.h"
20			#include "GRID.h"
21			#include "DYNVARS.h"
22			#include "EEPARAMS.h"
23			#include "PARAMS.h"
24	jahn	1.2	#include "GCHEM.h"
25	jahn	1.1
26			C !INPUT PARAMETERS: ===================================================
27			C myThid :: thread number
28			INTEGER myThid, myIter
29			_RL myTime
30			CEOP
31
32			#ifdef ALLOW_GCHEM
33			cccccccccccccccccccccc
34			c diagnostics c
35			cccccccccccccccccccccc
36
37			#ifdef ALLOW_DIC
38			#ifdef ALLOW_TIMEAVE
39			IF (myIter.NE.nIter0)
40			& call dic_biotic_diags( myTime, myIter, myThid )
41			#endif /* ALLOW_TIMEAVE */
42			#endif /* ALLOW_DIC */
43
44			#ifdef ALLOW_DARWIN
45			#ifdef ALLOW_TIMEAVE
46	jahn	1.2	IF ( useDARWIN ) THEN
47	jahn	1.1	call darwin_diags( myTime, myIter, myThid )
48	stephd	1.3	#ifdef ALLOW_CARBON
49			call dic_diags( myTime, myIter, myThid )
50			#endif
51	jahn	1.2	ENDIF
52	jahn	1.1	#endif
53			#endif
54
55			#ifdef ALLOW_NPZDCAR
56			#ifdef ALLOW_TIMEAVE
57			call npzdcar_diags( myTime, myIter, myThid )
58			#endif
59			#endif
60
61
62			#endif /* ALLOW_GCHEM */
63
64			RETURN
65			END