/[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.3 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.4 by dimitri, Mon Oct 20 06:25:16 2003 UTC
# Line 57  c     == local variables == Line 57  c     == local variables ==
57        integer nsecs        integer nsecs
58        integer hhmmss        integer hhmmss
59        integer ierr        integer ierr
60          _RL     tmp1, tmp2
61    
62  c     == end of interface ==  c     == end of interface ==
63    
# Line 68  c     == end of interface == Line 69  c     == end of interface ==
69        if (timeunit .eq. 'secs') then        if (timeunit .eq. 'secs') then
70    
71          date(1) = int(timeint/float(secondsperday))          date(1) = int(timeint/float(secondsperday))
72          nsecs   = int(timeint - float(date(1)) * float(secondsperday))          tmp1    = date(1)
73            tmp2    = secondsperday
74            nsecs   = int(timeint - tmp1 * tmp2 )
75    
76        else if (timeunit .eq. 'model') then        else if (timeunit .eq. 'model') then
77    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22