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

992 this%coord_3d_in = rmiss
993 END WHERE
994 ENDIF
995 ENDIF
996
997 this%valid = .true. ! warning, no check of subtype
998
999 ELSE
1000! here we assume that valid levels are contiguous and ordered
1001
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.AND. mask_out(:) = (lev_out(:)%level1 == trans%vertint%output_levtype%level1) &
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

Generated with Doxygen.