|
◆ v7d_volgrid6d_transform()
subroutine 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 |
|
) |
| |
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 2567 del file volgrid6d_class.F90.
2568 IF ( PRESENT(vol7d_coord_in)) THEN 2569 IF ( ASSOCIATED(vol7d_coord_in%voldatir) .AND. & 2570 ASSOCIATED(vol7d_coord_in%dativar%r)) THEN 2573 IF ( SIZE(vol7d_coord_in%voldatir,2) /= 1 .OR. & 2574 SIZE(vol7d_coord_in%voldatir,4) /= 1 .OR. & 2575 SIZE(vol7d_coord_in%voldatir,6) /= 1) THEN 2576 CALL l4f_log(l4f_error, & 2577 'volume providing constant input vertical coordinate must have & 2578 &only 1 time, 1 timerange and 1 network') 2584 CALL get_val(this, output_levtype=output_levtype) 2585 vcoord_var = vol7d_var_new(vol7d_level_to_var(output_levtype)) 2586 IF (.NOT.c_e(vcoord_var)) THEN 2587 CALL l4f_log(l4f_error, & 2588 'requested output level type '//t2c(output_levtype%level1)// & 2589 ' does not correspond to any known physical variable for & 2590 &providing vertical coordinate') 2595 var_coord_in = index(vol7d_coord_in%dativar%r, vcoord_var) 2597 IF (var_coord_in <= 0) THEN 2598 CALL l4f_log(l4f_error, & 2599 'volume providing constant input vertical coordinate contains no & 2600 &real variables matching output level type '//t2c(output_levtype%level1)) 2604 CALL l4f_log(l4f_info, & 2605 'Coordinate for vertint found in coord volume at position '// & 2609 CALL get_val(this, input_levtype=input_levtype) 2611 (vol7d_coord_in%level(:)%level1 == input_levtype%level1) .AND. & 2612 (vol7d_coord_in%level(:)%level2 == input_levtype%level2) 2613 ulstart = firsttrue(mask_in) 2614 ulend = lasttrue(mask_in) 2615 IF (ulstart == 0 .OR. ulend == 0) THEN 2616 CALL l4f_log(l4f_error, & 2617 'coordinate file does not contain levels of type '// & 2618 t2c(input_levtype%level1)// '/'//t2c(input_levtype%level2)// & 2619 ' specified for input data')
|