Subversion Repositories lagranto.ecmwf

Rev

Rev 11 | Rev 15 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11 Rev 13
Line 108... Line 108...
108 
 
 108 
 
109 
c     Determine the new number of times
 109 
c     Determine the new number of times
110 
      ntim = nint( abs( range ) / timeres ) + 1
110 
      ntim = nint( abs( range ) / timeres ) + 1
111 
 
 111 
 
112 
c     Check that the time range and new time resolution are consistent
 112 
c     Check that the time range and new time resolution are consistent
113 
      if ( abs( real(ntim-1) * timeres -range ).gt.eps ) then
 113 
      if ( abs( real(ntim-1) * timeres - abs(range) ).gt.eps ) then
114 
         print*,' ERROR: time range and resolution are not compatible'
 114 
         print*,' ERROR: time range and resolution are not compatible'
115 
         print*,'   range              = ',range
 115 
         print*,'   range              = ',range
116 
         print*,'   (ntim-1) * timeres = ',real(ntim-1) * timeres
 116 
         print*,'   (ntim-1) * timeres = ',real(ntim-1) * timeres
117 
         stop
 117 
         stop
118 
      endif
 118 
      endif