Subversion Repositories lagranto.ecmwf

Rev

Rev 3 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3 Rev 19
Line 20... Line 20...
20 
c     read and transform input
 20 
c     read and transform input
21 
      call getarg(1,arg)
 21 
      call getarg(1,arg)
22 
      call lenchar(arg,nc1)
 22 
      call lenchar(arg,nc1)
23 
      call checkchar(arg,'_',flag1)
 23 
      call checkchar(arg,'_',flag1)
24 
 
 24 
 
- 
 
 25 
      idate(5)   = 0
- 
 
 26 
      irefdat(5) = 0
- 
 
 27 
 
25 
      if (flag1.eq.7) then
 28 
      if (flag1.eq.7) then
26 
        read(arg(1:2),'(i2)',err=120)idate(1)
 29 
        read(arg(1:2),'(i2)',err=120)idate(1)
27 
        read(arg(3:4),'(i2)',err=120)idate(2)
 30 
        read(arg(3:4),'(i2)',err=120)idate(2)
28 
        read(arg(5:6),'(i2)',err=120)idate(3)
 31 
        read(arg(5:6),'(i2)',err=120)idate(3)
29 
        read(arg(8:9),'(i2)',err=120)idate(4)
 32 
        read(arg(8:9),'(i2)',err=120)idate(4)