pkg/gchem/gchem_output.F

daab022f42 Step*0001 #include "GCHEM_OPTIONS.h"
5dae554984 Oliv*0002 #ifdef ALLOW_DARWIN
                0003 #include "DARWIN_OPTIONS.h"
                0004 #endif
daab022f42 Step*0005
                0006 C !INTERFACE: ==========================================================
5175907b12 Jean*0007       SUBROUTINE GCHEM_OUTPUT( myTime, myIter, myThid )
daab022f42 Step*0008
8120bbf77d Step*0009 C !DESCRIPTION:
                0010 C calls subroutine that calculate diagnostic specific to
                0011 C any tracer epxperiment
5175907b12 Jean*0012 C also calls gchem monitor
8120bbf77d Step*0013
                0014 C !USES: ===============================================================
daab022f42 Step*0015       IMPLICIT NONE
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #include "PARAMS.h"
5dae554984 Oliv*0019 #include "GCHEM.h"
daab022f42 Step*0020
                0021 C !INPUT PARAMETERS: ===================================================
5175907b12 Jean*0022 C  myThid   :: my Thread Id number
                0023       _RL     myTime
                0024       INTEGER myIter
                0025       INTEGER myThid
8120bbf77d Step*0026 CEOP
daab022f42 Step*0027
5bff508b97 Step*0028 #ifdef ALLOW_GCHEM
daab022f42 Step*0029 cccccccccccccccccccccc
                0030 c diagnostics        c
                0031 cccccccccccccccccccccc
5bff508b97 Step*0032
fd9adddc17 Step*0033 #ifdef ALLOW_DIC
daab022f42 Step*0034 #ifdef ALLOW_TIMEAVE
5175907b12 Jean*0035        IF ( myIter.NE.nIter0 )
                0036      & CALL DIC_BIOTIC_DIAGS( myTime, myIter, myThid )
969f3d7839 Mart*0037 #endif /* ALLOW_TIMEAVE */
fd9adddc17 Step*0038 #endif /* ALLOW_DIC */
daab022f42 Step*0039
5dae554984 Oliv*0040 #ifdef ALLOW_DARWIN
                0041 #ifdef ALLOW_TIMEAVE
                0042       IF ( useDARWIN ) THEN
                0043        CALL DARWIN_DIAGS( myTime, myIter, myThid )
                0044 #ifdef ALLOW_CARBON
                0045        CALL DIC_DIAGS( myTime, myIter, myThid )
                0046 #endif
                0047       ENDIF
                0048 #endif
                0049 #endif
                0050
                0051
5bff508b97 Step*0052 #endif /* ALLOW_GCHEM */
daab022f42 Step*0053
                0054       RETURN
                0055       END