File indexing completed on 2018-03-02 18:40:52 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
011faa4555 Jean*0001 #include "GCHEM_OPTIONS.h"
0002
0003
0004
0005
0006
0007 SUBROUTINE GCHEM_TR_REGISTER( myThid )
0008
0009
0010
0011
0012
0013 IMPLICIT NONE
0014 #include "SIZE.h"
0015 #include "EEPARAMS.h"
0016 #include "PARAMS.h"
0017 #include "GCHEM.h"
0018
0019
0020
0021 INTEGER myThid
0022
0023
0024
0025
0026 #ifdef ALLOW_GCHEM
0027
0028
0029
0030
0031
0032 CHARACTER*(MAX_LEN_MBUF) msgBuf
0033
0034
0035
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
0045 gchem_Tracer_num = 0
0046 gchem_sepFTr_num = 0
0047
0048
0049
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
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