Subversion Repositories lagranto.ecmwf

Rev

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

Rev 27 Rev 29
Line 510... Line 510...
510 
      real         rtime
 510 
      real         rtime
511 
      integer      closear
 511 
      integer      closear
512 
      integer      stat
 512 
      integer      stat
513 
      real         delta
 513 
      real         delta
514 
 
 514 
 
- 
 
 515 
c     Init mdv
- 
 
 516 
      mdv = -999.
- 
 
 517 
 
515 
c     Get the number of dimensions -> ndim
 518 
c     Get the number of dimensions -> ndim
516 
      ierr = NF90_INQ_VARID(fid,fieldname,varid)
 519 
      ierr = NF90_INQ_VARID(fid,fieldname,varid)
517 
      IF(ierr /= nf90_NoErr) PRINT *,NF90_STRERROR(ierr)
 520 
      IF(ierr /= nf90_NoErr) PRINT *,NF90_STRERROR(ierr)
518 
      ierr = nf90_inquire_variable(fid, varid, ndims  = ndim)
 521 
      ierr = nf90_inquire_variable(fid, varid, ndims  = ndim)
519 
      IF(ierr /= nf90_NoErr) PRINT *,NF90_STRERROR(ierr)
 522 
      IF(ierr /= nf90_NoErr) PRINT *,NF90_STRERROR(ierr)
Line 646... Line 649...
646 
        endif
 649 
        endif
647 
      elseif ( leveltype.eq.'air_pressure') then
 650 
      elseif ( leveltype.eq.'air_pressure') then
648 
        if ( lev(1).gt.lev(2) ) then
 651 
        if ( lev(1).gt.lev(2) ) then
649 
          vertical_swap = 0
 652 
          vertical_swap = 0
650 
        endif
 653 
        endif
651 
      endi
 654 
      endif
652 
 
 655 
 
653 
c     Read data
656 
c     Read data
654 
      ierr = NF90_INQ_VARID(fid,fieldname,varid)
 657 
      ierr = NF90_INQ_VARID(fid,fieldname,varid)
655 
      IF(ierr /= nf90_NoErr) PRINT *,NF90_STRERROR(ierr)
 658 
      IF(ierr /= nf90_NoErr) PRINT *,NF90_STRERROR(ierr)
656 
      ierr = nf90_get_var(fid,varid,tmp3)
 659 
      ierr = nf90_get_var(fid,varid,tmp3)