libsim Versione 7.2.6

◆ export_to_gridinfovv()

subroutine export_to_gridinfovv ( type(volgrid6d), dimension(:), intent(inout) this,
type(arrayof_gridinfo), intent(inout) gridinfov,
type(grid_id), intent(in), optional gaid_template,
logical, intent(in), optional clone )

Export an array of volgrid6d objects to an arrayof_gridinfo object.

The multidimensional volgrid6d structures are serialized into a one-dimensional array of gridinfo_def objects, which is allocated to the proper size if not already allocated, or it is extended keeping the old data if any.

Parametri
[in,out]thisvolume array to be exported
[in,out]gridinfovoutput array of gridinfo_def objects
[in]gaid_templategrid_id template to be used for output data replacing the one contained in this
[in]cloneif provided and .TRUE., clone the grid_id included in this rather than making a shallow copy

Definizione alla linea 1508 del file volgrid6d_class.F90.

1509ENDIF
1510
1511if (associated(volgrid6d_in%var))then
1512 nvar=size(volgrid6d_in%var)
1513 volgrid6d_out%var=volgrid6d_in%var
1514end if
1515! allocate once for speed
1516IF (.NOT.ASSOCIATED(volgrid6d_in%voldati)) THEN
1517 ALLOCATE(voldatiin(volgrid6d_in%griddim%dim%nx, volgrid6d_in%griddim%dim%ny, &
1518 inlevel))
1519ENDIF
1520IF (.NOT.ASSOCIATED(volgrid6d_out%voldati)) THEN
1521 ALLOCATE(voldatiout(volgrid6d_out%griddim%dim%nx, volgrid6d_out%griddim%dim%ny, &
1522 onlevel))
1523ENDIF
1524
1525CALL get_val(this, levshift=levshift, levused=levused)

Generated with Doxygen.