-
Notifications
You must be signed in to change notification settings - Fork 0
/
blkdta.F
109 lines (108 loc) · 2.71 KB
/
blkdta.F
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
block data blkdta
#include "param.h"
#include "accel.h"
#include "coord.h"
#include "cprnts.h"
#include "csbc.h"
#include "csnap.h"
#include "emode.h"
#include "index.h"
#include "iounit.h"
#ifdef isopycmix
# include "isopyc.h"
#endif
#include "mw.h"
#include "scalar.h"
#include "switch.h"
#include "stab.h"
#include "state.h"
#include "tmngr.h"
#include "calendar.h"
c
c start data initializations
c
#include "dncoef.h"
c
c initialize how often diagnostics are to be written
c
data glenint /-365.25/
data prxzint /-365.25/
data extint /-365.25/
data vmsfint /-365.25/
data gyreint /-365.25/
data dspint /-365.25/
data stabint /-365.25/
data zmbcint /-365.25/
data trajint /-365.25/
c
data tsiint /1.0/
data cmixint /-365.25/
data exconvint /-365.25/
data tavgint /-365.25/
data itavg /.true./
data tmbint /-365.25/
data itmb /.true./
data trmbint /-365.25/
data itrmb /.true./
data snapint /-365.25/
data timavgint /-365.25/
data xbtint /-365.25/
c
c default starting and ending latitudes (degrees) for snapshots.
c also depth range from surface (centimeters).
c
data snapls /-90.0/
data snaple /90.0/
data snapde /5000.0e2/
c
c default starting & ending coordinates for diagnostic matrix prints
c (lats and lons in degrees, depths in cm)
c see "cprnts.h"
c
data prlat /-60.0, 0.0, 27.0, 55.0, 6*100.0/
data prslon /180.0, 180.0, 180.0, 180.0, 6*0.0/
data prelon /250.0, 250.0, 250.0, 250.0, 6*0.0/
data prsdpt /nlatpr*0.0/
data predpt /nlatpr*6000.e2/
data slatxy, elatxy, slonxy, elonxy /-90.0, 90.0, 3.0, 357.0/
c
c default some control #`s for how diagnostics are to be written
c (see "iounit.h" for explanation)
c
data restrt /.false./
data iotavg /-1/
data iotmb /-1/
data ioglen /-1/
data iotrmb /-1/
data iogyre /-1/
data iovmsf /-1/
data ioprxz /-1/
data ioext /-1/
data iodsp /-1/
data iotsi /-1/
data iozmbc /-1/
data ioxbt /-1/
c
c
#if defined firfil || defined fourfil
c
c set latitudes used in filtering of tracer and velocity fields
c see "index.h"
c
data rjfrst /-81.0/
data rjft0, rjft1, rjft2 /-51.0, -57.0, 57.0/
data rjfu0, rjfu1, rjfu2 /-54.0, -60.0, 60.0/
c
#endif
#ifdef firfil
c "numflt" specifies the number of filter applications to use
c for the tracers
c "numflu" specifies the number of filter applications to use
c for velocities and vorticity
c
data numflt /jmtfil*1/
data numflu /jmtfil*1/
c
#endif
c
end