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

File:

• branches/petra/src/readwind.f90 (modified) (3 diffs)

branches/petra/src/readwind.f90

@@ -1 +1 @@
 !**********************************************************************
-! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
+! Copyright 1998-2015                                                 *
 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
@@ -39 +39 @@
   !  Changes, Bernd C. Krueger, Feb. 2001:
   !   Variables tth and qvh (on eta coordinates) in common block
+  ! 2/2015, PS: add missing paramter iret in call to grib subr
+  !
   !**********************************************************************
   !                                                                     *
@@ -249 +251 @@
   call grib_get_int(igrib,'numberOfPointsAlongAMeridian',isec2(3),iret)
   call grib_check(iret,gribFunction,gribErrorMsg)
-  call grib_get_int(igrib,'numberOfVerticalCoordinateValues',isec2(12))
+  call grib_get_int(igrib,'numberOfVerticalCoordinateValues',isec2(12),iret)
   call grib_check(iret,gribFunction,gribErrorMsg)
   ! CHECK GRID SPECIFICATIONS