libsim  Versione 7.1.9

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

1467 ! allocate once for speed
1468 IF (.NOT.ASSOCIATED(volgrid6d_in%voldati)) THEN
1469  ALLOCATE(voldatiin(volgrid6d_in%griddim%dim%nx, volgrid6d_in%griddim%dim%ny, &
1470  inlevel))
1471 ENDIF
1472 IF (.NOT.ASSOCIATED(volgrid6d_out%voldati)) THEN
1473  ALLOCATE(voldatiout(volgrid6d_out%griddim%dim%nx, volgrid6d_out%griddim%dim%ny, &
1474  onlevel))
1475 ENDIF
1476 
1477 CALL get_val(this, levshift=levshift, levused=levused)
1478 spos = imiss
1479 IF (c_e(lvar_coord_vol)) THEN
1480  CALL get_val(this%trans, output_levtype=output_levtype)
1481  IF (output_levtype%level1 == 103 .OR. output_levtype%level1 == 108) THEN
1482  spos = firsttrue(volgrid6d_in%level(:) == vol7d_level_new(1))
1483  IF (spos == 0) THEN

Generated with Doxygen.