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

grid_transform_delete() subroutine grid_transform_delete ( type(grid_transform), intent(inout) this ) private Destructor of grid_tranform object. It releases any memory and data associated to grid_transform object this, the logger category will be deleted too. Parametri [in,out] this grid_transform object Definizione alla linea 3039 del file grid_transform_class.F90. lzlist(:) = .true. ENDIF ! check size of field_in, field_out IF (this%trans%trans_type == 'vertint') THEN ! vertical interpolation IF (innz /= this%innz) THEN CALL l4f_category_log(this%category,l4f_error,"vertical interpolation") CALL l4f_category_log(this%category,l4f_error,"inconsistent input shape: "//& t2c(this%innz)//" /= "//t2c(innz)) CALL raise_error() RETURN ENDIF IF (outnz /= this%outnz) THEN CALL l4f_category_log(this%category,l4f_error,"vertical interpolation") CALL l4f_category_log(this%category,l4f_error,"inconsistent output shape: "//& t2c(this%outnz)//" /= "//t2c(outnz)) CALL raise_error() RETURN ENDIF IF (innx /= outnx .OR. inny /= outny) THEN CALL l4f_category_log(this%category,l4f_error,"vertical interpolation") CALL l4f_category_log(this%category,l4f_error,"inconsistent hor. sizes: "//& t2c(innx)//","//t2c(inny)//" /= "//& t2c(outnx)//","//t2c(outny)) CALL raise_error() RETURN ENDIF ELSE ! horizontal interpolation IF (innx /= this%innx .OR. inny /= this%inny) THEN CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation") CALL l4f_category_log(this%category,l4f_error,"inconsistent input shape: "//& t2c(this%innx)//","//t2c(this%inny)//" /= "//& t2c(innx)//","//t2c(inny)) CALL raise_error()