Changes from trunk/src/readwind_nests.f90 at r24 to branches/petra/src/readwind_nests.f90 at r36
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/petra/src/readwind_nests.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 * … … 38 38 ! CHANGE: 11/01/2008, Harald Sodemann, GRIB1/2 input with ECMWF grib_api * 39 39 ! 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 ! 40 42 !***************************************************************************** 41 43 … … 240 242 call grib_check(iret,gribFunction,gribErrorMsg) 241 243 call grib_get_int(igrib,'numberOfVerticalCoordinateValues', & 242 isec2(12) )244 isec2(12),iret) 243 245 call grib_check(iret,gribFunction,gribErrorMsg) 244 246 ! CHECK GRID SPECIFICATIONS
Note: See TracChangeset
for help on using the changeset viewer.