|
◆ arrayof_gridinfo_insert_array()
subroutine, private gridinfo_class::arrayof_gridinfo_insert_array |
( |
type(arrayof_gridinfo) |
this, |
|
|
type(gridinfo_def), dimension(:), intent(in), optional |
content, |
|
|
integer, intent(in), optional |
nelem, |
|
|
integer, intent(in), optional |
pos |
|
) |
| |
|
private |
Method for inserting a number of elements of the array at a desired position.
If necessary, the array is reallocated to accomodate the new elements. - Parametri
-
| this | array object to extend |
[in] | content | object of TYPE TYPE(gridinfo_def) to insert, if not provided, space is reserved but not initialized |
[in] | nelem | number of elements to add, mutually exclusive with the previous parameter, if both are not provided, a single element is added without initialization |
[in] | pos | position where to insert, if it is out of range, it is clipped, if it is not provided, the object is appended |
Definizione alla linea 450 del file gridinfo_class.F90.
451 #ifdef HAVE_LIBGRIBAPI
452 IF (grid_id_get_driver(this%gaid) == 'grib_api') THEN
453 gaid = grid_id_get_gaid(this%gaid)
454 IF (c_e(gaid)) CALL gridinfo_export_gribapi(this, gaid)
458 IF (grid_id_get_driver(this%gaid) == 'gdal') THEN
460 CALL l4f_category_log(this%category,l4f_warn, "export to gdal not implemented" )
464 END SUBROUTINE gridinfo_export
472 SUBROUTINE gridinfo_export_to_file(this, filename, categoryappend)
473 TYPE(arrayof_gridinfo) :: this
474 CHARACTER(len=*), INTENT(in) :: filename
475 CHARACTER(len=*), INTENT(in), OPTIONAL :: categoryappend
477 INTEGER :: i, category
478 CHARACTER(len=512) :: a_name
479 TYPE(grid_file_id) :: output_file
480 TYPE(grid_id) :: valid_grid_id
482 IF ( PRESENT(categoryappend)) THEN
483 CALL l4f_launcher(a_name,a_name_append= &
484 trim(subcategory)// "."//trim(categoryappend))
|