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