◆ volgrid_set_vol_3d()

subroutine, public volgrid6d_class::volgrid_set_vol_3d	(	type(volgrid6d), intent(inout)	this,
		integer, intent(in)	itime,
		integer, intent(in)	itimerange,
		integer, intent(in)	ivar,
		real, dimension(:,:,:), intent(in)	voldati
	)

Reset a 3-d x-y-z slice of a volume after the data have been modified.

This method works both with volumes having allocated and non-allocated thisvoldati array, and it updates the requested slice. In case thisvoldati is already allocated, this is a no-operation while in the other case this method encodes the field provided into the grid_id object on file or in memory. 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 field 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,out]	this	object in which slice has to be updated
[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
[in]	voldati	updated values of the slice

Definizione alla linea 738 del file volgrid6d_class.F90.

 #endif
 
 call getarg(0,arg)
 
 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