libsim Versione 7.2.1

◆ 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 )
private

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 1460 del file volgrid6d_class.F90.

1461ENDIF
1462
1463if (associated(volgrid6d_in%var))then
1464 nvar=size(volgrid6d_in%var)
1465 volgrid6d_out%var=volgrid6d_in%var
1466end if
1467! allocate once for speed
1468IF (.NOT.ASSOCIATED(volgrid6d_in%voldati)) THEN
1469 ALLOCATE(voldatiin(volgrid6d_in%griddim%dim%nx, volgrid6d_in%griddim%dim%ny, &
1470 inlevel))
1471ENDIF
1472IF (.NOT.ASSOCIATED(volgrid6d_out%voldati)) THEN
1473 ALLOCATE(voldatiout(volgrid6d_out%griddim%dim%nx, volgrid6d_out%griddim%dim%ny, &
1474 onlevel))
1475ENDIF
1476
1477CALL get_val(this, levshift=levshift, levused=levused)

Generated with Doxygen.