var/da/da_define_structures/da_deallocate_y_chem_sfc.inc

   1 subroutine da_deallocate_y_chem_sfc (iv, y)
   2
   3    !---------------------------------------------------------------------------
   4    ! Purpose: Allocate arrays used in y and residual obs structures.
   5    !---------------------------------------------------------------------------
   6
   7    implicit none
   8
   9    type (iv_type), intent(in)    :: iv      ! Ob type input.
  10    type (y_type),  intent(inout) :: y       ! Residual type structure.
  11    integer                       :: ilocal
  12
  13    !---------------------------------------------------------------------------
  14    !  [1.0] Copy number of observations:
  15    !---------------------------------------------------------------------------
  16
  17    if (trace_use) call da_trace_entry("da_deallocate_y_chem_sfc")
  18
  19    y % nlocal(chemic_surf) = iv%info(chemic_surf)%nlocal
  20    y % ntotal(chemic_surf) = iv%info(chemic_surf)%ntotal
  21
  22   !---------------------------------------------------------------------------
  23   ! [2.0] Allocate:
  24   !---------------------------------------------------------------------------
  25
  26    if (y % nlocal(chemic_surf) > 0) then
  27       deallocate (y % chemic_surf)
  28    end if
  29
  30    if (trace_use) call da_trace_exit("da_deallocate_y_chem_sfc")
  31
  32 end subroutine da_deallocate_y_chem_sfc
  33
  34