--- MITgcm/pkg/seaice/seaice_do_diags.F 2005/04/03 05:16:44 1.10 +++ MITgcm/pkg/seaice/seaice_do_diags.F 2005/04/06 18:46:34 1.11 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/Attic/seaice_do_diags.F,v 1.10 2005/04/03 05:16:44 edhill Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/Attic/seaice_do_diags.F,v 1.11 2005/04/06 18:46:34 jmc Exp $ C $Name: $ #include "SEAICE_OPTIONS.h" @@ -33,8 +33,8 @@ C == Local variables == CHARACTER*(MAX_LEN_MBUF) suff - LOGICAL DIFFERENT_MULTIPLE - EXTERNAL DIFFERENT_MULTIPLE + LOGICAL DIFF_BASE_MULTIPLE + EXTERNAL DIFF_BASE_MULTIPLE INTEGER i, j, k, bi, bj _RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nSx,nSy) INTEGER thisdate(4), prevdate(4) @@ -42,8 +42,8 @@ IF (SEAICEwriteState) THEN - IF ( DIFFERENT_MULTIPLE(SEAICE_dumpFreq,myTime, - & myTime-deltaTClock) ) THEN + IF ( DIFF_BASE_MULTIPLE(baseTime,SEAICE_dumpFreq, + & myTime,deltaTClock) ) THEN #ifdef ALLOW_MNC IF (useMNC .AND. seaice_mnc) THEN @@ -214,7 +214,8 @@ C Dump files and restart average computation if needed dumpFiles = .FALSE. IF ( myIter .NE. nIter0 ) THEN - IF (DIFFERENT_MULTIPLE(SEAICE_taveFreq,myTime,myTime-deltaTClock)) + IF ( DIFF_BASE_MULTIPLE(baseTime,SEAICE_taveFreq, + & myTime,deltaTClock)) & dumpFiles = .TRUE. #ifdef ALLOW_CAL IF ( calendarDumps .AND. (