libsim Versione 7.2.1

◆ transform_delete()

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

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

984 this%coord_3d_in = rmiss
985 END WHERE
986 ENDIF
987 ENDIF
988
989 this%valid = .true. ! warning, no check of subtype
990
991 ELSE
992! here we assume that valid levels are contiguous and ordered
993
994#ifdef DEBUG
995 CALL l4f_category_log(this%category, l4f_debug, &
996 'vertint: equal input and output level types '// &
997 t2c(trans%vertint%input_levtype%level1))
998#endif
999
1000 IF (SIZE(lev_out) > 0) THEN ! output level list provided
1001 ALLOCATE(mask_out(SIZE(lev_out)), coord_out(SIZE(lev_out)))
1002.AND. mask_out(:) = (lev_out(:)%level1 == trans%vertint%output_levtype%level1) &
1003 (lev_out(:)%level2 == trans%vertint%output_levtype%level2)
1004 CALL make_vert_coord(lev_out, mask_out, coord_out, dolog)
1005
1006 ELSE ! output level list not provided, try to autogenerate

Generated with Doxygen.