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 83... Line 83...
83
83
84 
      read(finaldate( 1: 4),*) year2
 84 
      read(finaldate( 1: 4),*) year2
85 
      read(finaldate( 5: 6),*) month2
 85 
      read(finaldate( 5: 6),*) month2
86 
      read(finaldate( 7: 8),*) day2
 86 
      read(finaldate( 7: 8),*) day2
87 
      read(finaldate(10:11),*) hour2
 87 
      read(finaldate(10:11),*) hour2
88 
      read(startdate(12:13),*) min2
 88 
      read(finaldate(12:13),*) min2
89 
 
 89 
 
90 
c     Get direction of the date file
 90 
c     Get direction of the date file
91 
      if (year2.gt.year1) then
 91 
      if (year2.gt.year1) then
92 
         direction = 'f'
 92 
         direction = 'f'
93 
         goto 101
 93 
         goto 101