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 511 del file gridinfo_class.F90. !$OMP END CRITICAL !$OMP END TASK ENDDO !$OMP END MASTER !$OMP END PARALLEL ! close file CALL delete(output_file) ELSE CALL l4f_category_log(category,l4f_error,"opening file "//trim(filename)) CALL raise_error() 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 !> Decode and return the data array from a grid_id object associated !! to a gridinfo object. This method returns a 2-d array of proper !! size extracted from the grid_id object associated to a gridinfo !! object. This can work if the gridinfo object has been correctly !! initialised and associated to a grid from an on-disk dataset !! (e.g. grib_api or gdal file). The result is an array of size \a !! this%griddim%dim%nx X \a this%griddim%dim%ny so it must have been !! properly allocated by the caller. FUNCTION gridinfo_decode_data(this) RESULT(field) TYPE(gridinfo_def),INTENT(in) :: this !< gridinfo object 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 !> Encode a data array into a grid_id object associated to a gridinfo object. !! This method encodes a 2-d array of proper size into the grid_id !! object associated to a gridinfo object. This can work if the !! gridinfo object has been correctly initialised and associated to a !! grid_id from an on-disk (template) dataset (grib_api or gdal !! file). The shape of the array must be conformal to the size of the !! grid previously set in the gridinfo object descriptors. SUBROUTINE gridinfo_encode_data(this, field) TYPE(gridinfo_def),INTENT(inout) :: this !< gridinfo object REAL,intent(in) :: field(:,:) !< data array to be encoded