var/da/da_radiance/da_write_biasprep.inc

   1 subroutine da_write_biasprep(radbias)
   2
   3    implicit none
   4
   5    type (bias_type), intent(in)  :: radbias
   6
   7    if (trace_use) call da_trace_entry("da_write_biasprep")
   8
   9       write(unit=biasprep_unit) radbias%nchan,radbias%npred
  10       write(unit=biasprep_unit) radbias%platform_id , &
  11                                 radbias%satellite_id, &
  12                                 radbias%sensor_id,    &
  13                                 radbias%year,radbias%month,&
  14                                 radbias%day, radbias%hour, &
  15                                 radbias%min, radbias%sec,  &
  16                                 radbias%scanline, &
  17                                 radbias%scanpos,  &
  18                                 radbias%landmask, &
  19                                 radbias%elevation,&
  20                                 radbias%lat,radbias%lon, &
  21                                 radbias%ps,radbias%t2m, &
  22                                 radbias%q2m,radbias%tsk, &
  23                                 radbias%tb(1:radbias%nchan), &
  24                                 radbias%omb(1:radbias%nchan), &
  25                                 radbias%bias(1:radbias%nchan), &
  26                                 radbias%pred(1:radbias%npred), &
  27                                 radbias%qc_flag(1:radbias%nchan), &
  28                                 radbias%cloud_flag(1:radbias%nchan), &
  29                                 radbias%surf_flag, radbias%clwp
  30
  31    if (trace_use) call da_trace_exit("da_write_biasprep")
  32
  33 end subroutine da_write_biasprep
  34