/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_out.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_out.F

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

revision 1.44 by jmc, Thu Jan 7 01:09:40 2010 UTC revision 1.45 by jmc, Thu Jan 7 23:48:01 2010 UTC
# Line 135  C     a) find the time of the previous m Line 135  C     a) find the time of the previous m
135          timeRec(1) = myTime-deltaTClock*0.5 _d 0          timeRec(1) = myTime-deltaTClock*0.5 _d 0
136          timeRec(1) = (timeRec(1)-phase(listId))/freq(listId)          timeRec(1) = (timeRec(1)-phase(listId))/freq(listId)
137          i = INT( timeRec(1) )          i = INT( timeRec(1) )
138            IF ( timeRec(1).LT.0. ) i = i - 1
139          timeRec(1) = phase(listId) + freq(listId)*FLOAT(i)          timeRec(1) = phase(listId) + freq(listId)*FLOAT(i)
140  c       if ( listId.eq.2 ) write(0,*) 'f',i,timeRec(1)/deltaTClock  c       if ( listId.eq.2 ) write(0,*) 'f',i,timeRec(1)/deltaTClock
141          timeRec(1) = MAX( timeRec(1), startTime )          timeRec(1) = MAX( timeRec(1), startTime )
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22