|
◆ transform_get_val()
subroutine 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 |
|
) |
| |
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 1023 del file grid_transform_class.F90.
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-1) & 1033 // '/'//t2c(iend-istart)// ' output levels (h->f)') 1034 DO i = istart, iend - 1 1035 CALL init(this%output_level_auto(i-istart+1), trans%vertint%input_levtype%level1, & 1036 lev_in(i)%l1, trans%vertint%input_levtype%level1, &
|