core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ECC-13: partially reverted

This commit is contained in:
Shahram Najm 2015-01-08 13:24:05 +00:00
parent 6f0b96dd7a
commit 03ed90914e
33 changed files with 33 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/F90/clone.f90
View File

@ -14,7 +14,7 @@
! !
! !
program clone program clone
use eccodes use grib_api
implicit none implicit none
integer :: err,i,iret integer :: err,i,iret
integer :: nx, ny integer :: nx, ny

2
examples/F90/copy_message.f90
View File

@ -13,7 +13,7 @@
! !
! !
program copy program copy
use eccodes use grib_api
implicit none implicit none
integer :: err, centre integer :: err, centre
integer(kind=kindOfSize) :: byte_size integer(kind=kindOfSize) :: byte_size

2
examples/F90/copy_namespace.f90
View File

@ -12,7 +12,7 @@
! !
! !
program copy_namespace program copy_namespace
use eccodes use grib_api
implicit none implicit none
integer :: file1, file2, file3 integer :: file1, file2, file3
integer :: igrib1,igrib2,igrib3 integer :: igrib1,igrib2,igrib3

2
examples/F90/count_messages.f90
View File

@ -10,7 +10,7 @@
! !
! !
program get program get
use eccodes use grib_api
implicit none implicit none
integer :: ifile integer :: ifile

2
examples/F90/get.f90
View File

@ -11,7 +11,7 @@
! !
! !
program get program get
use eccodes use grib_api
implicit none implicit none
integer :: ifile integer :: ifile

2
examples/F90/get_data.f90
View File

@ -12,7 +12,7 @@
! !
! !
program get_data program get_data
use eccodes use grib_api
implicit none implicit none
integer :: ifile integer :: ifile
integer :: iret,i integer :: iret,i

2
examples/F90/get_fortran.f90
View File

@ -6,7 +6,7 @@
! !
! !
program get program get
use eccodes use grib_api
implicit none implicit none
integer :: ifile integer :: ifile

2
examples/F90/get_pl.f90
View File

@ -12,7 +12,7 @@
! !
! !
program get_pl program get_pl
use eccodes use grib_api
implicit none implicit none
integer :: infile integer :: infile
integer :: igrib integer :: igrib

2
examples/F90/get_pv.f90
View File

@ -13,7 +13,7 @@
! !
! !
program get_pv program get_pv
use eccodes use grib_api
implicit none implicit none
integer :: infile integer :: infile
integer :: igrib integer :: igrib

2
examples/F90/get_set_uuid.f90
View File

@ -12,7 +12,7 @@
! Original authors: Harald Anlauf, Doerte Liermann (DWD), Luis Kornblueh (MPIfM). ! Original authors: Harald Anlauf, Doerte Liermann (DWD), Luis Kornblueh (MPIfM).
! !
program get_set_uuid program get_set_uuid
use eccodes use grib_api
implicit none implicit none
integer :: infile, outfile integer :: infile, outfile
integer :: igrib, ogrib integer :: igrib, ogrib

2
examples/F90/index.f90
View File

@ -13,7 +13,7 @@
! !
! !
program index program index
use eccodes use grib_api
implicit none implicit none
integer :: iret integer :: iret

2
examples/F90/iterator_fortran.f90
View File

@ -8,7 +8,7 @@
! !
! !
program iterator program iterator
use eccodes use grib_api
implicit none implicit none
integer :: ifile integer :: ifile
integer :: iret,iter integer :: iret,iter

2
examples/F90/keys_iterator.f90
View File

@ -14,7 +14,7 @@
! !
! !
program keys_iterator program keys_iterator
use eccodes use grib_api
implicit none implicit none
character(len=20) :: name_space character(len=20) :: name_space
integer :: kiter,ifile,igrib,iret integer :: kiter,ifile,igrib,iret

2
examples/F90/keys_iterator_fortran.f90
View File

@ -14,7 +14,7 @@
! !
! !
program keys_iterator program keys_iterator
use eccodes use grib_api
implicit none implicit none
integer :: kiter,ifile,igrib,iret integer :: kiter,ifile,igrib,iret
character(len=256) :: key character(len=256) :: key

2
examples/F90/multi.f90
View File

@ -16,7 +16,7 @@
! !
! !
program multi program multi
use eccodes use grib_api
implicit none implicit none
integer :: iret integer :: iret

2
examples/F90/multi_fortran.f90
View File

@ -14,7 +14,7 @@
! !
! !
program multi program multi
use eccodes use grib_api
implicit none implicit none
integer :: iret integer :: iret

2
examples/F90/multi_write.f90
View File

