grid_transform_delete transform_delete

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] this transformation object Definizione alla linea 992 del file grid_transform_class.F90. this%coord_3d_in = rmiss END WHERE ENDIF ENDIF this%valid = .true. ! warning, no check of subtype ELSE ! here we assume that valid levels are contiguous and ordered #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))) .AND. mask_out(:) = (lev_out(:)%level1 == trans%vertint%output_levtype%level1) & (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