display_volgrid6d display_volgrid6dv export_to_gridinfo export_to_gridinfov export_to_gridinfovv import_from_gridinfo import_from_gridinfovv v7d_v7d_transform v7d_volgrid6d_transform vg6d_c2a vg6d_reduce vg6d_rounding vg6d_wind_rot vg6d_wind_unrot vg6dv_rounding volgrid6d_alloc volgrid6d_alloc_vol volgrid6d_delete volgrid6d_export_to_file volgrid6d_import_from_file volgrid6d_init volgrid6d_read_from_file volgrid6d_transform volgrid6d_v7d_transform volgrid6d_v7d_transform_compute volgrid6d_write_on_file volgrid6dv_delete volgrid6dv_transform volgrid6dv_v7d_transform volgrid_get_vol_2d volgrid_get_vol_3d volgrid_set_vol_2d volgrid_set_vol_3d

export_to_gridinfo() subroutine export_to_gridinfo ( type(volgrid6d), intent(in) this, type(gridinfo_def), intent(inout) gridinfo, integer itime, integer itimerange, integer ilevel, integer ivar, type(grid_id), intent(in), optional gaid_template, logical, intent(in), optional clone ) private Export a single grid of a volgrid6d object to a gridinfo_def object. A single 2d slice of a volgrid6d at a specified location is written into a gridinfo_def object, including the grid_id which can be used for the successive export to file. Parametri [in] this volume to be exported [in,out] gridinfo output gridinfo_def object itime index within this of the element to be exported for the time dimension itimerange index within this of the element to be exported for the timerange dimension ilevel index within this of the element to be exported for the vertical level dimension ivar index within this of the element to be exported for the variable dimension [in] gaid_template grid_id template to be used for output data replacing the one contained in this [in] clone if provided and .TRUE., clone the grid_id included in this rather than making a shallow copy Definizione alla linea 1175 del file volgrid6d_class.F90. ntime = count_distinct(correctedtime, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ELSE ntime = count_distinct(gridinfov%array(1:gridinfov%arraysize)%time, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ENDIF IF (ltime_definition == 2) THEN ! set all to analysis ntimerange = count_distinct(correctedtimerange, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ELSE ntimerange = count_distinct(gridinfov%array(1:gridinfov%arraysize)%timerange, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ENDIF nlevel = count_distinct(gridinfov%array(1:gridinfov%arraysize)%level, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim), & back=.true.) nvar = count_distinct(gridinfov%array(1:gridinfov%arraysize)%var, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim), & back=.true.) #ifdef DEBUG CALL l4f_category_log(this(i)%category,l4f_debug,"alloc volgrid6d index: "//t2c(i)) #endif CALL volgrid6d_alloc(this(i),this(i)%griddim%dim,ntime=ntime, & ntimerange=ntimerange,nlevel=nlevel,nvar=nvar) IF (ltime_definition == 1 .OR. ltime_definition == 2) THEN ! verification time this(i)%time = pack_distinct(correctedtime, ntime, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ELSE this(i)%time = pack_distinct(gridinfov%array(1:gridinfov%arraysize)%time, ntime, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ENDIF CALL sort(this(i)%time) IF (ltime_definition == 2) THEN ! set all to analysis this(i)%timerange = pack_distinct(correctedtimerange, ntimerange, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ELSE this(i)%timerange = pack_distinct(gridinfov%array(1:gridinfov%arraysize)%timerange, & ntimerange, mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim) & .AND. .NOT.isanavar(:), back=.true.) ENDIF CALL sort(this(i)%timerange) this(i)%level=pack_distinct(gridinfov%array(1:gridinfov%arraysize)%level, & nlevel,mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim), & back=.true.) CALL sort(this(i)%level) this(i)%var=pack_distinct(gridinfov%array(1:gridinfov%arraysize)%var, nvar, & mask=(this(i)%griddim == gridinfov%array(1:gridinfov%arraysize)%griddim), & back=.true.) #ifdef DEBUG CALL l4f_category_log(this(i)%category,l4f_debug,"alloc_vol volgrid6d index: "//t2c(i)) #endif CALL volgrid6d_alloc_vol(this(i), decode=decode)