Subversion Repositories lagranto.ecmwf

Rev

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

Rev 21 Rev 23
Line 178... Line 178...
178 
      endif
 178 
      endif
179
179
180 
C     Determine minimum and maximum
 180 
C     Determine minimum and maximum
181 
      do i=1,nx
 181 
      do i=1,nx
182 
        do j=1,ny
 182 
        do j=1,ny
- 
 
 183 
 
183 
            if ((varf(i,j).ne.mdv).and.(varf(i,j).lt.min)) then
 184 
            if ((varf(i,j).ne.mdv).and.(varf(i,j).lt.min)) then
184 
               min     = varf(i,j)
 185 
               min     = varf(i,j)
185 
               minindx = i
 186 
               minindx = i
186 
               minindy = j
 187 
               minindy = j
- 
 
 188 
            endif
187 
            elseif ((varf(i,j).ne.mdv).and.(varf(i,j).gt.max)) then
 189 
            if ((varf(i,j).ne.mdv).and.(varf(i,j).gt.max)) then
188 
               max     = varf(i,j)
 190 
               max     = varf(i,j)
189 
               maxindx = i
 191 
               maxindx = i
190 
               maxindy = j
 192 
               maxindy = j
191 
          endif
 193 
          endif
192 
        enddo
 194 
        enddo