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_gridinfov() subroutine volgrid6d_class::export_to_gridinfov ( type(volgrid6d), intent(inout)  this, type(arrayof_gridinfo), intent(inout)  gridinfov, type(grid_id), intent(in), optional  gaid_template, logical, intent(in), optional  clone  ) private Export a volgrid6d object to an arrayof_gridinfo object. The multidimensional volgrid6d structure is serialized into a one-dimensional array of gridinfo_def objects, which is allocated to the proper size if not already allocated, or it is extended keeping the old data if any. Parametri [in,out] this volume to be exported [in,out] gridinfov output array of gridinfo_def objects [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 1472 del file volgrid6d_class.F90. type(volgrid6d), INTENT(in) :: volgrid6d_in ! oggetto da trasformare type(volgrid6d), INTENT(inout) :: volgrid6d_out ! oggetto trasformato; deve essere completo (init, alloc, alloc_vol) TYPE(vol7d_level),INTENT(in),OPTIONAL :: lev_out(:) ! vol7d_level object defining target vertical grid, for vertical interpolations INTEGER,INTENT(in),OPTIONAL :: var_coord_vol ! index of variable defining vertical coordinate values in input volume LOGICAL,INTENT(in),OPTIONAL :: clone ! se fornito e \c .TRUE., clona i gaid da volgrid6d_in a volgrid6d_out INTEGER :: ntime, ntimerange, inlevel, onlevel, nvar, & itime, itimerange, ilevel, ivar, levshift, levused, lvar_coord_vol, spos REAL,POINTER :: voldatiin(:,:,:), voldatiout(:,:,:), coord_3d_in(:,:,:) TYPE(vol7d_level) :: output_levtype LOGICAL,ALLOCATABLE :: zlist(:) #ifdef DEBUG call l4f_category_log(volgrid6d_in%category,l4f_debug,"start volgrid6d_transform_compute") #endif ntime=0 ntimerange=0 inlevel=0 onlevel=0 nvar=0 lvar_coord_vol = optio_i(var_coord_vol) if (associated(volgrid6d_in%time))then ntime=size(volgrid6d_in%time) volgrid6d_out%time=volgrid6d_in%time end if if (associated(volgrid6d_in%timerange))then ntimerange=size(volgrid6d_in%timerange) volgrid6d_out%timerange=volgrid6d_in%timerange end if IF (ASSOCIATED(volgrid6d_in%level))THEN inlevel=SIZE(volgrid6d_in%level) ENDIF IF (PRESENT(lev_out)) THEN onlevel=SIZE(lev_out) volgrid6d_out%level=lev_out ELSE IF (ASSOCIATED(volgrid6d_in%level))THEN onlevel=SIZE(volgrid6d_in%level) volgrid6d_out%level=volgrid6d_in%level