File indexing completed on 2018-03-02 18:39:14 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
9178450731 Jean*0001 #include "DIC_OPTIONS.h"
0002
0003
0004
0005
0006 SUBROUTINE DIC_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
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 INTEGER DIC_Tr_num
0037
0038
0039 #ifdef ALLOW_FE
0040 DIC_Tr_num = 6
0041 #else /* ALLOW_FE */
0042 # ifdef ALLOW_O2
0043 DIC_Tr_num = 5
0044 # else /* ALLOW_O2 */
0045 DIC_Tr_num = 4
0046 # endif /* ALLOW_O2 */
0047 #endif /* ALLOW_FE */
0048
0049 WRITE(msgBuf,'(2A,2I5)') ' DIC_TR_REGISTER: ',
0050 & ' number of DIC tracers=', DIC_Tr_num
0051 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0052 & SQUEEZE_RIGHT, myThid )
0053 WRITE(msgBuf,'(2A,2I5)') ' DIC_TR_REGISTER: ',
0054 & ' starting at pTrc num=', tracer_num + 1
0055 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0056 & SQUEEZE_RIGHT, myThid )
0057
0058 tracer_num = tracer_num + DIC_Tr_num
0059 sepFTr_num = sepFTr_num + DIC_Tr_num
0060
0061 WRITE(msgBuf,'(2A,2I5)') ' DIC_TR_REGISTER: ',
0062 & ' Numb. Trac & SepForc Trac:', tracer_num, sepFTr_num
0063 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0064 & SQUEEZE_RIGHT, myThid )
0065
0066 RETURN
0067 END