From e63c3c0ce80d8a05f14df9beebf75c445f65e05f Mon Sep 17 00:00:00 2001 From: Shahram Najm Date: Wed, 13 Oct 2021 16:47:23 +0100 Subject: [PATCH] Examples: Cleanup --- examples/F90/grib_multi_write.f90 | 14 ++++++-------- examples/F90/multi_fortran.f90 | 4 ++-- examples/F90/print_data_fortran.f90 | 9 ++++----- examples/F90/set_missing_fortran.f90 | 4 ++-- 4 files changed, 14 insertions(+), 17 deletions(-) diff --git a/examples/F90/grib_multi_write.f90 b/examples/F90/grib_multi_write.f90 index 9605b9737..6a0de8a33 100644 --- a/examples/F90/grib_multi_write.f90 +++ b/examples/F90/grib_multi_write.f90 @@ -8,8 +8,8 @@ ! ! ! -! Description: How to create a multi field message in memory and write -! it in a file. The multi field messages can be created +! Description: How to create a multi-field message in memory and write +! it to a file. The multi-field messages can be created ! only in GRIB edition 2. ! ! @@ -22,24 +22,22 @@ program grib2_multi_write integer :: multi_gribid integer :: step, startsection - ! multi field messages can be created only in edition 2 + ! Multi-field messages can be created only in edition 2 call codes_open_file(infile, '../../data/sample.grib2', 'r') call codes_open_file(outfile, 'multi_created.grib2', 'w') - ! a grib message is loaded from file - ! in_gribid is the grib id to be used in subsequent calls + ! A GRIB message is loaded from file + ! in_gribid is the GRIB id to be used in subsequent calls call codes_grib_new_from_file(infile, in_gribid) startsection = 4 do step = 0, 240, 12 - call codes_set(in_gribid, "step", step) call codes_grib_multi_append(in_gribid, startsection, multi_gribid) - end do -! write messages to a file + ! Write messages to a file call codes_grib_multi_write(multi_gribid, outfile) call codes_release(in_gribid) diff --git a/examples/F90/multi_fortran.f90 b/examples/F90/multi_fortran.f90 index b51fc14e2..3714ee465 100644 --- a/examples/F90/multi_fortran.f90 +++ b/examples/F90/multi_fortran.f90 @@ -23,10 +23,10 @@ program multi call codes_open_file(ifile, '../../data/multi.grib2', 'r') - ! turn on support for multi fields messages */ + ! Turn on support for multi-field messages */ call codes_grib_multi_support_on() - ! turn off support for multi fields messages */ + ! Turn off support for multi-field messages */ !call codes_grib_multi_support_off() call codes_grib_new_from_file(ifile, igrib) diff --git a/examples/F90/print_data_fortran.f90 b/examples/F90/print_data_fortran.f90 index 8283637df..60ce5e305 100644 --- a/examples/F90/print_data_fortran.f90 +++ b/examples/F90/print_data_fortran.f90 @@ -8,7 +8,7 @@ ! ! Fortran 90 Implementation: print_data_fortran ! -! Description: prints all the data contained in a grib file +! Description: prints all the data contained in a GRIB file ! ! ! @@ -23,11 +23,10 @@ program print_data_fortran real(kind=8) :: max real(kind=8) :: min - call codes_open_file(ifile, & - '../../data/constant_field.grib1', 'r') + call codes_open_file(ifile, '../../data/constant_field.grib1', 'r') - ! A new grib message is loaded from file - ! igrib is the grib id to be used in subsequent calls + ! A new GRIB message is loaded from file + ! igrib is the GRIB id to be used in subsequent calls call codes_grib_new_from_file(ifile, igrib) call codes_get(igrib, 'values', values) diff --git a/examples/F90/set_missing_fortran.f90 b/examples/F90/set_missing_fortran.f90 index 17379f2c8..d0ae2403b 100644 --- a/examples/F90/set_missing_fortran.f90 +++ b/examples/F90/set_missing_fortran.f90 @@ -24,8 +24,8 @@ program set call codes_open_file(outfile, & 'out_surface_level.grib2', 'w') - ! a new grib message is loaded from file - ! igrib is the grib id to be used in subsequent calls + ! A new GRIB message is loaded from file + ! igrib is the GRIB id to be used in subsequent calls call codes_grib_new_from_file(infile, igrib) call codes_set(igrib, 'typeOfFirstFixedSurface', 'sfc')