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

Fortran API: formatting (https://github.com/pseewald/fprettify)

This commit is contained in:
Shahram Najm 2021-02-15 12:46:59 +00:00
parent b62e22fef9
commit de42c8f6a5
17 changed files with 2877 additions and 2913 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fortran/eccodes_f90_head.f90
View File

@ -24,7 +24,6 @@ module eccodes
integer, parameter, public :: CODES_PRODUCT_GRIB = 1 integer, parameter, public :: CODES_PRODUCT_GRIB = 1
integer, parameter, public :: CODES_PRODUCT_BUFR = 2 integer, parameter, public :: CODES_PRODUCT_BUFR = 2
!> Create a new message in memory from an integer or character array containting the coded message. !> Create a new message in memory from an integer or character array containting the coded message.
!> !>
!> The message can be accessed through its ID and it will be available\n !> The message can be accessed through its ID and it will be available\n

2
fortran/eccodes_f90_int.f90
View File

@ -6,7 +6,6 @@
! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by ! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction. ! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
!> Get the distinct values of the key in argument contained in the index. The key must belong to the index. !> Get the distinct values of the key in argument contained in the index. The key must belong to the index.
!> !>
!> !>
@ -105,7 +104,6 @@
codes_get_real8_array codes_get_real8_array
end interface codes_get end interface codes_get
!> Get the size of an array key. !> Get the size of an array key.
!> !>
!> To get the size of a key representing an array. !> To get the size of a key representing an array.

1
fortran/eccodes_f90_long_int.f90
View File

@ -6,7 +6,6 @@
! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by ! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction. ! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
!> Get the distinct values of the key in argument contained in the index. The key must belong to the index. !> Get the distinct values of the key in argument contained in the index. The key must belong to the index.
!> !>
!> !>

22
fortran/eccodes_f90_tail.f90
View File

@ -1096,7 +1096,6 @@ subroutine codes_bufr_new_from_file ( ifile, bufrid , status)
call bufr_new_from_file(ifile, bufrid, status) call bufr_new_from_file(ifile, bufrid, status)
end subroutine codes_bufr_new_from_file end subroutine codes_bufr_new_from_file
!> Create a new message in memory from a character array containting the coded message. !> Create a new message in memory from a character array containting the coded message.
!> !>
!> The message can be accessed through its msgid and it will be available\n !> The message can be accessed through its msgid and it will be available\n
@ -1415,7 +1414,6 @@ subroutine codes_keys_iterator_rewind ( iterid, status )
call grib_keys_iterator_rewind(iterid, status) call grib_keys_iterator_rewind(iterid, status)
end subroutine codes_keys_iterator_rewind end subroutine codes_keys_iterator_rewind
! BUFR keys iterator ! BUFR keys iterator
! ----------------------- ! -----------------------
!> Create a new iterator on the keys of a BUFR message. !> Create a new iterator on the keys of a BUFR message.
@ -1445,7 +1443,6 @@ subroutine codes_bufr_keys_iterator_new ( msgid, iterid, status )
end if end if
end subroutine codes_bufr_keys_iterator_new end subroutine codes_bufr_keys_iterator_new
!> Advance to the next BUFR keys iterator value. !> Advance to the next BUFR keys iterator value.
!> !>
!> @param iterid keys iterator id created with @ref codes_bufr_keys_iterator_new !> @param iterid keys iterator id created with @ref codes_bufr_keys_iterator_new
@ -1463,7 +1460,6 @@ subroutine codes_bufr_keys_iterator_next (iterid , status)
end if end if
end subroutine codes_bufr_keys_iterator_next end subroutine codes_bufr_keys_iterator_next
!> Get the name of a key from a BUFR keys iterator. !> Get the name of a key from a BUFR keys iterator.
!> !>
!> If the status parameter (optional) is not given the program will exit with an error message\n !> If the status parameter (optional) is not given the program will exit with an error message\n
@ -1528,8 +1524,6 @@ end subroutine codes_bufr_keys_iterator_get_name
end if end if
end subroutine codes_bufr_keys_iterator_delete end subroutine codes_bufr_keys_iterator_delete
!> Dump the content of a message. !> Dump the content of a message.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -1545,7 +1539,6 @@ subroutine codes_dump ( msgid , status)
call grib_dump(msgid, status) call grib_dump(msgid, status)
end subroutine codes_dump end subroutine codes_dump
!> Get the API version !> Get the API version
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -1564,7 +1557,6 @@ subroutine codes_get_api_version(api_version, status)
end if end if
end subroutine codes_get_api_version end subroutine codes_get_api_version
!> Get the error message given an error code !> Get the error message given an error code
!> !>
!> @param error error code !> @param error error code
@ -1871,7 +1863,6 @@ subroutine codes_set_string_array ( msgid, key, value, status )
end subroutine codes_set_string_array end subroutine codes_set_string_array
!> Get the integer array of values for a key from a message. !> Get the integer array of values for a key from a message.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -2103,7 +2094,6 @@ subroutine codes_get_real8_array ( msgid, key, value, status )
end if end if
end subroutine codes_get_real8_array end subroutine codes_get_real8_array
!> Get a real(4) value of specified index from an array key. !> Get a real(4) value of specified index from an array key.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -2125,7 +2115,6 @@ subroutine codes_get_real4_element ( msgid, key, kindex,value, status )
call grib_get_real4_element(msgid, key, kindex, value, status) call grib_get_real4_element(msgid, key, kindex, value, status)
end subroutine codes_get_real4_element end subroutine codes_get_real4_element
!> Get a real(8) value of specified index from an array key. !> Get a real(8) value of specified index from an array key.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -2147,7 +2136,6 @@ subroutine codes_get_real8_element ( msgid, key, kindex,value, status )
call grib_get_real8_element(msgid, key, kindex, value, status) call grib_get_real8_element(msgid, key, kindex, value, status)
end subroutine codes_get_real8_element end subroutine codes_get_real8_element
!> Get the real(4) values whose indexes are stored in the array "index" from an array key. !> Get the real(4) values whose indexes are stored in the array "index" from an array key.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -2209,7 +2197,6 @@ subroutine codes_set_int ( msgid, key, value, status )
call grib_set_int(msgid, key, value, status) call grib_set_int(msgid, key, value, status)
end subroutine codes_set_int end subroutine codes_set_int
!> Set the integer value for a key in a message. !> Set the integer value for a key in a message.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -2229,7 +2216,6 @@ subroutine codes_set_long ( msgid, key, value, status )
call grib_set_long(msgid, key, value, status) call grib_set_long(msgid, key, value, status)
end subroutine codes_set_long end subroutine codes_set_long
!> Set the real(4) value for a key in a message. !> Set the real(4) value for a key in a message.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -2268,7 +2254,6 @@ subroutine codes_set_real8 ( msgid, key, value, status )
call grib_set_real8(msgid, key, value, status) call grib_set_real8(msgid, key, value, status)
end subroutine codes_set_real8 end subroutine codes_set_real8
!> Set the integers values for an array key in a message. !> Set the integers values for an array key in a message.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -2444,7 +2429,6 @@ subroutine codes_get_message_size_int ( msgid, nbytes, status)
call grib_get_message_size_int(msgid, nbytes, status) call grib_get_message_size_int(msgid, nbytes, status)
end subroutine codes_get_message_size_int end subroutine codes_get_message_size_int
!> Get the size of a coded message. !> Get the size of a coded message.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -2513,7 +2497,6 @@ subroutine codes_grib_multi_write ( multigribid, ifile , status)
call grib_multi_write(multigribid, ifile, status) call grib_multi_write(multigribid, ifile, status)
end subroutine codes_grib_multi_write end subroutine codes_grib_multi_write
!> Append a single field grib message to a multi field grib message. !> Append a single field grib message to a multi field grib message.
!> Only the sections with section number greather or equal "startsection" are copied from the input single message to the multi field output grib. !> Only the sections with section number greather or equal "startsection" are copied from the input single message to the multi field output grib.
!> !>
@ -2605,7 +2588,6 @@ subroutine codes_grib_find_nearest_single(gribid,is_lsm, &
value, distance, kindex, status) value, distance, kindex, status)
end subroutine codes_grib_find_nearest_single end subroutine codes_grib_find_nearest_single
!> Find the 4 nearest points of a latitude longitude point. !> Find the 4 nearest points of a latitude longitude point.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -2641,7 +2623,6 @@ subroutine codes_grib_find_nearest_four_single(gribid,is_lsm, &
value, distance, kindex, status) value, distance, kindex, status)
end subroutine codes_grib_find_nearest_four_single end subroutine codes_grib_find_nearest_four_single
!> Turn on the support for multiple fields in a single message. !> Turn on the support for multiple fields in a single message.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -2765,7 +2746,6 @@ subroutine codes_skip_read_only ( iterid, status )
call grib_skip_read_only(iterid, status) call grib_skip_read_only(iterid, status)
end subroutine codes_skip_read_only end subroutine codes_skip_read_only
!> Set the definition path !> Set the definition path
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -2796,7 +2776,6 @@ subroutine codes_set_samples_path ( path, status )
call grib_set_samples_path(path, status) call grib_set_samples_path(path, status)
end subroutine codes_set_samples_path end subroutine codes_set_samples_path
subroutine codes_julian_to_datetime(jd, year, month, day, hour, minute, second, status) subroutine codes_julian_to_datetime(jd, year, month, day, hour, minute, second, status)
real(kind=kindOfDouble), intent(in) :: jd real(kind=kindOfDouble), intent(in) :: jd
integer(kind=kindOfLong), intent(out) :: year, month, day, hour, minute, second integer(kind=kindOfLong), intent(out) :: year, month, day, hour, minute, second
@ -2881,5 +2860,4 @@ subroutine codes_bufr_multi_element_constant_arrays_off (status )
end subroutine codes_bufr_multi_element_constant_arrays_off end subroutine codes_bufr_multi_element_constant_arrays_off
end module eccodes end module eccodes

