|
◆ arrayof_gridinfo_remove()
subroutine arrayof_gridinfo_remove |
( |
type(arrayof_gridinfo) |
this, |
|
|
integer, intent(in), optional |
nelem, |
|
|
integer, intent(in), optional |
pos, |
|
|
logical, intent(in), optional |
nodestroy |
|
) |
| |
Method for removing elements of the array at a desired position.
If necessary, the array is reallocated to reduce space.
- Parametri
-
| this | array object in which an element has to be removed |
[in] | nelem | number of elements to remove, if not provided, a single element is removed |
[in] | pos | position of the element to be removed, if it is out of range, it is clipped, if it is not provided, objects are removed at the end |
[in] | pos | if provided and .TRUE. , the destructor possibily defined for the TYPE(gridinfo_def) is not called for every deleted object, may be useful if the objects to be deleted have been copied to another instance of arrayof_gridinfo and continue their life there |
Definizione alla linea 542 del file gridinfo_class.F90.
549 SUBROUTINE gridinfo_encode_data(this, field) 550 TYPE(gridinfo_def), INTENT(inout) :: this 551 REAL, intent(in) :: field(:,:) 553 IF ( SIZE(field,1) /= this%griddim%dim%nx & 554 .OR. SIZE(field,2) /= this%griddim%dim%ny) THEN 555 CALL l4f_category_log(this%category,l4f_error, & 556 'gridinfo_encode: field and gridinfo object non conformal, field: ' & 557 //trim( to_char( SIZE(field,1)))// 'X'//trim( to_char( SIZE(field,2)))// ', nx,ny:' & 558 //trim( to_char(this%griddim%dim%nx))// 'X'//trim( to_char(this%griddim%dim%ny))) 563 CALL grid_id_encode_data(this%gaid, field) 565 END SUBROUTINE gridinfo_encode_data 572 #ifdef HAVE_LIBGRIBAPI 573 SUBROUTINE gridinfo_import_gribapi(this, gaid) 574 TYPE(gridinfo_def), INTENT(inout) :: this 575 INTEGER, INTENT(in) :: gaid 577 call time_import_gribapi(this%time, gaid) 578 call timerange_import_gribapi(this%timerange,gaid) 579 call level_import_gribapi(this%level, gaid) 580 call var_import_gribapi(this%var, gaid) 582 call normalize_gridinfo(this) 584 END SUBROUTINE gridinfo_import_gribapi 588 SUBROUTINE gridinfo_export_gribapi(this, gaid) 589 TYPE(gridinfo_def), INTENT(inout) :: this 590 INTEGER, INTENT(in) :: gaid 592 TYPE(conv_func) :: c_func 593 REAL, ALLOCATABLE :: tmparr(:,:) Restituiscono il valore dell'oggetto in forma di stringa stampabile.
|