Changes from branches/petra/src/readwind_nests.f90 at r36 to trunk/src/readwind_nests.f90 at r24

File:

• trunk/src/readwind_nests.f90 (modified) (3 diffs)

trunk/src/readwind_nests.f90

@@ -1 +1 @@
 !**********************************************************************
-! Copyright 1998-2015                                                 *
+! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
@@ -38 +38 @@
   !  CHANGE: 11/01/2008, Harald Sodemann, GRIB1/2 input with ECMWF grib_api    *
   !  CHANGE: 03/12/2008, Harald Sodemann, update to f90 with ECMWF grib_api    *
-  ! 2/2015, PS: add missing paramter iret in call to grib subr
-  !
   !*****************************************************************************
 
@@ -242 +240 @@
   call grib_check(iret,gribFunction,gribErrorMsg)
   call grib_get_int(igrib,'numberOfVerticalCoordinateValues', &
-       isec2(12),iret)
+       isec2(12))
   call grib_check(iret,gribFunction,gribErrorMsg)
   ! CHECK GRID SPECIFICATIONS