Subversion Repositories lagranto.wrf

Rev

Rev 11 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11 Rev 15
Line 249... Line 249...
249 
 
 249 
 
250 
      call timediff(date2,date1,diff)
 250 
      call timediff(date2,date1,diff)
251
251
252 
 
 252 
 
253 
c     Write it to screen
 253 
c     Write it to screen
254 
      write(*,'i6') nint(diff)
 254 
      write(*,'(i6)') nint(diff)
255 
 
 255 
 
256 
      goto 111
 256 
      goto 111
257 
 
 257 
 
258 
 110  continue
 258 
 110  continue
259
259
Line 286... Line 286...
286 
      date1(5) = 0
 286 
      date1(5) = 0
287 
      call newdate(date1,time,date2)
 287 
      call newdate(date1,time,date2)
288 
      call datestring(datestr,date2(1),date2(2),date2(3),date2(4) )
 288 
      call datestring(datestr,date2(1),date2(2),date2(3),date2(4) )
289 
 
 289 
 
290 
c     Write it to screen
 290 
c     Write it to screen
291 
      write(*,'a11') trim(datestr)
 291 
      write(*,'(a11)') trim(datestr)
292 
 
 292 
 
293 
      goto 121
 293 
      goto 121
294 
 
 294 
 
295 
 120  continue
 295 
 120  continue
296
296