pkg/dic/dic_tr_register.F

9178450731 Jean*0001 #include "DIC_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: DIC_TR_REGISTER
                0005 C     !INTERFACE:
                0006       SUBROUTINE DIC_TR_REGISTER(
                0007      U                            tracer_num, sepFTr_num,
                0008      I                            myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     *==========================================================*
                0012 C     | SUBROUTINE DIC_TR_REGISTER
                0013 C     | o Register DIC tracer indices
                0014 C     *==========================================================*
                0015
                0016 C     !USES:
                0017       IMPLICIT NONE
                0018
                0019 C     == GLobal variables ==
                0020 #include "SIZE.h"
                0021 #include "EEPARAMS.h"
                0022 c#include "PARAMS.h"
                0023 c#include "DIC_VARS.h"
                0024
                0025 C     !INPUT/OUTPUT PARAMETERS:
                0026 C     tracer_num :: current number of registered tracers
                0027 C     sepFTr_num :: number of registered tracers that use Separate Forcing
                0028 C     myThid     :: my Thread Id number
                0029       INTEGER tracer_num
                0030       INTEGER sepFTr_num
                0031       INTEGER myThid
                0032
                0033 C     !LOCAL VARIABLES:
                0034 C     msgBuf     :: message buffer
                0035       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0036       INTEGER DIC_Tr_num
                0037 CEOP
                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