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