/[MITgcm]/MITgcm/pkg/cal/cal_timeinterval.F
ViewVC logotype

Diff of /MITgcm/pkg/cal/cal_timeinterval.F

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

revision 1.1 by heimbach, Mon May 14 22:07:27 2001 UTC revision 1.2 by dimitri, Tue Oct 7 16:35:04 2003 UTC
# Line 67  c     == end of interface == Line 67  c     == end of interface ==
67        if (timeunit .eq. 'secs') then        if (timeunit .eq. 'secs') then
68    
69          date(1) = int(timeint/float(secondsperday))          date(1) = int(timeint/float(secondsperday))
70          nsecs   = int(timeint - float(date(1)*secondsperday))          nsecs   = int(timeint - float(date(1)) * float(secondsperday))
71    
72        else if (timeunit .eq. 'model') then        else if (timeunit .eq. 'model') then
73    
74          date(1) = int(timeint*modelstep/float(secondsperday))          date(1) = int(timeint*modelstep/float(secondsperday))
75          nsecs   = int(timeint*modelstep -          nsecs   = int(timeint*modelstep -
76       &                float(date(1)*secondsperday))       &                float(date(1)) * float(secondsperday))
77    
78        else        else
79    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22