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_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 1595 del file volgrid6d_class.F90. NULLIFY(coord_3d_in) CALL volgrid_get_vol_3d(volgrid6d_in, itime, itimerange, lvar_coord_vol, & coord_3d_in) IF (c_e(spos)) THEN ! compute difference wrt surface coordinate IF (spos == 0) THEN ! error condition, set all to missing and goodnight coord_3d_in(:,:,levshift+1:levshift+levused) = rmiss ELSE DO ilevel = levshift+1, levshift+levused WHERE(c_e(coord_3d_in(:,:,ilevel)) .AND. c_e(coord_3d_in(:,:,spos))) coord_3d_in(:,:,ilevel) = coord_3d_in(:,:,ilevel) - & 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