pkg/ptracers/ptracers_debug.F

785a077159 Alis*0001 #include "PTRACERS_OPTIONS.h"
                0002
                0003 CBOP
                0004 C !ROUTINE: PTRACERS_DEBUG
                0005
                0006 C !INTERFACE: ==========================================================
                0007       SUBROUTINE PTRACERS_DEBUG(
                0008      I                           myThid )
                0009
                0010 C !DESCRIPTION:
169b87f41a Jean*0011 C     print passive tracers stats
785a077159 Alis*0012
                0013 C !USES: ===============================================================
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
636477d15b Jean*0017 #include "PTRACERS_SIZE.h"
0a278985fd Jean*0018 #include "PTRACERS_PARAMS.h"
                0019 #include "PTRACERS_FIELDS.h"
785a077159 Alis*0020
                0021 C !INPUT PARAMETERS: ===================================================
f74eb369b3 Jean*0022 C  myThid      :: thread number
785a077159 Alis*0023       INTEGER myThid
                0024
                0025 C !OUTPUT PARAMETERS: ==================================================
                0026 C  none
                0027
                0028 #ifdef ALLOW_PTRACERS
f74eb369b3 Jean*0029 #ifdef ALLOW_DEBUG
785a077159 Alis*0030
                0031 C !LOCAL VARIABLES: ====================================================
f74eb369b3 Jean*0032 C  iTracer     :: tracer index
797ab70dc1 Jean*0033       INTEGER iTracer
f74eb369b3 Jean*0034       CHARACTER*(12) strng
785a077159 Alis*0035 CEOP
                0036
                0037 C Loop over tracers
                0038       DO iTracer=1,PTRACERS_num
                0039
f74eb369b3 Jean*0040        WRITE(strng,'(A8,I4.4)') 'PTRACER.', iTracer
                0041        CALL DEBUG_STATS_RL( Nr, pTracer(1-OLx,1-OLy,1,1,1,iTracer),
                0042      &                      strng, myThid )
                0043        WRITE(strng,'(A8,I4.4)') 'GNm1TRC.', iTracer
                0044        CALL DEBUG_STATS_RL( Nr, gpTrNm1(1-OLx,1-OLy,1,1,1,iTracer),
                0045      &                      strng, myThid )
785a077159 Alis*0046
                0047 C end of tracer loop
                0048       ENDDO
                0049
f74eb369b3 Jean*0050 #endif /* ALLOW_DEBUG */
785a077159 Alis*0051 #endif /* ALLOW_PTRACERS */
                0052
                0053       RETURN
                0054       END