|
||||
File indexing completed on 2018-03-02 18:42:02 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTCd197ac2926 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
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |