Subversion Repositories lagranto.ecmwf

Rev

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

Rev 3 Rev 38
Line 15... Line 15...
15 
        print*,'USAGE: newtime date (format (YY)YYMMDD_HH) timestep'
 15 
        print*,'USAGE: newtime date (format (YY)YYMMDD_HH) timestep'
16 
        call exit(1)
 16 
        call exit(1)
17 
      endif
 17 
      endif
18 
 
 18 
 
19 
c     read and transform input
 19 
c     read and transform input
- 
 
 20 
      date1(5) = 0
- 
 
 21 
      date2(5) = 0
20 
      call getarg(1,arg)
 22 
      call getarg(1,arg)
21 
      call lenchar(arg,nc)
 23 
      call lenchar(arg,nc)
22 
      if (nc.eq.9) then
 24 
      if (nc.eq.9) then
23 
        yychar=''
 25 
        yychar=''
24 
        read(arg(1:2),'(i2)',err=120)date1(1)
 26 
        read(arg(1:2),'(i2)',err=120)date1(1)