pkg/darwin/darwin_tr_register.F

8fbfd1f382 Oliv*0001 C $Header: /u/gcmpack/MITgcm_contrib/darwin2/pkg/darwin/darwin_tr_register.F,v 1.1 2018/01/19 22:13:36 jahn Exp $
                0002 C $Name:  $
                0003
                0004 #include "DARWIN_OPTIONS.h"
                0005
                0006 CBOP
                0007 C     !ROUTINE: DARWIN_TR_REGISTER
                0008 C     !INTERFACE:
                0009       SUBROUTINE DARWIN_TR_REGISTER(
                0010      U                            tracer_num, sepFTr_num,
                0011      I                            myThid )
                0012
                0013 C     !DESCRIPTION:
                0014 C     *==========================================================*
                0015 C     | SUBROUTINE DARWIN_TR_REGISTER
                0016 C     | o Register DARWIN tracer indices
                0017 C     *==========================================================*
                0018
                0019 C     !USES:
                0020       IMPLICIT NONE
                0021
                0022 C     == GLobal variables ==
                0023 #include "EEPARAMS.h"
                0024 #include "DARWIN_SIZE.h"
                0025 #include "DARWIN_INDICES.h"
                0026
                0027 C     !INPUT/OUTPUT PARAMETERS:
                0028 C     tracer_num :: current number of registered tracers
                0029 C     sepFTr_num :: number of registered tracers that use Separate Forcing
                0030 C     myThid     :: my Thread Id number
                0031       INTEGER tracer_num
                0032       INTEGER sepFTr_num
                0033       INTEGER myThid
                0034
                0035 C     !LOCAL VARIABLES:
                0036 C     msgBuf     :: message buffer
                0037       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0038 CEOP
                0039
                0040       WRITE(msgBuf,'(2A,2I5)') '  DARWIN_TR_REGISTER: ',
                0041      &     ' number of DARWIN tracers=', nDarwin
                0042       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0043      &                    SQUEEZE_RIGHT, myThid )
                0044       WRITE(msgBuf,'(2A,2I5)') '  DARWIN_TR_REGISTER: ',
                0045      &     '  starting at pTrc num=', tracer_num + 1
                0046       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0047      &                    SQUEEZE_RIGHT, myThid )
                0048
                0049       tracer_num = tracer_num + nDarwin
                0050       sepFTr_num = sepFTr_num + nDarwin
                0051
                0052       WRITE(msgBuf,'(2A,2I5)') '  DARWIN_TR_REGISTER: ',
                0053      &     ' Numb. Trac & SepForc Trac:', tracer_num, sepFTr_num
                0054       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0055      &                    SQUEEZE_RIGHT, myThid )
                0056
                0057       RETURN
                0058       END