ROMS
Loading...
Searching...
No Matches
red_tide_def_pio.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 red tide(stock et al., 2005; he et al., 2008) biological **
10** model input parameters in output netcdf files. it is included **
11** in routine "def_info.F". **
12** **
13************************************************************************
14*/
15
16!
17! Define red tide (Stock et al., 2005; He et al., 2008) biological
18! model parameters.
19!
20 vinfo( 1)='BioIter'
21 vinfo( 2)='number of iterations to achieve convergence'
22 status=def_var(ng, model, piofile, piovar, pio_int, &
23 & 1, (/0/), aval, vinfo, ncname, &
24 & setparaccess = .false.)
25 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
26
27 vinfo( 1)='Gmax'
28 vinfo( 2)='maximum grow rate at optimal T/S'
29 vinfo( 3)='day-1'
30 status=def_var(ng, model, piofile, piovar, pio_type, &
31 & 1, (/0/), aval, vinfo, ncname, &
32 & setparaccess = .false.)
33 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
34
35 vinfo( 1)='Dg'
36 vinfo( 2)='depth of sediment for cysts germination'
37 vinfo( 3)='meter'
38 status=def_var(ng, model, piofile, piovar, pio_type, &
39 & 1, (/0/), aval, vinfo, ncname, &
40 & setparaccess = .false.)
41 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
42
43 vinfo( 1)='Kn'
44 vinfo( 2)='half-saturation for nutrient limited growth'
45 vinfo( 3)='millimole meter-3'
46 status=def_var(ng, model, piofile, piovar, pio_type, &
47 & 1, (/0/), aval, vinfo, ncname, &
48 & setparaccess = .false.)
49 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
50
51 vinfo( 1)='G_eff'
52 vinfo( 2)='growth efficiency'
53 vinfo( 3)='meter2 watt-1 day-1'
54 status=def_var(ng, model, piofile, piovar, pio_type, &
55 & 1, (/0/), aval, vinfo, ncname, &
56 & setparaccess = .false.)
57 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
58
59 vinfo( 1)='G_r'
60 vinfo( 2)='maintanenance respiration rate'
61 vinfo( 3)='day-1'
62 status=def_var(ng, model, piofile, piovar, pio_type, &
63 & 1, (/0/), aval, vinfo, ncname, &
64 & setparaccess = .false.)
65 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
66
67 vinfo( 1)='AttW'
68 vinfo( 2)='mean light diffuse attenuation in water column'
69 vinfo( 3)='meter-1'
70 status=def_var(ng, model, piofile, piovar, pio_type, &
71 & 1, (/0/), aval, vinfo, ncname, &
72 & setparaccess = .false.)
73 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
74
75 vinfo( 1)='AttS'
76 vinfo( 2)='mean light diffuse attenuation in sediment'
77 vinfo( 3)='meter-1'
78 status=def_var(ng, model, piofile, piovar, pio_type, &
79 & 1, (/0/), aval, vinfo, ncname, &
80 & setparaccess = .false.)
81 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
82
83 vinfo( 1)='E_light'
84 vinfo( 2)='light level for germination under light conditions'
85 vinfo( 3)='watt meter-2'
86 status=def_var(ng, model, piofile, piovar, pio_type, &
87 & 1, (/0/), aval, vinfo, ncname, &
88 & setparaccess = .false.)
89 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
90
91 vinfo( 1)='E_dark'
92 vinfo( 2)='light level for germination under dark conditions'
93 vinfo( 3)='watt meter-2'
94 status=def_var(ng, model, piofile, piovar, pio_type, &
95 & 1, (/0/), aval, vinfo, ncname, &
96 & setparaccess = .false.)
97 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
98
99 vinfo( 1)='Tmin_growth'
100 vinfo( 2)='coldest temperature used in growth factor cubic ' // &
101 & 'polynomial term'
102 vinfo( 3)='Celsius'
103 status=def_var(ng, model, piofile, piovar, pio_type, &
104 & 1, (/0/), aval, vinfo, ncname, &
105 & setparaccess = .false.)
106 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
107
108 vinfo( 1)='DIN_Cdepth'
109 vinfo( 2)='Dissolved Inorganic Nutrient concentration below ' // &
110 & 'of growth critical depth'
111 vinfo( 3)='millimole meter-3'
112 status=def_var(ng, model, piofile, piovar, pio_type, &
113 & 1, (/0/), aval, vinfo, ncname, &
114 & setparaccess = .false.)
115 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
116
117 vinfo( 1)='wDino'
118 vinfo( 2)='Dinoflagellate swimming/migration rate'
119 vinfo( 3)='meter day-1'
120 vinfo(11)='downward motion, sinking'
121 vinfo(12)='upward motion, swimming'
122 status=def_var(ng, model, piofile, piovar, pio_type, &
123 & 1, (/0/), aval, vinfo, ncname, &
124 & setparaccess = .false.)
125 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
126
127 vinfo( 1)='Mor_a'
128 vinfo( 2)='Mortality rate equation, Q10 amplitude term'
129 vinfo( 3)='day-1'
130 status=def_var(ng, model, piofile, piovar, pio_type, &
131 & 1, (/0/), aval, vinfo, ncname, &
132 & setparaccess = .false.)
133 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
134
135 vinfo( 1)='Mor_b'
136 vinfo( 2)='Mortality rate equation, Q10 intercept term'
137 vinfo( 3)='day-1'
138 status=def_var(ng, model, piofile, piovar, pio_type, &
139 & 1, (/0/), aval, vinfo, ncname, &
140 & setparaccess = .false.)
141 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
142
143 vinfo( 1)='Mor_Q10'
144 vinfo( 2)='Mortality rate equation, Q10 reaction rate base'
145 status=def_var(ng, model, piofile, piovar, pio_type, &
146 & 1, (/0/), aval, vinfo, ncname, &
147 & setparaccess = .false.)
148 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
149
150 vinfo( 1)='Mor_T0'
151 vinfo( 2)='Mortality rate equation, Q10 background temperature'
152 vinfo( 3)='Celsius'
153 status=def_var(ng, model, piofile, piovar, pio_type, &
154 & 1, (/0/), aval, vinfo, ncname, &
155 & setparaccess = .false.)
156 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
output
subroutine output(ng)
Definition output.F:4