pkg/ptracers/ptracers_output.F

55966bc737 Mart*0001 #include "PTRACERS_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: PTRACERS_OUTPUT
                0005
                0006 C     !INTERFACE:
0a278985fd Jean*0007       SUBROUTINE PTRACERS_OUTPUT(
55966bc737 Mart*0008      I     myTime, myIter, myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     This is the controlling routine for PTRACERS output. It is
                0012 C     called from DO_THE_MODEL_IO.
                0013
                0014 C     !USES:
                0015       IMPLICIT NONE
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #include "PARAMS.h"
                0019 #include "PTRACERS_SIZE.h"
0a278985fd Jean*0020 #include "PTRACERS_PARAMS.h"
55966bc737 Mart*0021
                0022 C     !INPUT PARAMETERS:
                0023 C     myIter    :: time-step number
                0024 C     myTime    :: model time
                0025 C     myThid    :: thread number
                0026       INTEGER myIter
                0027       INTEGER myThid
                0028       _RL myTime
                0029 CEOP
                0030
                0031 #ifdef ALLOW_PTRACERS
                0032 C     !LOCAL VARIABLES:
                0033
                0034 C     Write snapshot output
0676f3988d Jean*0035       CALL PTRACERS_WRITE_STATE( myTime, myIter, myThid )
                0036
55966bc737 Mart*0037 #ifdef ALLOW_MONITOR
                0038 C     Compute and print monitor statistics
                0039       CALL PTRACERS_MONITOR( myIter, myTime, myThid )
                0040 #endif /* ALLOW_MONITOR */
5d1aafd341 Jean*0041
55966bc737 Mart*0042 #endif /* ALLOW_PTRACERS */
                0043
                0044       RETURN
                0045       END