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

v7d_volgrid6d_transform() subroutine volgrid6d_class::v7d_volgrid6d_transform ( type(transform_def), intent(in)  this, type(griddim_def), intent(in), optional  griddim, type(vol7d), intent(inout)  vol7d_in, type(volgrid6d), intent(out)  volgrid6d_out, character(len=*), intent(in), optional  networkname, type(grid_id), intent(in), optional  gaid_template, character(len=*), intent(in), optional  categoryappend  ) private Performs the specified abstract transformation on the data provided. The abstract transformation is specified by this parameter; the corresponding specifical transformation (grid_transform object) is created and destroyed internally. The output transformed object is created internally and it does not require preliminary initialisation. Parametri [in] this object specifying the abstract transformation [in] griddim griddim specifying the output grid (required by most transformation types) [in,out] vol7d_in object to be transformed, it is not modified, despite the INTENT(inout) [out] volgrid6d_out transformed object, it does not require initialisation [in] networkname select the network to be processed from the vol7d input object, default the first network [in] gaid_template the template (typically grib_api) to be associated with output data, it also helps in improving variable conversion [in] categoryappend append this suffix to log4fortran namespace category Definizione alla linea 2625 del file volgrid6d_class.F90. var_coord_in = -1 IF (PRESENT(vol7d_coord_in)) THEN IF (ASSOCIATED(vol7d_coord_in%voldatir) .AND. & ASSOCIATED(vol7d_coord_in%dativar%r)) THEN ! strictly 1 time, 1 timerange and 1 network IF (SIZE(vol7d_coord_in%voldatir,2) /= 1 .OR. & SIZE(vol7d_coord_in%voldatir,4) /= 1 .OR. & SIZE(vol7d_coord_in%voldatir,6) /= 1) THEN CALL l4f_log(l4f_error, & 'volume providing constant input vertical coordinate must have & &only 1 time, 1 timerange and 1 network') CALL raise_error() RETURN ENDIF ! search for variable providing vertical coordinate CALL get_val(this, output_levtype=output_levtype) vcoord_var = vol7d_var_new(vol7d_level_to_var(output_levtype)) IF (.NOT.c_e(vcoord_var)) THEN CALL l4f_log(l4f_error, & 'requested output level type '//t2c(output_levtype%level1)// & ' does not correspond to any known physical variable for & &providing vertical coordinate') CALL raise_error() RETURN ENDIF var_coord_in = index(vol7d_coord_in%dativar%r, vcoord_var) IF (var_coord_in <= 0) THEN CALL l4f_log(l4f_error, & 'volume providing constant input vertical coordinate contains no & &real variables matching output level type '//t2c(output_levtype%level1)) CALL raise_error() RETURN ENDIF CALL l4f_log(l4f_info, & 'Coordinate for vertint found in coord volume at position '// & t2c(var_coord_in)) ! check vertical coordinate system CALL get_val(this, input_levtype=input_levtype) mask_in = & ! implicit allocation (vol7d_coord_in%level(:)%level1 == input_levtype%level1) .AND. & (vol7d_coord_in%level(:)%level2 == input_levtype%level2) ulstart = firsttrue(mask_in) ulend = lasttrue(mask_in) IF (ulstart == 0 .OR. ulend == 0) THEN CALL l4f_log(l4f_error, & 'coordinate file does not contain levels of type '// & t2c(input_levtype%level1)//'/'//t2c(input_levtype%level2)// & ' specified for input data')