Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/petra/src/readwind_nests.f90

    r24 r36  
    11!**********************************************************************
    2 ! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
     2! Copyright 1998-2015                                                 *
    33! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
    44! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
     
    3838  !  CHANGE: 11/01/2008, Harald Sodemann, GRIB1/2 input with ECMWF grib_api    *
    3939  !  CHANGE: 03/12/2008, Harald Sodemann, update to f90 with ECMWF grib_api    *
     40  ! 2/2015, PS: add missing paramter iret in call to grib subr
     41  !
    4042  !*****************************************************************************
    4143
     
    240242  call grib_check(iret,gribFunction,gribErrorMsg)
    241243  call grib_get_int(igrib,'numberOfVerticalCoordinateValues', &
    242        isec2(12))
     244       isec2(12),iret)
    243245  call grib_check(iret,gribFunction,gribErrorMsg)
    244246  ! CHECK GRID SPECIFICATIONS
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG