display_volgrid6d display_volgrid6dv export_to_gridinfo export_to_gridinfov export_to_gridinfovv import_from_gridinfo import_from_gridinfovv v7d_v7d_transform v7d_volgrid6d_transform vg6d_c2a vg6d_reduce vg6d_rounding vg6d_wind_rot vg6d_wind_unrot vg6dv_rounding volgrid6d_alloc volgrid6d_alloc_vol volgrid6d_delete volgrid6d_export_to_file volgrid6d_import_from_file volgrid6d_init volgrid6d_read_from_file volgrid6d_transform volgrid6d_v7d_transform volgrid6d_v7d_transform_compute volgrid6d_write_on_file volgrid6dv_delete volgrid6dv_transform volgrid6dv_v7d_transform volgrid_get_vol_2d volgrid_get_vol_3d volgrid_set_vol_2d volgrid_set_vol_3d

volgrid6d_export_to_file() subroutine volgrid6d_class::volgrid6d_export_to_file ( type(volgrid6d), dimension(:)  this, character(len=*), intent(in)  filename, type(grid_id), intent(in), optional  gaid_template, character(len=*), intent(in), optional  categoryappend  ) private High level method for exporting a volume array to file. All the information contained into an array of volgrid6d objects, i.e. dimension descriptors and data, is exported to a file using the proper output driver (typically grib_api for grib format). If a template is provided, it will determine the characteristic of the output file, otherwise the grid_id descriptors contained in the volgrid6d object will be used Parametri this volume(s) to be exported [in] filename output file name [in] gaid_template template for the output file, if provided the grid_id information stored in the volgrid6d objects will be ignored [in] categoryappend append this suffix to log4fortran namespace category Definizione alla linea 1606 del file volgrid6d_class.F90. coord_3d_in(:,:,spos) ELSEWHERE coord_3d_in(:,:,ilevel) = rmiss END WHERE ENDDO ENDIF ENDIF ENDIF CALL volgrid_get_vol_3d(volgrid6d_in, itime, itimerange, ivar, & voldatiin, zlist) IF (ASSOCIATED(volgrid6d_out%voldati)) & ! improve!!!! CALL volgrid_get_vol_3d(volgrid6d_out, itime, itimerange, ivar, & voldatiout) IF (c_e(lvar_coord_vol)) THEN ! this is a vertint case, zlist is useless CALL compute(this, voldatiin, voldatiout, var=convert(volgrid6d_in%var(ivar)), & coord_3d_in=coord_3d_in(:,:,levshift+1:levshift+levused)) ! subset coord_3d_in ELSE CALL compute(this, voldatiin, voldatiout, var=convert(volgrid6d_in%var(ivar)), zlist=zlist) ENDIF CALL volgrid_set_vol_3d(volgrid6d_out, itime, itimerange, ivar, & voldatiout) ENDDO ENDDO ENDDO IF (c_e(lvar_coord_vol)) THEN DEALLOCATE(coord_3d_in) ENDIF IF (.NOT.ASSOCIATED(volgrid6d_in%voldati)) THEN DEALLOCATE(voldatiin) ENDIF IF (.NOT.ASSOCIATED(volgrid6d_out%voldati)) THEN DEALLOCATE(voldatiout) ENDIF