pkg/rw/rw_get_suffix.F

746054ac44 Jean*0001 #include "RW_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: RW_GET_SUFFIX
                0005 C     !INTERFACE:
                0006
                0007       SUBROUTINE RW_GET_SUFFIX(
                0008      O                  suff,
                0009      I                  myTime, myIter, myThid )
                0010
                0011 C     !DESCRIPTION: \bv
                0012 C     Return a suffix for file names to read/write.
                0013 C     Default is myIter. Options are for seconds, hours etc, as below
                0014
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017
                0018 C     Global variables:
                0019 #include "SIZE.h"
                0020 #include "EEPARAMS.h"
                0021 #include "PARAMS.h"
                0022
                0023 C     !INPUT PARAMETERS:
                0024 C     myTime :: Current time in simulation
                0025 C     myIter :: Current iteration number in simulation
                0026 C     myThid :: My Thread Id number
                0027       _RL     myTime
                0028       INTEGER myIter
                0029       INTEGER myThid
                0030
                0031 C     !OUTPUT PARAMETERS:
                0032 C     suff   :: file-name suffix (10.c long)
                0033       CHARACTER*(*) suff
                0034
                0035 C     !LOCAL VARIABLES:
                0036 CEOP
                0037
                0038       IF ( rwSuffixType.EQ.1 ) THEN
                0039 C     100ths of a second
                0040          WRITE(suff,'(I10.10)') NINT( myTime*100. _d 0 )
                0041       ELSEIF ( rwSuffixType.EQ.2 ) THEN
                0042 C     seconds
                0043          WRITE(suff,'(I10.10)') NINT( myTime )
                0044       ELSEIF ( rwSuffixType.EQ.3 ) THEN
                0045 C     10ths hours
                0046          WRITE(suff,'(I10.10)') NINT( myTime/360. _d 0 )
                0047       ELSEIF ( rwSuffixType.EQ.4 ) THEN
                0048 C     hours
                0049          WRITE(suff,'(I10.10)') NINT( myTime/3600. _d 0 )
                0050       ELSE
                0051 C     default, iteration number
                0052          WRITE(suff,'(I10.10)') myIter
                0053       ENDIF
                0054
                0055       RETURN
                0056       END