libsim Versione 7.2.6
|
◆ volgrid_set_vol_3d()
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.
Definizione alla linea 722 del file volgrid6d_class.F90. 723integer,intent(out),optional :: tarray(8) !< vettore come definito da "date_and_time" della data di scrittura del volume
724
725integer :: ntime, ntimerange, nlevel, nvar
726
727character(len=254) :: ldescription,lfilename,arg
728integer :: ltarray(8),lunit
729logical :: opened,exist
730
731#ifdef DEBUG
732call l4f_category_log(this%category,l4f_debug,"read from file")
733#endif
734
735call getarg(0,arg)
736
737if (.not. present(unit))then
738 lunit=getunit()
739else
740 if (unit==0)then
741 lunit=getunit()
742 unit=lunit
743 else
744 lunit=unit
745 end if
|