da_deallocate_global_sound.inc

1 subroutine da_deallocate_global_sound(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    integer :: n
15    deallocate(iv_glob%sound)
16    do n=1,size(re_glob%sound)
17       deallocate(re_glob%sound(n)%u, re_glob%sound(n)%v, &
18                   re_glob%sound(n)%t, re_glob%sound(n)%q)
19    end do
20    deallocate(re_glob%sound)
21    do n=1,size(jo_grad_y_glob%sound)
22       deallocate(jo_grad_y_glob%sound(n)%u, jo_grad_y_glob%sound(n)%v, &
23                   jo_grad_y_glob%sound(n)%t, jo_grad_y_glob%sound(n)%q)
24    end do
25    deallocate(jo_grad_y_glob%sound)
26 
27 end subroutine da_deallocate_global_sound
28 
29