libsim  Versione7.2.6

◆ 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]thisobject in which slice has to be updated
[in]itimeindex of time level of the slice
[in]itimerangeindex of timerange of the slice
[in]ivarindex of physical variable of the slice
[in]voldatiupdated values of the slice

Definizione alla linea 733 del file volgrid6d_class.F90.

733 #endif
734 
735 call getarg(0,arg)
736 
737 if (.not. present(unit))then
738  lunit=getunit()
739 else
740  if (unit==0)then
741  lunit=getunit()
742  unit=lunit
743  else
744  lunit=unit
745  end if
746 end if
747 
748 lfilename=trim(arg)//".vg6d"
749 if (index(arg,'/',back=.true.) > 0) lfilename=lfilename(index(arg,'/',back=.true.)+1 : )
750 
751 if (present(filename))then
752  if (filename /= "")then
753  lfilename=filename
754  end if
755 end if
Index method.

Generated with Doxygen.