libsim  Versione6.3.0

◆ 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]thisobject to be deleted

Definizione alla linea 792 del file gridinfo_class.F90.

792  ELSE
793  CALL grib_set(gaid,'scaleFactorOfFirstFixedSurface',scalef1)
794  CALL grib_set(gaid,'scaledValueOfFirstFixedSurface',scalev1)
795  ENDIF
796 
797  CALL grib_set(gaid,'typeOfSecondFixedSurface',ltype2)
798  IF (ltype2 == 255 .OR. .NOT.c_e(scalef2) .OR. .NOT.c_e(scalev2)) THEN ! code missing values correctly
799  CALL grib_set_missing(gaid,'scaleFactorOfSecondFixedSurface')
800  CALL grib_set_missing(gaid,'scaledValueOfSecondFixedSurface')
801  ELSE
802  CALL grib_set(gaid,'scaleFactorOfSecondFixedSurface',scalef2)
803  CALL grib_set(gaid,'scaledValueOfSecondFixedSurface',scalev2)
804  ENDIF
805 
806 else
807 
808  CALL l4f_log(l4f_error,'GribEditionNumber '//t2c(editionnumber)//' not supported')
809  CALL raise_error()
810 
811 end if
Functions that return a trimmed CHARACTER representation of the input variable.

Generated with Doxygen.