/[MITgcm]/MITgcm/pkg/gmredi/gmredi_output.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_output.F

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

revision 1.1 by jmc, Tue Jan 4 00:14:34 2005 UTC revision 1.2 by jmc, Wed Apr 6 18:41:03 2005 UTC
# Line 41  CEOP Line 41  CEOP
41  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
42  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
43  C     == Local variables ==  C     == Local variables ==
44        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
45        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_MULTIPLE
46        INTEGER bi, bj, K        INTEGER bi, bj, K
47        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
48    
49    
50  #if ( defined (GM_NON_UNITY_DIAGONAL) || defined (GM_EXTRA_DIAGONAL) )  #if ( defined (GM_NON_UNITY_DIAGONAL) || defined (GM_EXTRA_DIAGONAL) )
51    
52        IF ( DIFFERENT_MULTIPLE(diagFreq,myTime,myTime-deltaTClock)        IF ( DIFF_BASE_MULTIPLE(baseTime,diagFreq,myTime,deltaTClock)
53       &   ) THEN       &   ) THEN
54          WRITE(suff,'(I10.10)') myIter          WRITE(suff,'(I10.10)') myIter
55  #ifdef GM_NON_UNITY_DIAGONAL  #ifdef GM_NON_UNITY_DIAGONAL
# Line 70  C     == Local variables == Line 70  C     == Local variables ==
70  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
71    
72  C     Dump files and restart average computation if needed  C     Dump files and restart average computation if needed
73        IF ( DIFFERENT_MULTIPLE(taveFreq,myTime,myTime-deltaTClock)        IF ( DIFF_BASE_MULTIPLE(baseTime,taveFreq,myTime,deltaTClock)
74       &     ) THEN       &     ) THEN
75                    
76  C      Normalize by integrated time  C      Normalize by integrated time
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22