Subversion Repositories lagranto.wrf

Rev

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

Rev 2 Rev 11
Line 6... Line 6...
6 
      integer   date1(5),date2(5)
 6 
      integer   date1(5),date2(5)
7 
      integer	iargc
 7 
      integer	iargc
8 
      real      diff
 8 
      real      diff
9 
      character*(80) arg,yychar,cdat
 9 
      character*(80) arg,yychar,cdat
10 
      character*(2)  cdate(4)
 10 
      character*(2)  cdate(4)
11 
      integer	flag,nc
 11 
      integer	flag,nc,i
- 
 
 12 
 
- 
 
 13 
 
- 
 
 14 
       do i=1,5
- 
 
 15 
           date1(i) =0
- 
 
 16 
           date2(i)=0
- 
 
 17 
       enddo
12 
 
 18 
 
13 
c     check for sufficient requested arguments
 19 
c     check for sufficient requested arguments
14 
      if (iargc().ne.2) then
 20 
      if (iargc().ne.2) then
15 
        print*,'USAGE: newtime date (format (YY)YYMMDD_HH) timestep'
 21 
        print*,'USAGE: newtime date (format (YY)YYMMDD_HH) timestep'
16 
        call exit(1)
 22 
        call exit(1)
Line 82... Line 88...
82 
      else
 88 
      else
83 
        write(cdate(4),'(i2)')date2(4)
 89 
        write(cdate(4),'(i2)')date2(4)
84 
      endif
 90 
      endif
85 
 
 91 
 
86 
      cdat=trim(yychar)//cdate(1)//cdate(2)//cdate(3)//'_'//cdate(4)
 92 
      cdat=trim(yychar)//cdate(1)//cdate(2)//cdate(3)//'_'//cdate(4)
- 
 
 93 
 
- 
 
 94 
       print*, trim(cdat)
87 
      write(*,'(a)')trim(cdat)
 95 
c      write(*,'(a)')trim(cdat)
88 
 
 96 
 
89 
      goto 200
 97 
      goto 200
90 
 
 98 
 
91 
 120  write(*,*)"*** error: date must be in format (YY)YYMMDD_HH ***"
 99 
 120  write(*,*)"*** error: date must be in format (YY)YYMMDD_HH ***"
92
100
Line 114... Line 122...
114 
C     ===============================
 122 
C     ===============================
115
123
116 
      character*(*)     string
 124 
      character*(*)     string
117 
      integer   n,lstr
 125 
      integer   n,lstr
118
126
119 
      do n=1,len(string)
 127 
       do n=1,len(string)
120 
        if (string(n:n).eq."") then
 128 
        if (string(n:n).eq."") then
121 
          lstr=n-1
 129 
          lstr=n-1
122 
          goto 100
 130 
          goto 100
123 
        endif
 131 
        endif
124 
      enddo
 132 
       enddo
125 
 100  continue
 133 
 100  continue
126 
      end
 134 
       end