|
◆ 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 1017 del file grid_transform_class.F90.
1020 CALL l4f_category_log(this%category, l4f_error, &
1021 'grid_transform_levtype_levtype_init: automatic generation of output levels &
1022 &available only for hybrid levels')
1026 ELSE IF (.NOT.c_e(trans%vertint%input_levtype%level2) .AND. &
1027 c_e(trans%vertint%output_levtype%level2)) THEN
1028 ALLOCATE(this%output_level_auto(inused-1))
1029 IF (trans%vertint%output_levtype%level1 == 105 .OR. &
1030 trans%vertint%output_levtype%level1 == 150) THEN
1031 CALL l4f_category_log(this%category,l4f_info, &
1032 'grid_transform_levtype_levtype_init: autogenerating '//t2c(inused
1033 // '/'//t2c(iend-istart)// ' output levels (h->f)')
1034 DO i = istart, iend - 1
|