1
fortran/grib_f90_head.f90
View File

@ -21,7 +21,6 @@ module grib_api
real(8), parameter, public :: GRIB_MISSING_DOUBLE = -1.D+100 real(8), parameter, public :: GRIB_MISSING_DOUBLE = -1.D+100
integer(4), parameter, public :: GRIB_MISSING_LONG = 2147483647 integer(4), parameter, public :: GRIB_MISSING_LONG = 2147483647
!> Create a new message in memory from an integer or character array containting the coded message. !> Create a new message in memory from an integer or character array containting the coded message.
!> !>
!> The message can be accessed through its gribid and it will be available\n !> The message can be accessed through its gribid and it will be available\n

2
fortran/grib_f90_int.f90
View File

@ -6,7 +6,6 @@
! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by ! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction. ! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
!> Get the distinct values of the key in argument contained in the index. The key must belong to the index. !> Get the distinct values of the key in argument contained in the index. The key must belong to the index.
!> !>
!> !>
@ -103,7 +102,6 @@
grib_get_real8_array grib_get_real8_array
end interface grib_get end interface grib_get
!> Get the size of an array key. !> Get the size of an array key.
!> !>
!> To get the size of a key representing an array. !> To get the size of a key representing an array.

1
fortran/grib_f90_long_int.f90
View File

