ROMS
Loading...
Searching...
No Matches
oyster_floats_def.h
Go to the documentation of this file.
1/*
2** git $id$
3*************************************************** hernan g. arango ***
4** copyright(c) 2002-2025 the roms group **
5** licensed under a mit/x style license **
6** see license_roms.md **
7************************************************************************
8** **
9** defines oyster floats model input parameters in output netcdf **
10** files. it is included in routine "def_info.F". **
11** **
12************************************************************************
13*/
14
15!
16! Define oyster float model (Dekshenieks et al. 1993, 1996, 1997;
17! Narvaez et al. 2012a,b).
18!
19 vinfo( 1)='Larvae_GR0'
20 vinfo( 2)='oyster larvae growth rate'
21 vinfo( 3)='micrometer day-1'
22 status=def_var(ng, model, ncid, varid, nf_type, &
23 & 1, (/0/), aval, vinfo, ncname, &
24 & setparaccess = .false.)
25 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
26
27 vinfo( 1)='Larvae_size0'
28 vinfo( 2)='oyster larvae size in terms of length'
29 vinfo( 3)='micrometer'
30 status=def_var(ng, model, ncid, varid, nf_type, &
31 & 1, (/0/), aval, vinfo, ncname, &
32 & setparaccess = .false.)
33 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
34
35 vinfo( 1)='food_supply'
36 vinfo( 2)='constant oyster larvae food supply'
37 vinfo( 3)='gram Carbon liter-1'
38 status=def_var(ng, model, ncid, varid, nf_type, &
39 & 1, (/0/), aval, vinfo, ncname, &
40 & setparaccess = .false.)
41 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
42
43 vinfo( 1)='settle_size'
44 vinfo( 2)='oyster larvae settlement size'
45 vinfo( 3)='micrometer'
46 status=def_var(ng, model, ncid, varid, nf_type, &
47 & 1, (/0/), aval, vinfo, ncname, &
48 & setparaccess = .false.)
49 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
50!
51! Turbidity effect parameters on planktonic oyster larvae growth.
52!
53 vinfo( 1)='turb_ambi'
54 vinfo( 2)='ambient turbidity level effect on larvae growth'
55 vinfo( 3)='gram liter-1'
56 status=def_var(ng, model, ncid, varid, nf_type, &
57 & 1, (/0/), aval, vinfo, ncname, &
58 & setparaccess = .false.)
59 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
60
61 vinfo( 1)='turb_axis'
62 vinfo( 2)='turbidity linear axis crossing in growth curve'
63 vinfo( 3)='gram liter-1'
64 status=def_var(ng, model, ncid, varid, nf_type, &
65 & 1, (/0/), aval, vinfo, ncname, &
66 & setparaccess = .false.)
67 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
68
69 vinfo( 1)='turb_base'
70 vinfo( 2)='turbidity exponential base factor'
71 vinfo( 3)='gram liter-1'
72 status=def_var(ng, model, ncid, varid, nf_type, &
73 & 1, (/0/), aval, vinfo, ncname, &
74 & setparaccess = .false.)
75 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
76
77 vinfo( 1)='turb_crit'
78 vinfo( 2)='critical turbidity value'
79 vinfo( 3)='gram liter-1'
80 status=def_var(ng, model, ncid, varid, nf_type, &
81 & 1, (/0/), aval, vinfo, ncname, &
82 & setparaccess = .false.)
83 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
84
85 vinfo( 1)='turb_mean'
86 vinfo( 2)='turbidity exponential mean'
87 vinfo( 3)='gram liter-1'
88 status=def_var(ng, model, ncid, varid, nf_type, &
89 & 1, (/0/), aval, vinfo, ncname, &
90 & setparaccess = .false.)
91 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
92
93 vinfo( 1)='turb_rate'
94 vinfo( 2)='turbidity exponential rate'
95 vinfo( 3)='liter gram-1'
96 status=def_var(ng, model, ncid, varid, nf_type, &
97 & 1, (/0/), aval, vinfo, ncname, &
98 & setparaccess = .false.)
99 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
100
101 vinfo( 1)='turb_size'
102 vinfo( 2)='minimum oyster larvae size affected by turbidity'
103 vinfo( 3)='micrometer'
104 status=def_var(ng, model, ncid, varid, nf_type, &
105 & 1, (/0/), aval, vinfo, ncname, &
106 & setparaccess = .false.)
107 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
108
109 vinfo( 1)='turb_slop'
110 vinfo( 2)='turbidity linear slope on oyster larvae growth curve'
111 vinfo( 3)='liter gram-1'
112 status=def_var(ng, model, ncid, varid, nf_type, &
113 & 1, (/0/), aval, vinfo, ncname, &
114 & setparaccess = .false.)
115 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
116!
117! Planktonic oyster larvae vertical migration (swimming) parameters.
118!
119 vinfo( 1)='slope_Sdec'
120 vinfo( 2)='oyster larvae swimming coefficient due to '// &
121 & 'decreasing salinity'
122 status=def_var(ng, model, ncid, varid, nf_type, &
123 & 1, (/0/), aval, vinfo, ncname, &
124 & setparaccess = .false.)
125 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
126
127 vinfo( 1)='slope_Sinc'
128 vinfo( 2)='oyster larvae swimming coefficient due to '// &
129 & 'increasing salinity'
130 status=def_var(ng, model, ncid, varid, nf_type, &
131 & 1, (/0/), aval, vinfo, ncname, &
132 & setparaccess = .false.)
133 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
134
135 vinfo( 1)='swim_Sdec'
136 vinfo( 2)='oyster larvae active swimming fraction due to '// &
137 & 'decreasing salinity'
138 status=def_var(ng, model, ncid, varid, nf_type, &
139 & 1, (/0/), aval, vinfo, ncname, &
140 & setparaccess = .false.)
141 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
142
143 vinfo( 1)='swim_Sinc'
144 vinfo( 2)='oyster larvae active swimming fraction due to '// &
145 & 'increasing salinity'
146 status=def_var(ng, model, ncid, varid, nf_type, &
147 & 1, (/0/), aval, vinfo, ncname, &
148 & setparaccess = .false.)
149 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
150
151 vinfo( 1)='swim_Tmin'
152 vinfo( 2)='oyster larvae minimum swimming time fraction'
153 status=def_var(ng, model, ncid, varid, nf_type, &
154 & 1, (/0/), aval, vinfo, ncname, &
155 & setparaccess = .false.)
156 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
157
158 vinfo( 1)='swim_Tmax'
159 vinfo( 2)='oyster larvae maximum swimming time fraction'
160 status=def_var(ng, model, ncid, varid, nf_type, &
161 & 1, (/0/), aval, vinfo, ncname, &
162 & setparaccess = .false.)
163 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
164!
165! Planktonic larvae sinking parameters.
166!
167 vinfo( 1)='sink_base'
168 vinfo( 2)='oyster larvae exponential base factor in sinking curve'
169 vinfo( 3)='millimeter second-1'
170 status=def_var(ng, model, ncid, varid, nf_type, &
171 & 1, (/0/), aval, vinfo, ncname, &
172 & setparaccess = .false.)
173 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
174
175 vinfo( 1)='sink_rate'
176 vinfo( 2)='oyster larvae exponential rate factor in sinking curve'
177 vinfo( 3)='micrometer-1'
178 status=def_var(ng, model, ncid, varid, nf_type, &
179 & 1, (/0/), aval, vinfo, ncname, &
180 & setparaccess = .false.)
181 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
182
183 vinfo( 1)='sink_size'
184 vinfo( 2)='oyster larvae exponential mean size in sinking curve'
185 vinfo( 3)='micrometer'
186 status=def_var(ng, model, ncid, varid, nf_type, &
187 & 1, (/0/), aval, vinfo, ncname, &
188 & setparaccess = .false.)
189 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
output
subroutine output(ng)
Definition output.F:4