Subversion Repositories lagranto.um

Rev

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

Rev 5 Rev 11
Line 258... Line 258...
258 
 
 258 
 
259 
C     Check if the number of levels is too large
 259 
C     Check if the number of levels is too large
260 
      if (nz.gt.nlevmax) goto 993
 260 
      if (nz.gt.nlevmax) goto 993
261 
 
 261 
 
262 
C     Set logical flag for periodic data set (hemispheric or not)
 262 
C     Set logical flag for periodic data set (hemispheric or not)
- 
 
 263 
      hem = 0.
263 
      if (per.eq.0.) then
 264 
      if (per.eq.0.) then
264 
         delta=xmax-xmin-360.
 265 
         delta=xmax-xmin-360.
265 
         if (abs(delta+dx).lt.eps) then               ! Program aborts: arrays must be closed
 266 
         if (abs(delta+dx).lt.eps) then               ! Program aborts: arrays must be closed
266 
            goto 992
 267 
            goto 992
267 
        else if (abs(delta).lt.eps) then              ! Periodic and hemispheric
 268 
        else if (abs(delta).lt.eps) then              ! Periodic and hemispheric