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

volgrid_get_vol_3d() subroutine, public volgrid_get_vol_3d ( type(volgrid6d), intent(in) this, integer, intent(in) itime, integer, intent(in) itimerange, integer, intent(in) ivar, real, dimension(:,:,:), pointer voldati, logical, dimension(:), intent(out), optional, allocatable zlist ) Return a 3-d pointer to a x-y-z slice of a volume. This method works both with volumes having allocated and non-allocated thisvoldati array, and it returns a pointer to a 3-d slice either from the allocated thisvoldati array or from the grid_id object on file or in memory. In the second case the pointer should be either ALLOCATE'd to the expected size or NULLIFY'ed, and if NULLIFY'ed, it is allocated within the method, thus it will have to be deallocated by the caller when not in use anymore. Since this method may be called many times by a program, it is optimized for speed and it does not make any check about the matching size of the pointer and the array or about the allocation status of this, so it should be called only when everything has been checked to be in good shape. Parametri [in] this object from which the slice has to be retrieved [in] itime index of time level of the slice [in] itimerange index of timerange of the slice [in] ivar index of physical variable of the slice voldati pointer to the data, if thisvoldati is already allocated, it will just point to the requested slice, otherwise it will be allocated if and only if it is nullified on entry [out] zlist list of vertical level present in the data Definizione alla linea 650 del file volgrid6d_class.F90. ldescription=description else ldescription="Volgrid6d generated by: "//trim(arg) end if if (.not. present(unit))then lunit=getunit() else if (unit==0)then lunit=getunit() unit=lunit else lunit=unit end if end if lfilename=trim(arg)//".vg6d" if (index(arg,'/',back=.true.) > 0) lfilename=lfilename(index(arg,'/',back=.true.)+1 : ) if (present(filename))then if (filename /= "")then lfilename=filename end if end if if (present(filename_auto))filename_auto=lfilename inquire(unit=lunit,opened=opened) if (.not. opened) then inquire(file=lfilename,exist=exist) if (exist) CALL raise_error('file exist; cannot open new file') if (.not.exist) open (unit=lunit,file=lfilename,form="UNFORMATTED") !print *, "opened: ",lfilename