libsim  Versione8.0.0

◆ gridinfo_delete()

subroutine gridinfo_class::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]thisobject to be deleted

Definizione alla linea 776 del file gridinfo_class.F90.

776  call grib_get(gaid,'scaledValueOfFirstFixedSurface',scalev1)
777  IF (scalef1 == -1 .OR. scalev1 == -1) THEN
778  scalef1 = imiss; scalev1 = imiss
779  ENDIF
780 
781  call grib_get(gaid,'typeOfSecondFixedSurface',ltype2)
782  call grib_get(gaid,'scaleFactorOfSecondFixedSurface',scalef2)
783  call grib_get(gaid,'scaledValueOfSecondFixedSurface',scalev2)
784  IF (scalef2 == -1 .OR. scalev2 == -1) THEN
785  scalef2 = imiss; scalev2 = imiss
786  ENDIF
787 
788 else
789 
790  CALL l4f_log(l4f_error,'GribEditionNumber '//t2c(editionnumber)//' not supported')
791  CALL raise_error()
792 
793 end if
794 
795 ! Convert missing levels and units m -> mm

Generated with Doxygen.