Subversion Repositories lagranto.ecmwf

Rev

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

Rev 31 Rev 33
Line 335... Line 335...
335 
 
 335 
 
336 
c     If not full list of vertical levels, reduce AK,BK arrays
 336 
c     If not full list of vertical levels, reduce AK,BK arrays
337 
      if ( (leveltype.eq.'hybrid_sigma_pressure').and.
 337 
      if ( (leveltype.eq.'hybrid_sigma_pressure').and.
338 
     >     (nakbktmp.ne.vardim(3) ) )
 338 
     >     (nakbktmp.ne.vardim(3) ) )
339 
     >then
 339 
     >then
340 
         print*,' WARNING: only subset of vertical levels used...'
 340 
c         print*,' WARNING: only subset of vertical levels used...'
341 
         do k=1,vardim(3)
 341 
         do k=1,vardim(3)
342 
            if ( vertical_swap.eq.1 ) then
 342 
            if ( vertical_swap.eq.1 ) then
343 
               aktmp(k) = aktmp( k+nakbktmp-vardim(3) )
 343 
               aktmp(k) = aktmp( k+nakbktmp-vardim(3) )
344 
               bktmp(k) = bktmp( k+nakbktmp-vardim(3) )
 344 
               bktmp(k) = bktmp( k+nakbktmp-vardim(3) )
345 
            endif
 345 
            endif