@ -15,7 +15,7 @@
! !
! !
program multi_write program multi_write
use eccodes use grib_api
implicit none implicit none
integer :: infile,outfile integer :: infile,outfile
integer :: in_gribid,iret integer :: in_gribid,iret

2
examples/F90/nearest.f90
View File

@ -13,7 +13,7 @@
! !
! !
program find program find
use eccodes use grib_api
implicit none implicit none
integer :: npoints integer :: npoints
integer :: infile integer :: infile

2
examples/F90/new_from_file.f90
View File

@ -11,7 +11,7 @@
! !
! !
program new_from_file program new_from_file
use eccodes use grib_api
implicit none implicit none
integer :: ifile integer :: ifile
integer :: iret integer :: iret

2
examples/F90/precision.f90
View File

@ -13,7 +13,7 @@
! !
! !
program precision program precision
use eccodes use grib_api
implicit none implicit none
integer(kind = 4) :: size1 integer(kind = 4) :: size1
integer :: infile,outfile integer :: infile,outfile

2
examples/F90/precision_fortran.f90
View File

@ -11,7 +11,7 @@
! !
! !
program precision program precision
use eccodes use grib_api
implicit none implicit none
integer(kind = 4) :: size integer(kind = 4) :: size
integer :: infile,outfile integer :: infile,outfile

2
examples/F90/print_data.f90
View File

@ -12,7 +12,7 @@
! !
! !
program print_data program print_data
use eccodes use grib_api
implicit none implicit none
integer :: ifile integer :: ifile
integer :: iret integer :: iret

2
examples/F90/print_data_fortran.f90
View File

@ -13,7 +13,7 @@
! !
! !
program print_data_fortran program print_data_fortran
use eccodes use grib_api
implicit none implicit none
integer :: ifile integer :: ifile
integer :: iret integer :: iret

2
examples/F90/read_from_file.f90
View File

@ -10,7 +10,7 @@
! See GRIB-292 ! See GRIB-292
! !
program read_from_file program read_from_file
use eccodes use grib_api
implicit none implicit none
character(len=32) :: input_grib_file character(len=32) :: input_grib_file
integer,dimension(26) :: message_lengths ! expected message lengths integer,dimension(26) :: message_lengths ! expected message lengths

2
examples/F90/read_message.f90
View File

@ -10,7 +10,7 @@
! Description: how to get values using keys. ! Description: how to get values using keys.
! !
program read_message program read_message
use eccodes use grib_api
implicit none implicit none
integer :: ifile,ofile integer :: ifile,ofile
integer :: iret,igrib integer :: iret,igrib

2
examples/F90/samples.f90
View File

@ -11,7 +11,7 @@
! !
! !
program sample program sample
use eccodes use grib_api
implicit none implicit none
integer :: err integer :: err
integer :: outfile, infile, datafile integer :: outfile, infile, datafile

2
examples/F90/set.f90
View File

@ -13,7 +13,7 @@
! !
! !
program set program set
use eccodes use grib_api
implicit none implicit none
integer(kind = 4) :: centre, date1 integer(kind = 4) :: centre, date1
integer :: infile,outfile integer :: infile,outfile

2
examples/F90/set_bitmap.f90
View File

@ -13,7 +13,7 @@
! !
! !
program set_bitmap program set_bitmap
use eccodes use grib_api
implicit none implicit none
integer :: infile,outfile integer :: infile,outfile
integer :: igrib, iret integer :: igrib, iret

2
examples/F90/set_fortran.f90
View File

@ -10,7 +10,7 @@
! !
! !
program set program set
use eccodes use grib_api
implicit none implicit none
integer :: err integer :: err
integer(kind = 4) :: centre integer(kind = 4) :: centre

2
examples/F90/set_gvc.f90
View File

@ -13,7 +13,7 @@
! !
! !
program set program set
use eccodes use grib_api
implicit none implicit none
integer(kind = 4) :: NV integer(kind = 4) :: NV
integer :: infile,outfile integer :: infile,outfile

2
examples/F90/set_missing.f90
View File

@ -13,7 +13,7 @@
! !
! !
program set program set
use eccodes use grib_api
implicit none implicit none
integer :: infile,outfile integer :: infile,outfile
integer :: igrib, Ni, is_missing integer :: igrib, Ni, is_missing

2
examples/F90/set_missing_fortran.f90
View File

@ -10,7 +10,7 @@
! !
! !
program set program set
use eccodes use grib_api
implicit none implicit none
integer :: err integer :: err
integer :: len integer :: len

2
examples/F90/set_pv.f90
View File

@ -13,7 +13,7 @@
! !
! !
program set_pv program set_pv
use eccodes use grib_api
implicit none implicit none
integer :: numberOfLevels integer :: numberOfLevels
integer :: numberOfCoefficients integer :: numberOfCoefficients