/[MITgcm]/MITgcm_contrib/darwin/pkg/gchem/gchem_diags.F
ViewVC logotype

Annotation of /MITgcm_contrib/darwin/pkg/gchem/gchem_diags.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (hide annotations) (download)
Wed Jul 2 23:13:53 2008 UTC (17 years ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin_ckpt61i_20090224, ctrb_darwin_ckpt61m_20090430, ctrb_darwin_ckpt61d_20081212, ctrb_darwin_ckpt61h_20090224, ctrb_darwin_ckpt61_20080822, ctrb_darwin_ckpt61o_20090527, ctrb_darwin_ckpt61k_20090312, ctrb_darwin_ckpt61i_20090312, ctrb_darwin_ckpt61b_20080822, ctrb_darwin_ckpt61d_20081013, ctrb_darwin_ckpt61l_20090408, ctrb_darwin_ckpt61n_20090519, ctrb_darwin_ckpt61n_20090513
Changes since 1.1: +4 -1 lines
only call darwin if useDARWIN

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

  ViewVC Help
Powered by ViewVC 1.1.22