da_crtm.f90

1 module da_crtm
2 
3    !---------------------------------------------------------------------------
4    ! Purpose: module for CRTM radiance data assimilation. 
5    !---------------------------------------------------------------------------
6 
7    use module_domain, only : xpose_type, x_type, xb_type
8 #ifdef CRTM
9    use module_radiance, only : CRTM_RTSolution_type,CRTM_ChannelInfo_type, &
10       CRTM_Atmosphere_type, CRTM_Surface_type,CRTM_GeometryInfo_type, &
11       CRTM_Adjoint,CRTM_Forward,CRTM_K_Matrix,CRTM_Tangent_Linear, &
12       CRTM_Allocate_Atmosphere,H2O_ID,GRAUPEL_CLOUD,ICE_CLOUD,HAIL_CLOUD, &
13       INVALID_WMO_SENSOR_ID,NEW_SNOW,rain_cloud,snow_cloud,O3_ID, GRASS_SOIL, &
14       WMO_AMSRE, WATER_CLOUD, WMO_AMSUB, WMO_AMSUA,WMO_SSMI, Sensor_Descriptor, &
15       crtm_destroy_atmosphere,crtm_set_channelinfo,crtm_sensor_name, &
16       crtm_allocate_surface,crtm_destroy_surface,crtm_assign_atmosphere, &
17       crtm_assign_surface,crtm_zero_surface,CRTM_Zero_Atmosphere, satinfo, &
18       time_slots,crtm_platform_name, crtm_init,inst_name,platform_name, &
19       rttov_inst_name,rttov_platform_name
20 #endif
21 
22    use da_control, only : trace_use, crtm_cloud, gravity,stdout, biascorr, &
23       biasprep, qc_rad,missing_r,rtminit_sensor,rtminit_nsensor, filename_len, &
24       use_error_factor_rad,read_biascoef, analysis_date,time_window_max, &
25       time_window_min,print_detail_obs,num_fgat_time,rtminit_platform, &
26       rtminit_satid, global
27    use da_define_structures, only : y_type, ob_type
28    use da_interpolation, only : da_interp_lin_2d,da_interp_lin_2d_adj
29    use da_radiance1, only : da_biasprep,da_detsurtyp,da_biascorr, &
30       da_qc_rad, da_qc_crtm, da_get_time_slots,da_biasprep,da_read_biascoef
31 
32    use da_reporting, only : da_error,message
33    use da_tools1, only : da_free_unit, da_get_unit
34    use da_tracing, only : da_trace_entry, da_trace_exit
35 
36 contains
37 
38 #include "da_transform_xtoy_crtmk.inc"
39 #include "da_transform_xtoy_crtmk_f.inc"
40 #include "da_transform_xtoy_crtmk_f_adj.inc"
41 #include "da_transform_xtoy_crtmk_adj.inc"
42 #include "da_transform_xtoy_crtm.inc"
43 #include "da_transform_xtoy_crtm_adj.inc"
44 #include "da_get_innov_vector_crtmk.inc"
45 #include "da_get_innov_vector_crtm.inc"
46 #include "da_crtm_tl.inc"
47 #include "da_crtm_k.inc"
48 #include "da_crtm_direct.inc"
49 #include "da_crtm_ad.inc"
50 #include "da_crtm_init.inc"
51 #include "da_crtm_sensor_descriptor.inc"
52 
53 end module da_crtm
54