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

vg6d_wind_unrot() subroutine vg6d_wind_unrot ( type(volgrid6d) this ) private Unrotate the wind components. It converts u and v components of vector quantities relative to the defined grid in the direction of increasing x and y coordinates to u and v components relative to easterly and notherly direction. The original fields are overwritten. Da fare Check and correct wind component flag (to be moved in griddim_def?) Parametri this object containing wind to be unrotated Definizione alla linea 3017 del file volgrid6d_class.F90. do igrid=1,ngrid call init(griddim_t) call get_val(this(igrid)%griddim,xmin=xmin_t, xmax=xmax_t, ymin=ymin_t, ymax=ymax_t,proj_type=type_t) step_lon_t=(xmax_t-xmin_t)/dble(this(igrid)%griddim%dim%nx-1) step_lat_t=(ymax_t-ymin_t)/dble(this(igrid)%griddim%dim%ny-1) do jgrid=1,ngrid ugrid=imiss vgrid=imiss tgrid=imiss #ifdef DEBUG