/[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.6 by jmc, Mon Jan 31 19:42:59 2005 UTC revision 1.7 by jmc, Wed Apr 6 18:47:11 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  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
50        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_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 ( DIFFERENT_MULTIPLE(thSIce_diagFreq,myTime+deltaTClock,myTime)        IF ( DIFF_BASE_MULTIPLE(baseTime,thSIce_diagFreq,
123         &                        myTime+deltaTClock,deltaTClock)
124       &     .AND. fluidIsWater ) THEN       &     .AND. fluidIsWater ) THEN
125          wrtIter = myIter+1          wrtIter = myIter+1
126          CALL WRITE_LOCAL_RL('ice_flxAtm','I10',1,flxAtm,          CALL WRITE_LOCAL_RL('ice_flxAtm','I10',1,flxAtm,
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22