libsim  Versione6.3.0

◆ export_to_gridinfovv()

subroutine volgrid6d_class::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 1489 del file volgrid6d_class.F90.

1489  ' requested, but height/press of surface not provided in volume')
1490  ENDIF
1491  IF (.NOT.c_e(levshift) .AND. .NOT.c_e(levused)) THEN
1492  CALL l4f_category_log(volgrid6d_in%category, l4f_error, &
1493  'internal inconsistence, levshift and levused undefined when they should be')
1494  ENDIF
1495  ENDIF
1496 ENDIF
1497 
1498 DO ivar=1,nvar
1499 ! IF (c_e(var_coord_vol)) THEN
1500 ! IF (ivar == var_coord_vol) CYCLE ! skip coordinate variable in output
1501 ! ENDIF
1502  DO itimerange=1,ntimerange
1503  DO itime=1,ntime
1504 ! skip empty columns where possible, improve
1505  IF (c_e(levshift) .AND. c_e(levused)) THEN

Generated with Doxygen.