libsim  Versione6.3.0

◆ transform_delete()

subroutine transform_delete ( type(transform_def), intent(inout)  this)

Destructor of tranform_def object.

It releases any memory and data associated to the transform_def object this, the logger category will be deleted too.

Parametri
[in,out]thistransformation object

Definizione alla linea 992 del file grid_transform_class.F90.

992  IF (trans%vertint%output_levtype%level1 == 105 .OR. &
993  trans%vertint%output_levtype%level1 == 150) THEN
994  ALLOCATE(this%output_level_auto(inused-1))
995  CALL l4f_category_log(this%category,l4f_info, &
996  'grid_transform_levtype_levtype_init: autogenerating '//t2c(inused-1) &
997  //'/'//t2c(iend-istart)//' output levels (f->h)')
998  DO i = istart, iend - 1
999  CALL init(this%output_level_auto(i-istart+1), &
1000  trans%vertint%input_levtype%level1, lev_in(i)%l2)
1001  ENDDO
1002  ELSE
1003  CALL l4f_category_log(this%category, l4f_error, &
1004  'grid_transform_levtype_levtype_init: automatic generation of output levels &
1005  &available only for hybrid levels')
1006  CALL raise_error()
1007  RETURN
1008  ENDIF
1009  ELSE IF (.NOT.c_e(trans%vertint%input_levtype%level2) .AND. &
1010  c_e(trans%vertint%output_levtype%level2)) THEN ! half -> full
1011  ALLOCATE(this%output_level_auto(inused-1))
1012  IF (trans%vertint%output_levtype%level1 == 105 .OR. &
1013  trans%vertint%output_levtype%level1 == 150) THEN
1014  CALL l4f_category_log(this%category,l4f_info, &
Functions that return a trimmed CHARACTER representation of the input variable.
Costruttori per le classi datetime e timedelta.

Generated with Doxygen.