File indexing completed on 2018-03-02 18:38:20 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
9178450731 Jean*0001 #include "GCHEM_OPTIONS.h"
0002
0003
0004
0005
0006 SUBROUTINE CFC_TR_REGISTER(
0007 U tracer_num, sepFTr_num,
0008 I myThid )
0009
0010
0011
0012
0013
0014
0015
0016
0017 IMPLICIT NONE
0018
0019
0020 #include "SIZE.h"
0021 #include "EEPARAMS.h"
0022
0023 #include "CFC_SIZE.h"
0024
0025
0026
0027
0028
0029 INTEGER tracer_num
0030 INTEGER sepFTr_num
0031 INTEGER myThid
0032
0033
0034
0035 CHARACTER*(MAX_LEN_MBUF) msgBuf
0036
0037
0038 CFC_pTr_i1 = tracer_num + 1
0039 tracer_num = tracer_num + CFC_Tr_num
0040
0041 WRITE(msgBuf,'(2A,2I5)') ' CFC_TR_REGISTER: ',
0042 & ' number of CFC tracers=', CFC_Tr_num
0043 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0044 & SQUEEZE_RIGHT, myThid )
0045 WRITE(msgBuf,'(2A,2I5)') ' CFC_TR_REGISTER: ',
0046 & ' starting at pTrc num=', CFC_pTr_i1
0047 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0048 & SQUEEZE_RIGHT, myThid )
0049
0050 WRITE(msgBuf,'(2A,2I5)') ' CFC_TR_REGISTER: ',
0051 & ' Numb. Trac & SepForc Trac:', tracer_num, sepFTr_num
0052 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0053 & SQUEEZE_RIGHT, myThid )
0054
0055 RETURN
0056 END