libsim  Versione6.3.0

◆ grid_file_id_count()

integer function grid_id_class::grid_file_id_count ( type(grid_file_id), intent(in)  this)

Count the number of block/message/record/band of gridded data in the file-like object provided.

Returns 0 if the file_id object is empty or not corrctly associated to a file.

Parametri
[in]thisfile object to count

Definizione alla linea 520 del file grid_id_class.F90.

520 
521 that = this ! start with a shallow copy
522 
523 #ifdef HAVE_LIBGRIBAPI
524 IF (this%driver == grid_id_grib_api) THEN
525  IF (c_e(this%gaid)) THEN
526  that%gaid = -1
527  CALL grib_clone(this%gaid, that%gaid)
528  ENDIF
529 ENDIF
530 #endif
531 #ifdef HAVE_LIBGDAL
532 IF (this%driver == grid_id_gdal) THEN
533  IF (c_e(this)) THEN
534 ! that = grid_id_new(no_driver_id=1)
535 ! that%gdalid = this%gdalid ! better idea?
536 ! that%file_id => this%file_id
537  ENDIF
538 ENDIF
539 #endif
540 
541 END SUBROUTINE grid_id_copy

Generated with Doxygen.