libsim Versione 7.2.0

◆ 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]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.

841INTEGER :: EditionNumber, tri, unit, p1g, p2g, p1, p2, statproc, &
842 ttimeincr, tprocdata, status
843
844call grib_get(gaid,'GRIBEditionNumber',editionnumber)
845
846IF (editionnumber == 1) THEN
847
848 CALL grib_get(gaid,'timeRangeIndicator',tri)

Generated with Doxygen.