pkg/mnc/mnc_update_time.F

d197ac2926 Jean*0001 #include "MNC_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !ROUTINE: MNC_UPDATE_TIME
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE MNC_UPDATE_TIME(
                0009      I                            myTime, myIter,  myThid )
                0010
                0011 C     !DESCRIPTION:
                0012 C     Update MNC time and iteration information
                0013
                0014 C     !USES:
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018 #include "MNC_PARAMS.h"
                0019
                0020 C     !INPUT PARAMETERS:
                0021 C     myTime   :: my current time in simulation
                0022 C     myIter   :: my current iteration number in simulation
                0023 C     myThid   :: my Thread Id. number
                0024       _RL     myTime
                0025       INTEGER myIter
                0026       INTEGER myThid
                0027 CEOP
                0028
                0029 #ifdef ALLOW_MNC
                0030 C     !FUNCTIONS:
                0031       EXTERNAL DIFFERENT_MULTIPLE
                0032       LOGICAL  DIFFERENT_MULTIPLE
                0033
                0034 C     !LOCAL VARIABLES:
                0035
                0036 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0037
                0038 c     IF ( useMNC ) THEN
                0039
                0040 C     Update the default next iter for MNC
                0041          CALL MNC_CW_CITER_SETG( 1, 1, -1, myIter , myThid )
                0042
                0043 C        TODO: Logic should be added here so that users can specify, on
                0044 C        a per-citer-group basis, when it is time to update the
                0045 C        "current" (and not just the "next") iteration
                0046
                0047 C        TODO: the following is just a temporary band-aid (mostly, for
                0048 C        Baylor) until someone writes a routine that better handles time
                0049 C        boundaries such as weeks, months, years, etc.
                0050          IF ( mnc_filefreq .GT. 0 ) THEN
                0051            IF (DIFFERENT_MULTIPLE(mnc_filefreq,myTime,deltaTClock))
                0052      &          THEN
                0053              CALL MNC_CW_CITER_SETG( 1, 1, myIter, -1 , myThid )
                0054            ENDIF
                0055          ENDIF
                0056
                0057 c     ENDIF
                0058 #endif /* ALLOW_MNC */
                0059
                0060       RETURN
                0061       END