da_wrfvar_top.f90

1 module da_wrfvar_top
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: Defines top-level wrfvar_init(), wrfvar_run(), and 
5    ! wrfvar_finalize() routines.  
6    !-----------------------------------------------------------------------
7 
8    use module_machine
9    use module_domain
10    use module_integrate
11    use module_configure
12 
13    use module_timing
14    use da_tracing
15    use da_tools
16    use da_radiance
17    use da_control
18    use da_define_structures
19    use da_setup_structures
20    use da_test
21    use da_minimisation
22    use da_wrf_interfaces
23 
24 #ifdef DM_PARALLEL
25    use module_dm
26 #endif
27 
28    use da_wrfvar_io
29 
30    implicit none
31 
32    real    :: time
33 
34    integer :: loop, levels_to_process
35 
36    type (domain) , pointer :: keep_grid, grid_ptr, null_domain
37    type (grid_config_rec_type), save :: config_flags
38    integer                 :: number_at_same_level
39    integer                 :: time_step_begin_restart
40 
41    integer :: domain_id , fid , oid , idum1 , idum2
42 
43 #ifdef DM_PARALLEL
44    integer                 :: nbytes
45    integer, parameter      :: configbuflen = 4* CONFIG_BUF_LEN
46    integer                 :: configbuf( configbuflen )
47 #endif
48 
49    character (LEN=80)      :: rstname
50 
51 contains
52 
53 #include "da_wrfvar_init1.inc"
54 #include "da_wrfvar_init2.inc"
55 #include "da_wrfvar_run.inc"
56 #include "da_wrfvar_interface.inc"
57 
58 end module da_wrfvar_top