da_deallocate_global_synop.inc

1 subroutine da_deallocate_global_synop(iv_glob, re_glob, jo_grad_y_glob)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    ! task-global objects
10    type (ob_type), intent(inout) :: iv_glob        ! Innovation vector
11    type (y_type),  intent(inout) :: re_glob        ! residual vector
12    type (y_type),  intent(inout) :: jo_grad_y_glob ! Grad_y(Jo)
13    ! Local declarations
14    deallocate(iv_glob%synop)
15    deallocate(re_glob%synop)
16    deallocate(jo_grad_y_glob%synop)
17 
18 end subroutine da_deallocate_global_synop
19 
20