libsim Versione 8.0.0

◆ gridinfo_clone()

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

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

Parametri
[in]thissource object
[out]thatcloned object, it does not need to be initalized
[in]categoryappendappend this suffix to log4fortran namespace category for the cloned object

Definizione alla linea 840 del file gridinfo_class.F90.

841 ELSE
842 CALL grib_set(gaid,'scaleFactorOfSecondFixedSurface',scalef2)
843 CALL grib_set(gaid,'scaledValueOfSecondFixedSurface',scalev2)
844 ENDIF
845
846else
847
848 CALL l4f_log(l4f_error,'GribEditionNumber '//t2c(editionnumber)//' not supported')

Generated with Doxygen.