|
◆ 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] | this | volume array to be exported |
[in,out] | gridinfov | output array of gridinfo_def objects |
[in] | gaid_template | grid_id template to be used for output data replacing the one contained in this |
[in] | clone | if provided and .TRUE., clone the grid_id included in this rather than making a shallow copy |
Definizione alla linea 1519 del file volgrid6d_class.F90.
1520 IF (.NOT. ASSOCIATED(volgrid6d_out%voldati)) THEN 1521 ALLOCATE(voldatiout(volgrid6d_out%griddim%dim%nx, volgrid6d_out%griddim%dim%ny, & 1525 CALL get_val(this, levshift=levshift, levused=levused) 1527 IF (c_e(lvar_coord_vol)) THEN 1528 CALL get_val(this%trans, output_levtype=output_levtype) 1529 IF (output_levtype%level1 == 103 .OR. output_levtype%level1 == 108) THEN 1530 spos = firsttrue(volgrid6d_in%level(:) == vol7d_level_new(1)) 1532 CALL l4f_category_log(volgrid6d_in%category, l4f_error, & 1533 'output level '//t2c(output_levtype%level1)// & 1534 ' requested, but height/press of surface not provided in volume')
|