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    type(iv_type), intent(inout) :: iv_glob        ! Innovation vector
10    type(y_type),  intent(inout) :: re_glob        ! residual vector
11    type(y_type),  intent(inout) :: jo_grad_y_glob ! Grad_y(Jo)
12 
13    integer :: n
14 
15    if (trace_use_dull) call da_trace_entry("da_deallocate_global_sound")
16 
17    deallocate(iv_glob%sound)
18    do n=1,size(re_glob%sound)
19       deallocate (re_glob%sound(n)%u)
20       deallocate (re_glob%sound(n)%v)
21       deallocate (re_glob%sound(n)%t)
22       deallocate (re_glob%sound(n)%q)
23    end do
24    deallocate(re_glob%sound)
25    do n=1,size(jo_grad_y_glob%sound)
26       deallocate (jo_grad_y_glob%sound(n)%u)
27       deallocate (jo_grad_y_glob%sound(n)%v)
28       deallocate (jo_grad_y_glob%sound(n)%t)
29       deallocate (jo_grad_y_glob%sound(n)%q)
30    end do
31    deallocate(jo_grad_y_glob%sound)
32 
33    if (trace_use_dull) call da_trace_exit("da_deallocate_global_sound")
34 
35 end subroutine da_deallocate_global_sound
36 
37