libsim  Versione 7.2.1

◆ gridinfo_clone()

subroutine gridinfo_class::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 850 del file gridinfo_class.F90.

851  CALL grib_get(gaid,'P2',p2g)
852  CALL grib_get(gaid,'indicatorOfUnitOfTimeRange',unit)
853  CALL timerange_g1_to_v7d(tri, p1g, p2g, unit, statproc, p1, p2)
854 
855 ELSE IF (editionnumber == 2) THEN
856 
857  CALL grib_get(gaid,'forecastTime',p1g)
858  CALL grib_get(gaid,'indicatorOfUnitOfTimeRange',unit)

Generated with Doxygen.