grid_transform_c_e grid_transform_compute grid_transform_delete grid_transform_get_val grid_transform_grid_vol7d_init grid_transform_init grid_transform_levtype_levtype_init grid_transform_v7d_grid_compute grid_transform_vol7d_grid_init grid_transform_vol7d_vol7d_init interval_info_new transform_delete transform_get_val transform_init

transform_get_val() subroutine grid_transform_class::transform_get_val ( type(transform_def), intent(in)  this, integer, intent(out), optional  time_definition, character(len=*), intent(out), optional  trans_type, character(len=*), intent(out), optional  sub_type, type(vol7d_level), intent(out), optional  input_levtype, type(vol7d_level), intent(out), optional  output_levtype  ) private Method for returning the contents of the object. Parametri [in] this object to examine [out] time_definition 0=time is reference time, 1=time is validity time [out] trans_type type of transformation [out] sub_type subtype of transformation [out] input_levtype type of vertical level of input data (only type of first and second surface are used, level values are ignored) [out] output_levtype type of vertical level of output data (only type of first and second surface are used, level values are ignored) Definizione alla linea 1032 del file grid_transform_class.F90. CALL raise_error() RETURN ENDIF ELSE IF (.NOT.c_e(trans%vertint%input_levtype%level2) .AND. & c_e(trans%vertint%output_levtype%level2)) THEN ! half -> full ALLOCATE(this%output_level_auto(inused-1)) IF (trans%vertint%output_levtype%level1 == 105 .OR. & trans%vertint%output_levtype%level1 == 150) THEN CALL l4f_category_log(this%category,l4f_info, & 'grid_transform_levtype_levtype_init: autogenerating '//t2c(inused-1) & //'/'//t2c(iend-istart)//' output levels (h->f)') DO i = istart, iend - 1 CALL init(this%output_level_auto(i-istart+1), trans%vertint%input_levtype%level1, & lev_in(i)%l1, trans%vertint%input_levtype%level1, & lev_in(i)%l1+1) ENDDO