libsim Versione 7.1.11
|
◆ arrayof_gridinfo_insert_array()
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.
Definizione alla linea 446 del file gridinfo_class.F90. 447ENDIF
448#endif
449#ifdef HAVE_LIBGDAL
450IF (grid_id_get_driver(this%gaid) == 'gdal') THEN
451!gdalid = grid_id_get_gdalid(this%gaid)
452 CALL l4f_category_log(this%category,l4f_warn,"export to gdal not implemented" )
453ENDIF
454#endif
455
456END SUBROUTINE gridinfo_export
457
458
464SUBROUTINE gridinfo_export_to_file(this, filename, categoryappend)
465TYPE(arrayof_gridinfo) :: this
466CHARACTER(len=*),INTENT(in) :: filename
467CHARACTER(len=*),INTENT(in),OPTIONAL :: categoryappend
468
469INTEGER :: i, category
470CHARACTER(len=512) :: a_name
471TYPE(grid_file_id) :: output_file
472TYPE(grid_id) :: valid_grid_id
473
474IF (PRESENT(categoryappend)) THEN
475 CALL l4f_launcher(a_name,a_name_append= &
476 trim(subcategory)//"."//trim(categoryappend))
477ELSE
478 CALL l4f_launcher(a_name,a_name_append=trim(subcategory))
479ENDIF
480category=l4f_category_get(a_name)
|