|
◆ 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 filed 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 745 del file volgrid6d_class.F90.
748 if ( present(filename_auto))filename_auto=lfilename 751 inquire(unit=lunit,opened=opened) 752 if (.not. opened) then 753 inquire(file=lfilename,exist=exist) 754 IF (.NOT. exist) CALL raise_fatal_error( 'file '//trim(lfilename)// ' does not exist, cannot open') 755 open (unit=lunit,file=lfilename,form= "UNFORMATTED") 758 read(unit=lunit)ldescription 759 read(unit=lunit)ltarray 761 call l4f_log(l4f_info, "Info: reading volgrid6d from file: "//trim(lfilename))
|