libsim  Versione7.2.6

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

Generated with Doxygen.