libsim Versione 7.2.6
|
◆ volgrid6dv_v7d_transform()
Performs the specified abstract transformation on the arrays of 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. The transformation performed on each element of the input volgrid6d array object is merged into a single vol7d output object.
Definizione alla linea 2456 del file volgrid6d_class.F90. 2458
2459 CALL compute(grid_trans, vol7d_in, volgrid6d_out, networkname, gaid_template)
2460
2461 CALL vg6d_wind_rot(volgrid6d_out)
2462ELSE
2463! should log with grid_trans%category, but it is private
2464 CALL l4f_log(l4f_error, 'v7d_vg6d_transform: transformation not valid')
2465 CALL raise_error()
2466ENDIF
2467
2468CALL delete(grid_trans)
2469
2470END SUBROUTINE v7d_volgrid6d_transform
2471
2472
2473! Internal method for performing sparse point to sparse point computations
2474SUBROUTINE v7d_v7d_transform_compute(this, vol7d_in, vol7d_out, lev_out, &
2475 var_coord_vol)
2476TYPE(grid_transform),INTENT(in) :: this ! oggetto di trasformazione per grigliato
2477type(vol7d), INTENT(in) :: vol7d_in ! oggetto da trasformare
2478type(vol7d), INTENT(inout) :: vol7d_out ! oggetto trasformato
2479TYPE(vol7d_level),INTENT(in),OPTIONAL :: lev_out(:) ! vol7d_level object defining target vertical grid, for vertical interpolations
2480INTEGER,INTENT(in),OPTIONAL :: var_coord_vol ! index of variable defining vertical coordinate values in input volume
2481
2482INTEGER :: itime, itimerange, ilevel, ivar, inetwork, &
2483 levshift, levused, lvar_coord_vol, spos
|