@ -6,7 +6,6 @@
! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by ! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction. ! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
!> Get the distinct values of the key in argument contained in the index. The key must belong to the index. !> Get the distinct values of the key in argument contained in the index. The key must belong to the index.
!> !>
!> !>

6
fortran/grib_f90_tail.f90
View File

@ -1338,7 +1338,6 @@
end if end if
end subroutine any_new_from_file end subroutine any_new_from_file
!> Create a new message in memory from a character array containting the coded message. !> Create a new message in memory from a character array containting the coded message.
!> !>
!> The message can be accessed through its gribid and it will be available\n !> The message can be accessed through its gribid and it will be available\n
@ -1432,7 +1431,6 @@
end if end if
end subroutine grib_new_from_samples end subroutine grib_new_from_samples
!> Free the memory for the message referred as gribid. !> Free the memory for the message referred as gribid.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -1554,7 +1552,6 @@
call grib_f_check(status, caller, string) call grib_f_check(status, caller, string)
end subroutine grib_check end subroutine grib_check
!> Get latitudes/longitudes/data values (real(4)). !> Get latitudes/longitudes/data values (real(4)).
!> !>
!> Latitudes, longitudes, data values arrays are returned. !> Latitudes, longitudes, data values arrays are returned.
@ -2041,7 +2038,6 @@
end if end if
end subroutine grib_get_string end subroutine grib_get_string
!> Get the integer array of values for a key from a grib message. !> Get the integer array of values for a key from a grib message.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -3107,7 +3103,6 @@
end if end if
end subroutine grib_skip_coded end subroutine grib_skip_coded
!> Skip the duplicated keys in a keys iterator. !> Skip the duplicated keys in a keys iterator.
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will
@ -3131,7 +3126,6 @@
end if end if
end subroutine grib_skip_duplicates end subroutine grib_skip_duplicates
!> Skip the read_only keys in a keys iterator. !> Skip the read_only keys in a keys iterator.
!> !>
!> Read only keys cannot be set. !> Read only keys cannot be set.