Changeset 36 for branches/petra/src/readwind.f90
- Timestamp:
- Feb 16, 2015, 6:21:09 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/petra/src/readwind.f90
r24 r36 1 1 !********************************************************************** 2 ! Copyright 1998 ,1999,2000,2001,2002,2005,2007,2008,2009,2010*2 ! Copyright 1998-2015 * 3 3 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, * 4 4 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann * … … 39 39 ! Changes, Bernd C. Krueger, Feb. 2001: 40 40 ! Variables tth and qvh (on eta coordinates) in common block 41 ! 2/2015, PS: add missing paramter iret in call to grib subr 42 ! 41 43 !********************************************************************** 42 44 ! * … … 249 251 call grib_get_int(igrib,'numberOfPointsAlongAMeridian',isec2(3),iret) 250 252 call grib_check(iret,gribFunction,gribErrorMsg) 251 call grib_get_int(igrib,'numberOfVerticalCoordinateValues',isec2(12) )253 call grib_get_int(igrib,'numberOfVerticalCoordinateValues',isec2(12),iret) 252 254 call grib_check(iret,gribFunction,gribErrorMsg) 253 255 ! CHECK GRID SPECIFICATIONS
Note: See TracChangeset
for help on using the changeset viewer.