grid_transform_c_e grid_transform_compute grid_transform_delete grid_transform_get_val grid_transform_grid_vol7d_init grid_transform_init grid_transform_levtype_levtype_init grid_transform_v7d_grid_compute grid_transform_vol7d_grid_init grid_transform_vol7d_vol7d_init interval_info_new transform_delete transform_get_val transform_init

transform_delete() subroutine grid_transform_class::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] this transformation object Definizione alla linea 1003 del file grid_transform_class.F90. #ifdef DEBUG CALL l4f_category_log(this%category, l4f_debug, & 'vertint: equal input and output level types '// & t2c(trans%vertint%input_levtype%level1)) #endif IF (SIZE(lev_out) > 0) THEN ! output level list provided ALLOCATE(mask_out(SIZE(lev_out)), coord_out(SIZE(lev_out))) mask_out(:) = (lev_out(:)%level1 == trans%vertint%output_levtype%level1) .AND. & (lev_out(:)%level2 == trans%vertint%output_levtype%level2) CALL make_vert_coord(lev_out, mask_out, coord_out, dolog) ELSE ! output level list not provided, try to autogenerate IF (c_e(trans%vertint%input_levtype%level2) .AND. & .NOT.c_e(trans%vertint%output_levtype%level2)) THEN ! full -> half IF (trans%vertint%output_levtype%level1 == 105 .OR. & trans%vertint%output_levtype%level1 == 150) THEN ALLOCATE(this%output_level_auto(inused-1)) CALL l4f_category_log(this%category,l4f_info, & 'grid_transform_levtype_levtype_init: autogenerating '//t2c(inused-1) & //'/'//t2c(iend-istart)//' output levels (f->h)') DO i = istart, iend - 1 CALL init(this%output_level_auto(i-istart+1), &