libsim  Versione 7.2.4

◆ 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 1001 del file grid_transform_class.F90.

1002 #ifdef DEBUG
1003  CALL l4f_category_log(this%category, l4f_debug, &
1004  'vertint: equal input and output level types '// &
1005  t2c(trans%vertint%input_levtype%level1))
1006 #endif
1007 
1008  IF (SIZE(lev_out) > 0) THEN ! output level list provided
1009  ALLOCATE(mask_out(SIZE(lev_out)), coord_out(SIZE(lev_out)))
1010  mask_out(:) = (lev_out(:)%level1 == trans%vertint%output_levtype%level1) .AND. &
1011  (lev_out(:)%level2 == trans%vertint%output_levtype%level2)
1012  CALL make_vert_coord(lev_out, mask_out, coord_out, dolog)
1013 
1014  ELSE ! output level list not provided, try to autogenerate
1015  IF (c_e(trans%vertint%input_levtype%level2) .AND. &
1016  .NOT.c_e(trans%vertint%output_levtype%level2)) THEN ! full -> half
1017  IF (trans%vertint%output_levtype%level1 == 105 .OR. &
1018  trans%vertint%output_levtype%level1 == 150) THEN
1019  ALLOCATE(this%output_level_auto(inused-1))
1020  CALL l4f_category_log(this%category,l4f_info, &
1021  'grid_transform_levtype_levtype_init: autogenerating '//t2c(inused-1) &
1022  //'/'//t2c(iend-istart)//' output levels (f->h)')
1023  DO i = istart, iend - 1
1024  CALL init(this%output_level_auto(i-istart+1), &

Generated with Doxygen.