updated top-level README and version_decl for V4.5 (#1847)
[WRF.git] / var / da / da_par_util / da_deallocate_global_synop.inc
blobbc8f6120b0f752202a6a7ef6189e346a360784af
1 subroutine da_deallocate_global_synop(iv_glob, re_glob, jo_grad_y_glob)
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
7    implicit none
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)
13    if (trace_use_dull) call da_trace_entry("da_deallocate_global_synop")
15    deallocate(iv_glob%synop)
16    deallocate(re_glob%synop)
17    deallocate(jo_grad_y_glob%synop)
19    if (trace_use_dull) call da_trace_exit("da_deallocate_global_synop")
21 end subroutine da_deallocate_global_synop