/[MITgcm]/MITgcm/pkg/seaice/seaice_do_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_do_diags.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by jmc, Wed Apr 6 18:46:34 2005 UTC revision 1.12 by jmc, Sun May 15 03:04:57 2005 UTC
# Line 33  C     myThid        - Number of this ins Line 33  C     myThid        - Number of this ins
33    
34  C     == Local variables ==  C     == Local variables ==
35        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
36        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
37        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
38        INTEGER i, j, k, bi, bj        INTEGER i, j, k, bi, bj
39        _RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nSx,nSy)        _RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nSx,nSy)
40        INTEGER thisdate(4), prevdate(4)        INTEGER thisdate(4), prevdate(4)
# Line 42  C     == Local variables == Line 42  C     == Local variables ==
42                    
43        IF (SEAICEwriteState) THEN        IF (SEAICEwriteState) THEN
44    
45           IF ( DIFF_BASE_MULTIPLE(baseTime,SEAICE_dumpFreq,           IF ( DIFFERENT_MULTIPLE(SEAICE_dumpFreq,myTime,deltaTClock)
46       &        myTime,deltaTClock) ) THEN       &      ) THEN
47                            
48  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
49             IF (useMNC .AND. seaice_mnc) THEN             IF (useMNC .AND. seaice_mnc) THEN
# Line 214  C--   Time-cumulations Line 214  C--   Time-cumulations
214  C     Dump files and restart average computation if needed  C     Dump files and restart average computation if needed
215        dumpFiles = .FALSE.        dumpFiles = .FALSE.
216        IF ( myIter .NE. nIter0 ) THEN        IF ( myIter .NE. nIter0 ) THEN
217        IF ( DIFF_BASE_MULTIPLE(baseTime,SEAICE_taveFreq,        IF ( DIFFERENT_MULTIPLE(SEAICE_taveFreq,myTime,deltaTClock) )
      &                        myTime,deltaTClock))  
218       &     dumpFiles = .TRUE.       &     dumpFiles = .TRUE.
219  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
220        IF ( calendarDumps .AND. (        IF ( calendarDumps .AND. (
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22