var/da/da_define_structures/da_allocate_observations_chem_sfc.inc

   1 subroutine da_allocate_observations_chem_sfc (iv)
   2
   3    !---------------------------------------------------------------------------
   4    ! Purpose: Allocate components of observation structure.
   5    !---------------------------------------------------------------------------
   6
   7    implicit none
   8
   9    type (iv_type), intent(inout) :: iv     ! Observation structure.
  10
  11    integer :: i
  12
  13    if (trace_use) call da_trace_entry("da_allocate_observations_chem_sfc")
  14
  15    if (iv%info(chemic_surf)%nlocal > 0) allocate(iv%chemic_surf(1:iv%info(chemic_surf)%nlocal))
  16
  17    call da_allocate_obs_info(iv,chemic_surf)
  18
  19    if (trace_use) call da_trace_exit("da_allocate_observations_chem_sfc")
  20
  21 end subroutine da_allocate_observations_chem_sfc
  22
  23