arrayof_gridinfo_append arrayof_gridinfo_delete arrayof_gridinfo_insert arrayof_gridinfo_insert_array arrayof_gridinfo_packarray arrayof_gridinfo_remove gridinfo_clone gridinfo_decode_data gridinfo_delete gridinfo_display gridinfo_encode_data gridinfo_export gridinfo_export_to_file gridinfo_import gridinfo_import_from_file gridinfo_init gridinfov_display

gridinfo_delete() subroutine gridinfo_delete ( type(gridinfo_def), intent(inout) this ) private Destructor, it releases every information associated with the object. It releases memory and deletes the category for logging. Parametri [in,out] this object to be deleted Definizione alla linea 765 del file gridinfo_class.F90. call grib_get(gaid,'indicatorOfTypeOfLevel',ltype) call grib_get(gaid,'topLevel',l1) call grib_get(gaid,'bottomLevel',l2) call level_g1_to_g2(ltype,l1,l2,ltype1,scalef1,scalev1,ltype2,scalef2,scalev2) else if (editionnumber == 2)then call grib_get(gaid,'typeOfFirstFixedSurface',ltype1) call grib_get(gaid,'scaleFactorOfFirstFixedSurface',scalef1) call grib_get(gaid,'scaledValueOfFirstFixedSurface',scalev1) IF (scalef1 == -1 .OR. scalev1 == -1) THEN scalef1 = imiss; scalev1 = imiss ENDIF call grib_get(gaid,'typeOfSecondFixedSurface',ltype2) call grib_get(gaid,'scaleFactorOfSecondFixedSurface',scalef2) call grib_get(gaid,'scaledValueOfSecondFixedSurface',scalev2) IF (scalef2 == -1 .OR. scalev2 == -1) THEN scalef2 = imiss; scalev2 = imiss