libsim  Versione 7.1.8

◆ volgrid6d_import_from_file()

subroutine volgrid6d_import_from_file ( type(volgrid6d), dimension(:), pointer  this,
character(len=*), intent(in)  filename,
integer, intent(in), optional  dup_mode,
logical, intent(in), optional  decode,
integer, intent(in), optional  time_definition,
character(len=*), dimension(:), intent(in), optional  anavar,
character(len=*), intent(in), optional  categoryappend 
)

Import the content of a supported file (like grib or gdal-supported format) into an array of volgrid6d objects.

This method imports a set of gridded fields from a file object into a suitable number of volgrid6d objects. The data are imported by creating a temporary gridinfo object, importing it into the volgrid6d object cloning the gaid's and then destroying the gridinfo, so it works similarly to volgrid6d_class::import_from_gridinfovv() method. For a detailed explanation of the anavar argument, see the documentation of volgrid6d_class::import_from_gridinfovv() method.

Parametri
thisobject in which to import
[in]filenamename of file from which to import
[in]dup_modedetermines the behavior in case of duplicate metadata: if dup_mode is not provided or 0, a duplicate field overwrites, if dup_mode is 1, duplicate fields are merged with priority to the last
[in]decodeif provided and .FALSE. the data volume in the elements of this is not allocated and successive work will be performed on grid_id's
[in]time_definition0=time is reference time; 1=time is validity time
[in]anavarlist of variables (B-table code equivalent) to be treated as time-independent data
[in]categoryappendappend this suffix to log4fortran namespace category

Definizione alla linea 1496 del file volgrid6d_class.F90.

1498 ! ENDIF
1499  DO itimerange=1,ntimerange
1500  DO itime=1,ntime
1501 ! skip empty columns where possible, improve
1502  IF (c_e(levshift) .AND. c_e(levused)) THEN
1503  IF (.NOT.any(c_e( &
1504  volgrid6d_in%gaid(levshift+1:levshift+levused,itime,itimerange,ivar) &
1505  ))) cycle
1506  ENDIF
1507  DO ilevel = 1, min(inlevel,onlevel)
1508 ! if present gaid copy it
1509  IF (c_e(volgrid6d_in%gaid(ilevel,itime,itimerange,ivar)) .AND. .NOT. &
1510  c_e(volgrid6d_out%gaid(ilevel,itime,itimerange,ivar))) THEN
1511 
1512  IF (optio_log(clone)) THEN
1513  CALL copy(volgrid6d_in%gaid(ilevel,itime,itimerange,ivar),&
1514  volgrid6d_out%gaid(ilevel,itime,itimerange,ivar))
1515 #ifdef DEBUG
1516  CALL l4f_category_log(volgrid6d_in%category,l4f_debug, &
1517  "cloning gaid, level "//t2c(ilevel))
1518 #endif
1519  ELSE
1520  volgrid6d_out%gaid(ilevel,itime,itimerange,ivar) = &
1521  volgrid6d_in%gaid(ilevel,itime,itimerange,ivar)
1522  ENDIF
1523  ENDIF
1524  ENDDO
1525 ! if out level are more, we have to clone anyway
1526  DO ilevel = min(inlevel,onlevel) + 1, onlevel
1527  IF (c_e(volgrid6d_in%gaid(inlevel,itime,itimerange,ivar)) .AND. .NOT. &
1528  c_e(volgrid6d_out%gaid(ilevel,itime,itimerange,ivar))) then
1529 
1530  CALL copy(volgrid6d_in%gaid(inlevel,itime,itimerange,ivar),&
1531  volgrid6d_out%gaid(ilevel,itime,itimerange,ivar))
1532 #ifdef DEBUG
1533  CALL l4f_category_log(volgrid6d_in%category,l4f_debug, &
1534  "forced cloning gaid, level "//t2c(inlevel)//"->"//t2c(ilevel))
1535 #endif
1536  ENDIF
1537  ENDDO

Generated with Doxygen.