pkg/gchem/gchem_output.F

C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_output.F,v 1.1 2009/06/18 14:25:25 jahn Exp $
C $Name:  $

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

C !INTERFACE: ==========================================================
      SUBROUTINE GCHEM_OUTPUT(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 "EEPARAMS.h"
#include "PARAMS.h"
#include "GCHEM.h"

C !INPUT PARAMETERS: ===================================================
C  myThid   :: thread number
      _RL     myTime
      INTEGER myIter
      INTEGER myThid
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.2	C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_output.F,v 1.1 2009/06/18 14:25:25 jahn Exp $
2	jahn	1.1	C $Name: $
3
4			#include "GCHEM_OPTIONS.h"
5			#ifdef ALLOW_DARWIN
6			#include "DARWIN_OPTIONS.h"
7			#endif
8
9			C !INTERFACE: ==========================================================
10			SUBROUTINE GCHEM_OUTPUT(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 "EEPARAMS.h"
21			#include "PARAMS.h"
22			#include "GCHEM.h"
23
24			C !INPUT PARAMETERS: ===================================================
25			C myThid :: thread number
26			_RL myTime
27			INTEGER myIter
28			INTEGER myThid
29			CEOP
30
31			#ifdef ALLOW_GCHEM
32			cccccccccccccccccccccc
33			c diagnostics c
34			cccccccccccccccccccccc
35
36			#ifdef ALLOW_DIC
37			#ifdef ALLOW_TIMEAVE
38			IF ( myIter.NE.nIter0 )
39			& CALL DIC_BIOTIC_DIAGS( myTime, myIter, myThid )
40			#endif /* ALLOW_TIMEAVE */
41			#endif /* ALLOW_DIC */
42
43			#ifdef ALLOW_DARWIN
44			#ifdef ALLOW_TIMEAVE
45			IF ( useDARWIN ) THEN
46			CALL DARWIN_DIAGS( myTime, myIter, myThid )
47			#ifdef ALLOW_CARBON
48			CALL DIC_DIAGS( myTime, myIter, myThid )
49			#endif
50			ENDIF
51			#endif
52			#endif
53
54			#ifdef ALLOW_NPZDCAR
55			#ifdef ALLOW_TIMEAVE
56			call npzdcar_diags( myTime, myIter, myThid )
57			#endif
58			#endif
59
60
61			#endif /* ALLOW_GCHEM */
62
63			RETURN
64			END