arrayof_gridinfo_remove

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 526 del file gridinfo_class.F90. ENDIF ELSE ! no valid grid_id has been found CALL l4f_category_log(category,l4f_error, & "gridinfo object of size "//t2c(this%arraysize)) CALL l4f_category_log(category,l4f_error, & "no valid grid id found when exporting to file "//trim(filename)) CALL raise_error() ENDIF !chiudo il logger CALL l4f_category_delete(category) END SUBROUTINE gridinfo_export_to_file FUNCTION gridinfo_decode_data(this) RESULT(field) TYPE(gridinfo_def),INTENT(in) :: this REAL :: field(this%griddim%dim%nx, this%griddim%dim%ny) ! array of decoded values CALL grid_id_decode_data(this%gaid, field) END FUNCTION gridinfo_decode_data SUBROUTINE gridinfo_encode_data(this, field) TYPE(gridinfo_def),INTENT(inout) :: this REAL,intent(in) :: field(:,:) IF (SIZE(field,1) /= this%griddim%dim%nx & .OR. SIZE(field,2) /= this%griddim%dim%ny) THEN CALL l4f_category_log(this%category,l4f_error, & 'gridinfo_encode: field and gridinfo object non conformal, field: ' & //trim(to_char(SIZE(field,1)))//'X'//trim(to_char(SIZE(field,2)))//', nx,ny:' & //trim(to_char(this%griddim%dim%nx))//'X'//trim(to_char(this%griddim%dim%ny))) CALL raise_error() RETURN ENDIF