pkg/gchem/gchem_cons.F

9a7312b062 Oliv*0001 #include "GCHEM_OPTIONS.h"
                0002 #ifdef ALLOW_DIC
                0003 # include "DIC_OPTIONS.h"
                0004 #endif
                0005 #ifdef ALLOW_BLING
                0006 # include "BLING_OPTIONS.h"
                0007 #endif
                0008 #ifdef ALLOW_DARWIN
                0009 # include "DARWIN_OPTIONS.h"
                0010 #endif
                0011
                0012 CBOP
                0013 C !ROUTINE: GCHEM_CONS
                0014 C !INTERFACE: ==========================================================
                0015       SUBROUTINE GCHEM_CONS( stage, myTime, myIter, myThid )
                0016
                0017 C !DESCRIPTION:
                0018 C     calls subroutines that check for conservation of chemical elements
                0019 C     (carbon, nitrogen , phosphorus, ...).
                0020
                0021 C !USES: ===============================================================
                0022       IMPLICIT NONE
                0023 #include "EEPARAMS.h"
                0024 #include "GCHEM.h"
                0025
                0026 C !INPUT PARAMETERS: ===================================================
                0027 C  myThid               :: thread number
                0028       _RL myTime
                0029       INTEGER stage, myIter, myThid
                0030 CEOP
                0031
                0032 #ifdef ALLOW_GCHEM
                0033
                0034 C!LOCAL VARIABLES: ====================================================
                0035
                0036 #ifdef ALLOW_DEBUG
                0037       IF (debugMode) CALL DEBUG_ENTER('GCHEM_CONS',myThid)
                0038 #endif
                0039
                0040 #ifdef ALLOW_DARWIN
                0041       IF ( useDARWIN ) THEN
                0042         CALL DARWIN_CONS( stage, myTime, myIter, myThid )
                0043       ENDIF
                0044 #endif
                0045
                0046 #ifdef ALLOW_DEBUG
                0047       IF (debugMode) CALL DEBUG_LEAVE('GCHEM_FORCING_SEP',myThid)
                0048 #endif
                0049
                0050 #endif /* ALLOW_GCHEM */
                0051
                0052       RETURN
                0053       END