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

File:

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

trunk/src/readwind.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   *
@@ -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
-  !
   !**********************************************************************
   !                                                                     *
@@ -251 +249 @@
   call grib_get_int(igrib,'numberOfPointsAlongAMeridian',isec2(3),iret)
   call grib_check(iret,gribFunction,gribErrorMsg)
-  call grib_get_int(igrib,'numberOfVerticalCoordinateValues',isec2(12),iret)
+  call grib_get_int(igrib,'numberOfVerticalCoordinateValues',isec2(12))
   call grib_check(iret,gribFunction,gribErrorMsg)
   ! CHECK GRID SPECIFICATIONS