grid_transform_delete transform_delete

grid_transform_delete() subroutine grid_transform_delete ( type(grid_transform), intent(inout)  this ) 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 3050 del file grid_transform_class.F90. 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() RETURN ENDIF IF (outnx /= this%outnx .OR. outny /= this%outny) THEN CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation") CALL l4f_category_log(this%category,l4f_error,"inconsistent output shape: "//& t2c(this%outnx)//","//t2c(this%outny)//" /= "//& t2c(outnx)//","//t2c(outny)) CALL raise_error() RETURN