libsim  Versione 7.2.4

◆ 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]thisobject to examine
[out]time_definition0=time is reference time, 1=time is validity time
[out]trans_typetype of transformation
[out]sub_typesubtype of transformation
[out]input_levtypetype of vertical level of input data (only type of first and second surface are used, level values are ignored)
[out]output_levtypetype of vertical level of output data (only type of first and second surface are used, level values are ignored)

Definizione alla linea 1029 del file grid_transform_class.F90.

1031  CALL raise_error()
1032  RETURN
1033  ENDIF
1034  ELSE IF (.NOT.c_e(trans%vertint%input_levtype%level2) .AND. &
1035  c_e(trans%vertint%output_levtype%level2)) THEN ! half -> full
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, &
1045  lev_in(i)%l1+1)
1046  ENDDO

Generated with Doxygen.