◆ gridinfo_delete()

subroutine gridinfo_delete ( type(gridinfo_def), intent(inout) this )

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