wrfv2_fire/var/da/da_ssmi/da_read_ssmi_real_array.inc

   1 subroutine da_read_obs_ssmi_real_array(aa,nn,i0,i_step)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: TBD
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    integer, intent(in)  :: nn, i0, i_step
  10    real   , intent(out) :: aa(:)
  11
  12    integer :: i, ii
  13
  14    if (trace_use_frequent) call da_trace_entry("da_read_obs_ssmi_real_array")
  15
  16    do i = 1, nn
  17       ii = i_step*(i-1) + i0
  18       read (unit=char_ned (ii:ii+8),fmt='((f7.2,2X))') aa(i)
  19    end do
  20
  21    if (trace_use_frequent) call da_trace_exit("da_read_obs_ssmi_real_array")
  22
  23 end subroutine da_read_obs_ssmi_real_array
  24
  25