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
5dae554984 Oliv*0033 #ifdef ALLOW_DARWIN
                0034 #ifdef ALLOW_TIMEAVE
                0035       IF ( useDARWIN ) THEN
                0036        CALL DARWIN_DIAGS( myTime, myIter, myThid )
                0037 #ifdef ALLOW_CARBON
                0038        CALL DIC_DIAGS( myTime, myIter, myThid )
                0039 #endif
                0040       ENDIF
                0041 #endif
                0042 #endif
                0043
5bff508b97 Step*0044 #endif /* ALLOW_GCHEM */
daab022f42 Step*0045
                0046       RETURN
                0047       END