da_crtm.f90

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