◆ gridinfo_clone()

subroutine gridinfo_clone	(	type(gridinfo_def), intent(in)	this,
		type(gridinfo_def), intent(out)	that,
		character(len=*), intent(in), optional	categoryappend )

Clone the object, creating a new independent instance of the object exactly equal to the starting one.

Parametri

[in]	this	source object
[out]	that	cloned object, it does not need to be initalized
[in]	categoryappend	append this suffix to log4fortran namespace category for the cloned object

Definizione alla linea 840 del file gridinfo_class.F90.

  ELSE
    CALL grib_set(gaid,'scaleFactorOfSecondFixedSurface',scalef2)
    CALL grib_set(gaid,'scaledValueOfSecondFixedSurface',scalev2)
  ENDIF
 
else
 
  CALL l4f_log(l4f_error,'GribEditionNumber '//t2c(editionnumber)//' not supported')