da_module_define.f90

1 
2 module da_record_header
3 
4    implicit none
5 
6    type big_record_header
7       ! integer(kind=4), dimension(50,20) :: bhi
8       ! real(kind=4),    dimension(20,20) :: bhr
9       integer, dimension(50,20) :: bhi
10       real,    dimension(20,20) :: bhr
11       character(80),   dimension(50,20) :: bhic
12       character(80),   dimension(20,20) :: bhrc
13    end type big_record_header
14 
15    type sub_record_header   
16       ! JRB 
17       ! integer(kind=4) :: ndim
18       integer :: ndim
19 
20       ! JRB   
21       ! integer(kind=4), dimension(4) :: start_index, end_index
22       integer, dimension(4) :: start_index, end_index
23 
24       ! JRB   
25       ! real(kind=4)                  :: current_time
26       real                  :: current_time
27 
28       character(len= 4) :: staggering, ordering
29       character(len= 8) :: char_date
30       character(len= 9) :: name
31       character(len=24) :: current_date
32       character(len=25) :: units
33       character(len=46) :: description
34    end type sub_record_header
35 
36    type (big_record_header) :: big_header
37    type (sub_record_header) :: sub_header
38 
39 end module da_record_header
40 
41 
42 module da_color_table
43 
44    implicit none
45 
46    integer, parameter :: black = 0, &
47                          white = 1, &
48                            red = 2, &
49                          green = 3, &
50                           blue = 4, &
51                         violet = 5, &
52                          cyran = 6, &
53                        magenta = 7, &
54                       freshred = 8, &
55                            tan = 9, &
56                         yellow = 10, &
57                           gray = 11
58 
59 end module da_color_table
60 
61 
62 module da_plot_parameters
63 
64    implicit none
65 
66    integer, parameter :: solid_line = 65535, &    ! PATTERN = 1111111111111111
67                          thick_dash = 21845, &    ! PATTERN = 0101010101010101
68                           thin_dash =  3855, &    ! PATTERN = 0000111100001111
69                          solid_like = 31710       ! PATTERN = 0111101111011110
70 
71    real, parameter    :: xfb = 0.10, &
72                          xfe = 0.90, &
73                          yfb = 0.10, &
74                          yfe = 0.90
75 
76 end module da_plot_parameters
77