arrayof_gridinfo_insert arrayof_gridinfo_insert_array

arrayof_gridinfo_insert_array() subroutine 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  ) 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 451 del file gridinfo_class.F90. #ifdef HAVE_LIBGRIBAPI IF (grid_id_get_driver(this%gaid) == 'grib_api') THEN gaid = grid_id_get_gaid(this%gaid) IF (c_e(gaid)) CALL gridinfo_export_gribapi(this, gaid) ENDIF #endif #ifdef HAVE_LIBGDAL IF (grid_id_get_driver(this%gaid) == 'gdal') THEN !gdalid = grid_id_get_gdalid(this%gaid) CALL l4f_category_log(this%category,l4f_warn,"export to gdal not implemented" ) ENDIF #endif END SUBROUTINE gridinfo_export SUBROUTINE gridinfo_export_to_file(this, filename, categoryappend) TYPE(arrayof_gridinfo) :: this CHARACTER(len=*),INTENT(in) :: filename CHARACTER(len=*),INTENT(in),OPTIONAL :: categoryappend INTEGER :: i TYPE(l4f_handle) :: category CHARACTER(len=512) :: a_name TYPE(grid_file_id) :: output_file TYPE(grid_id) :: valid_grid_id IF (PRESENT(categoryappend)) THEN