arrayof_gridinfo_delete gridinfo_delete

arrayof_gridinfo_delete() subroutine arrayof_gridinfo_delete ( type(arrayof_gridinfo) this, logical, intent(in), optional nodestroy, logical, intent(in), optional nodealloc ) 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 574 del file gridinfo_class.F90. CALL grid_id_encode_data(this%gaid, field) END SUBROUTINE gridinfo_encode_data ! ========================================= ! grib_api driver specific code ! could this be moved to a separate module? ! ========================================= #ifdef HAVE_LIBGRIBAPI 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)