/[MITgcm]/MITgcm/pkg/dic/dic_biotic_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_biotic_diags.F

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

revision 1.4 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.5 by jmc, Wed Apr 6 18:36:47 2005 UTC
# Line 30  CEndOfInterface Line 30  CEndOfInterface
30    
31    
32  C     == Local variables ==  C     == Local variables ==
33        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
34        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_MULTIPLE
35        INTEGER bi, bj, k        INTEGER bi, bj, k
36        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
37    
# Line 41  C     == Local variables == Line 41  C     == Local variables ==
41  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
42    
43  C     Dump files and restart average computation if needed  C     Dump files and restart average computation if needed
44        IF ( DIFFERENT_MULTIPLE(taveFreq,myTime,myTime-deltaTClock)        IF ( DIFF_BASE_MULTIPLE(baseTime,taveFreq,myTime,deltaTClock)
45       &     ) THEN       &     ) THEN
46                    
47  C      Normalize by integrated time  C      Normalize by integrated time
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22