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