export_to_gridinfo export_to_gridinfov export_to_gridinfovv volgrid6d_export_to_file volgrid6d_write_on_file

export_to_gridinfovv() subroutine export_to_gridinfovv ( type(volgrid6d), dimension(:), intent(inout) this, type(arrayof_gridinfo), intent(inout) gridinfov, type(grid_id), intent(in), optional gaid_template, logical, intent(in), optional clone ) Export an array of volgrid6d objects to an arrayof_gridinfo object. The multidimensional volgrid6d structures are 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 array 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 1513 del file volgrid6d_class.F90. volgrid6d_out%level=volgrid6d_in%level ENDIF if (associated(volgrid6d_in%var))then nvar=size(volgrid6d_in%var) volgrid6d_out%var=volgrid6d_in%var end if ! allocate once for speed IF (.NOT.ASSOCIATED(volgrid6d_in%voldati)) THEN ALLOCATE(voldatiin(volgrid6d_in%griddim%dim%nx, volgrid6d_in%griddim%dim%ny, & inlevel)) ENDIF IF (.NOT.ASSOCIATED(volgrid6d_out%voldati)) THEN ALLOCATE(voldatiout(volgrid6d_out%griddim%dim%nx, volgrid6d_out%griddim%dim%ny, & onlevel)) ENDIF