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, ts0,es_beta,es_alpha, &
9       es_gamma,kappa,ps0_inv,rd_over_rv,rd_over_rv1,t_kelvin, gravity, &
10       da_array_print, filename_len
11    use da_reporting, only : da_error, message
12    use da_tools1, only : da_get_unit, da_free_unit
13 
14    implicit none
15 
16 contains
17 
18 #include "da_create_bins.inc"
19 #include "da_filter_regcoeffs.inc"
20 #include "da_get_field.inc"
21 #include "da_get_height.inc"
22 #include "da_get_trh.inc"
23 #include "da_print_be_stats_h_global.inc"
24 #include "da_print_be_stats_h_regional.inc"
25 #include "da_print_be_stats_p.inc"
26 #include "da_print_be_stats_v.inc"
27 #include "da_readwrite_be_stage2.inc"
28 #include "da_readwrite_be_stage3.inc"
29 #include "da_readwrite_be_stage4.inc"
30 #include "da_stage0_initialize.inc"
31 
32    ! Files from other modules:
33 #include "da_transform_vptovv.inc"
34 #include "da_eof_decomposition.inc"
35 #include "da_eof_decomposition_test.inc"
36 #include "da_perform_2drf.inc"
37 #include "da_recursive_filter_1d.inc"
38 
39 end module da_gen_be
40 
41 subroutine wrf_abort
42    stop
43 end subroutine wrf_abort