libsim Versione 7.2.1

◆ 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 1490 del file volgrid6d_class.F90.

1492 ENDIF
1493ENDIF
1494
1495DO ivar=1,nvar
1496! IF (c_e(var_coord_vol)) THEN
1497! IF (ivar == var_coord_vol) CYCLE ! skip coordinate variable in output
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))

Generated with Doxygen.