◆ arrayof_gridinfo_delete()

subroutine, private gridinfo_class::arrayof_gridinfo_delete	(	type(arrayof_gridinfo)	this,
		logical, intent(in), optional	nodestroy,
		logical, intent(in), optional	nodealloc
	)

private

Destructor for finalizing an array object.

If defined, calls the destructor for every element of the array object; finally it deallocates all the space occupied.

Parametri

	this	array object to be destroyed
	this	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
[in]	nodealloc	if provided and .TRUE. , the space reserved for the array is not deallocated, thus the values are retained, while the array pointer is nullified, this means that the caller must have previously assigned the pointer contents thisarray to another pointer to prevent memory leaks

Definizione alla linea 589 del file gridinfo_class.F90.

 SUBROUTINE gridinfo_import_gribapi(this, gaid)
 TYPE(gridinfo_def),INTENT(inout) :: this ! gridinfo object
 INTEGER, INTENT(in) :: gaid ! grib_api id of the grib loaded in memory to import
 
 call time_import_gribapi(this%time, gaid)
 call timerange_import_gribapi(this%timerange,gaid)
 call level_import_gribapi(this%level, gaid)
 call var_import_gribapi(this%var, gaid)
 
 call normalize_gridinfo(this)
 
 END SUBROUTINE gridinfo_import_gribapi
 
 
 ! grib_api driver
 SUBROUTINE gridinfo_export_gribapi(this, gaid)
 TYPE(gridinfo_def),INTENT(inout) :: this ! gridinfo object
 INTEGER, INTENT(in) :: gaid ! grib_api id of the grib loaded in memory to export
 
 TYPE(conv_func) :: c_func
 REAL,ALLOCATABLE :: tmparr(:,:)
 
 ! convert variable and values to the correct edition if required
 CALL volgrid6d_var_normalize(this%var, c_func, grid_id_new(grib_api_id=gaid))
 IF (this%var == volgrid6d_var_miss) THEN
   CALL l4f_log(l4f_error, &
    'A suitable variable has not been found in table when converting template')
   CALL raise_error()
 ENDIF
 IF (c_func /= conv_func_miss) THEN ! convert values as well
   tmparr = decode_gridinfo(this) ! f2003 implicit allocation
   CALL compute(c_func, tmparr)
   CALL encode_gridinfo(this, tmparr)
 ENDIF
 
 CALL unnormalize_gridinfo(this)
 
 CALL time_export_gribapi(this%time, gaid, this%timerange)
 CALL timerange_export_gribapi(this%timerange, gaid, this%time)
 CALL level_export_gribapi(this%level, gaid)
 CALL var_export_gribapi(this%var, gaid)
 
 END SUBROUTINE gridinfo_export_gribapi
 
 
 SUBROUTINE time_import_gribapi(this,gaid)
 TYPE(datetime),INTENT(out) :: this ! datetime object
 INTEGER,INTENT(in) :: gaid ! grib_api id of the grib loaded in memory to import 
 
 INTEGER :: EditionNumber, ttimeincr, tprocdata, centre, p2g, p2, unit, status
 CHARACTER(len=9) :: date
 CHARACTER(len=10) :: time