da_gen_be.f90

1 module da_gen_be
2 
3    !---------------------------------------------------------------------------- 
4    ! Purpose: Collection of routines required by gen_be BE stats calculation 
5    ! code.
6    !----------------------------------------------------------------------------
7 
8    use da_control, only : stdout,vertical_ip, t0,es_beta,es_alpha, &
9       es_gamma,kappa,base_pres,rd_over_rv,rd_over_rv1,t_kelvin, gravity, &
10       filename_len,vertical_ip_0, trace_use, trace_use_dull
11    use da_reporting, only : da_error, message
12    use da_tools_serial, only : da_get_unit, da_free_unit, da_array_print
13 
14    implicit none
15 
16 contains
17 
18 ! Stubs to avoid picking up vast ammounts of unnecessary stuff from wrfvar
19 
20 subroutine da_trace_entry(name, message, messages, maxnocalls)    
21    implicit none
22    character (len=*),           intent(in) :: name         
23    character (len=*), optional, intent(in) :: message      
24    character (len=*), optional, intent(in) :: messages(:)  
25    integer, optional,           intent(in) :: maxnocalls   
26 end subroutine da_trace_entry
27 
28 subroutine da_trace_exit(name, message, messages, maxnocalls)
29    implicit none
30    character (len=*), intent(in)           :: name         
31    character (len=*), optional, intent(in) :: message      
32    character (len=*), optional, intent(in) :: messages(:)  
33    integer, optional, intent(in)           :: maxnocalls  
34 end subroutine da_trace_exit
35 
36 #include "da_create_bins.inc"
37 #include "da_filter_regcoeffs.inc"
38 #include "da_get_field.inc"
39 #include "da_get_height.inc"
40 #include "da_get_trh.inc"
41 #include "da_print_be_stats_h_global.inc"
42 #include "da_print_be_stats_h_regional.inc"
43 #include "da_print_be_stats_p.inc"
44 #include "da_print_be_stats_v.inc"
45 #include "da_readwrite_be_stage2.inc"
46 #include "da_readwrite_be_stage3.inc"
47 #include "da_readwrite_be_stage4.inc"
48 #include "da_stage0_initialize.inc"
49 
50    ! Files from other modules:
51 #include "da_transform_vptovv.inc"
52 #include "da_eof_decomposition.inc"
53 #include "da_eof_decomposition_test.inc"
54 #include "da_perform_2drf.inc"
55 #include "da_recursive_filter_1d.inc"
56 
57 end module da_gen_be
58 
59 subroutine wrf_abort
60    stop
61 end subroutine wrf_abort