pkg/bling/bling_tr_register.F

9178450731 Jean*0001 #include "BLING_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: BLING_TR_REGISTER
                0005 C     !INTERFACE:
                0006       SUBROUTINE BLING_TR_REGISTER(
e0f9a7ba0b Matt*0007      U           tracer_num, sepFTr_num,
                0008      I           myThid )
9178450731 Jean*0009
                0010 C     !DESCRIPTION:
                0011 C     *==========================================================*
                0012 C     | SUBROUTINE BLING_TR_REGISTER
                0013 C     | o Register BLING 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
                0024 C     !INPUT/OUTPUT PARAMETERS:
                0025 C     tracer_num :: current number of registered tracers
                0026 C     sepFTr_num :: number of registered tracers that use Separate Forcing
                0027 C     myThid     :: my Thread Id number
                0028       INTEGER tracer_num
                0029       INTEGER sepFTr_num
                0030       INTEGER myThid
                0031
                0032 C     !LOCAL VARIABLES:
                0033 C     msgBuf     :: message buffer
                0034       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0035       INTEGER BLING_Tr_num
                0036 CEOP
                0037
e0f9a7ba0b Matt*0038 #ifndef USE_BLING_V1
                0039 # ifdef USE_SIBLING
9178450731 Jean*0040       BLING_Tr_num = 9
e0f9a7ba0b Matt*0041 # else
9178450731 Jean*0042       BLING_Tr_num = 8
e0f9a7ba0b Matt*0043 # endif
                0044 #else
                0045       BLING_Tr_num = 6
                0046 #endif
                0047 #ifdef ADVECT_PHYTO
                0048       BLING_Tr_num = BLING_Tr_num+1
9178450731 Jean*0049 #endif
                0050
                0051       WRITE(msgBuf,'(2A,2I5)') ' BLING_TR_REGISTER:',
                0052      &     ' number of BLING tracers=', BLING_Tr_num
                0053       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0054      &                    SQUEEZE_RIGHT, myThid )
                0055       WRITE(msgBuf,'(2A,2I5)') ' BLING_TR_REGISTER:',
                0056      &     '   starting at pTrc num =', tracer_num + 1
                0057       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0058      &                    SQUEEZE_RIGHT, myThid )
                0059
                0060       tracer_num = tracer_num + BLING_Tr_num
                0061       sepFTr_num = sepFTr_num + BLING_Tr_num
                0062
                0063       WRITE(msgBuf,'(2A,2I5)') ' BLING_TR_REGISTER:',
                0064      &     ' Numb. Trac & SepForc Trac:', tracer_num, sepFTr_num
                0065       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0066      &                    SQUEEZE_RIGHT, myThid )
                0067
                0068       RETURN
                0069       END