pkg/gchem/gchem_tr_register.F

011faa4555 Jean*0001 #include "GCHEM_OPTIONS.h"
                0002
                0003 CBOP
                0004 C !ROUTINE: GCHEM_TR_REGISTER
                0005
                0006 C !INTERFACE: ==========================================================
                0007       SUBROUTINE GCHEM_TR_REGISTER( myThid )
                0008
                0009 C !DESCRIPTION:
                0010 C     Register GCHEM tracer indices
                0011
                0012 C !USES: ===============================================================
                0013       IMPLICIT NONE
                0014 #include "SIZE.h"
                0015 #include "EEPARAMS.h"
                0016 #include "PARAMS.h"
                0017 #include "GCHEM.h"
                0018
                0019 C !INPUT PARAMETERS: ===================================================
                0020 C  myThid         :: thread number
                0021       INTEGER myThid
                0022
                0023 C !OUTPUT PARAMETERS: ==================================================
                0024 C  none
                0025
                0026 #ifdef ALLOW_GCHEM
                0027
                0028 C !LOCAL VARIABLES: ====================================================
                0029 C  iUnit          :: unit number for I/O
                0030 C  msgBuf         :: message buffer
                0031 c     INTEGER iUnit
                0032       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0033 CEOP
                0034
                0035 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0036
                0037       _BEGIN_MASTER(myThid)
                0038
                0039       WRITE(msgBuf,'(2A,2I5)') 'GCHEM_TR_REGISTER: ',
                0040      &     ' Start registering GCHEM tracers'
                0041       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0042      &                    SQUEEZE_RIGHT, myThid )
                0043
                0044 C--   Initialise
                0045       gchem_Tracer_num = 0
                0046       gchem_sepFTr_num = 0
                0047
                0048 C--   Register GCHEM tracers: start with those using Separate Forcing
                0049 C                             and finish with those using gchem-tendency
                0050
                0051 #ifdef ALLOW_DIC
                0052       IF ( useDIC ) THEN
                0053         CALL DIC_TR_REGISTER(
                0054      U              gchem_Tracer_num, gchem_sepFTr_num,
                0055      I              myThid )
                0056       ENDIF
                0057 #endif
                0058 #ifdef ALLOW_BLING
                0059       IF ( useBLING ) THEN
                0060         CALL BLING_TR_REGISTER(
                0061      U                gchem_Tracer_num, gchem_sepFTr_num,
                0062      I                myThid )
                0063       ENDIF
                0064 #endif
                0065 #ifdef ALLOW_DARWIN
                0066       IF ( useDARWIN ) THEN
5f8657ab5d Oliv*0067         CALL DARWIN_TR_REGISTER(
                0068      U                 gchem_Tracer_num, gchem_sepFTr_num,
                0069      I                 myThid )
011faa4555 Jean*0070       ENDIF
                0071 #endif
                0072
                0073 #ifdef ALLOW_CFC
                0074       IF ( useCFC ) THEN
                0075         CALL CFC_TR_REGISTER(
                0076      U              gchem_Tracer_num, gchem_sepFTr_num,
                0077      I              myThid )
                0078       ENDIF
                0079 #endif
                0080 #ifdef ALLOW_SPOIL
                0081       IF ( useSPOIL ) THEN
                0082         CALL SPOIL_TR_REGISTER(
                0083      U                gchem_Tracer_num, gchem_sepFTr_num,
                0084      I                myThid )
                0085       ENDIF
                0086 #endif
                0087
                0088 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0089
                0090       WRITE(msgBuf,'(2A,2I5)') 'GCHEM_TR_REGISTER: ',
                0091      &     ' Numb. Trac & SepForc Trac:',
                0092      &     gchem_Tracer_num, gchem_sepFTr_num
                0093       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0094      &                    SQUEEZE_RIGHT, myThid )
                0095       WRITE(msgBuf,'(A)') ' '
                0096       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0097      &                    SQUEEZE_RIGHT, myThid )
                0098
                0099       _END_MASTER(myThid)
                0100       _BARRIER
                0101
                0102 #endif /* ALLOW_GCHEM */
                0103
                0104       RETURN
                0105       END