/[MITgcm]/MITgcm/pkg/thsice/thsice_ave.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_ave.F

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

revision 1.7 by jmc, Wed Apr 6 18:47:11 2005 UTC revision 1.8 by jmc, Sun May 15 03:04:57 2005 UTC
# Line 46  CEOP Line 46  CEOP
46    
47  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
48  C     == Local variables ==  C     == Local variables ==
49        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
50        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
51        INTEGER wrtIter        INTEGER wrtIter
52    
53  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
# Line 119  C-- average of Ocean Mixed-Layer temp. & Line 119  C-- average of Ocean Mixed-Layer temp. &
119        ENDIF        ENDIF
120  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
121    
122        IF ( DIFF_BASE_MULTIPLE(baseTime,thSIce_diagFreq,        IF ( DIFFERENT_MULTIPLE(thSIce_diagFreq,
123       &                        myTime+deltaTClock,deltaTClock)       &                        myTime+deltaTClock,deltaTClock)
124       &     .AND. fluidIsWater ) THEN       &     .AND. fluidIsWater ) THEN
125          wrtIter = myIter+1          wrtIter = myIter+1
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22