|
◆ 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 1031 del file grid_transform_class.F90.
1034 ELSE IF (.NOT.c_e(trans%vertint%input_levtype%level2) .AND. & 1035 c_e(trans%vertint%output_levtype%level2)) THEN 1036 ALLOCATE(this%output_level_auto(inused-1)) 1037 IF (trans%vertint%output_levtype%level1 == 105 .OR. & 1038 trans%vertint%output_levtype%level1 == 150) THEN 1039 CALL l4f_category_log(this%category,l4f_info, & 1040 'grid_transform_levtype_levtype_init: autogenerating '//t2c(inused-1) & 1041 // '/'//t2c(iend-istart)// ' output levels (h->f)') 1042 DO i = istart, iend - 1 1043 CALL init(this%output_level_auto(i-istart+1), trans%vertint%input_levtype%level1, & 1044 lev_in(i)%l1, trans%vertint%input_levtype%level1, &
|