libsim  Versione7.2.3

◆ 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]thisobject specifying the abstract transformation
[in]griddimgriddim specifying the output grid (required by most transformation types)
[in,out]vol7d_inobject to be transformed, it is not modified, despite the INTENT(inout)
[out]volgrid6d_outtransformed object, it does not require initialisation
[in]networknameselect the network to be processed from the vol7d input object, default the first network
[in]gaid_templatethe template (typically grib_api) to be associated with output data, it also helps in improving variable conversion
[in]categoryappendappend this suffix to log4fortran namespace category

Definizione alla linea 2567 del file volgrid6d_class.F90.

2567  var_coord_in = -1
2568  IF (PRESENT(vol7d_coord_in)) THEN
2569  IF (ASSOCIATED(vol7d_coord_in%voldatir) .AND. &
2570  ASSOCIATED(vol7d_coord_in%dativar%r)) THEN
2571 
2572 ! strictly 1 time, 1 timerange and 1 network
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')
2579  CALL raise_error()
2580  RETURN
2581  ENDIF
2582 
2583 ! search for variable providing vertical coordinate
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')
2591  CALL raise_error()
2592  RETURN
2593  ENDIF
2594 
2595  var_coord_in = index(vol7d_coord_in%dativar%r, vcoord_var)
2596 
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))
2601  CALL raise_error()
2602  RETURN
2603  ENDIF
2604  CALL l4f_log(l4f_info, &
2605  'Coordinate for vertint found in coord volume at position '// &
2606  t2c(var_coord_in))
2607 
2608 ! check vertical coordinate system
2609  CALL get_val(this, input_levtype=input_levtype)
2610  mask_in = & ! implicit allocation
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')
Index method.

Generated with Doxygen.