ROMS
Loading...
Searching...
No Matches
npzd_Powell_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 powell et al. (2006) ecosystem model input parameters in **
10** output netcdf file. it is included in routine "def_info.F". **
11** **
12************************************************************************
13*/
14
15!
16! Define NPZD (Powell et al., 2006) biological model parameters.
17!
18 vinfo( 1)='BioIter'
19 vinfo( 2)='number of iterations to achieve convergence'
20 status=def_var(ng, model, piofile, piovar, pio_int, &
21 & 1, (/0/), aval, vinfo, ncname, &
22 & setparaccess = .false.)
23 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
24
25 vinfo( 1)='AttSW'
26 vinfo( 2)='light attenuation due to sea water'
27 vinfo( 3)='meter-1'
28 status=def_var(ng, model, piofile, piovar, pio_type, &
29 & 1, (/0/), aval, vinfo, ncname, &
30 & setparaccess = .false.)
31 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
32
33 vinfo( 1)='AttPhy'
34 vinfo( 2)='light attenuation due to phytoplankton'
35 vinfo( 3)='meter2 millimole_N-1'
36 status=def_var(ng, model, piofile, piovar, pio_type, &
37 & 1, (/0/), aval, vinfo, ncname, &
38 & setparaccess = .false.)
39 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
40
41 vinfo( 1)='PhyIS'
42 vinfo( 2)='phytoplankton initial slope of the P-I curve'
43 vinfo( 3)='meter2 watt-1'
44 status=def_var(ng, model, piofile, piovar, pio_type, &
45 & 1, (/0/), aval, vinfo, ncname, &
46 & setparaccess = .false.)
47 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
48
49 vinfo( 1)='Vm_NO3'
50 vinfo( 2)='nitrate uptake rate'
51 vinfo( 3)='day-1'
52 status=def_var(ng, model, piofile, piovar, pio_type, &
53 & 1, (/0/), aval, vinfo, ncname, &
54 & setparaccess = .false.)
55 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
56
57 vinfo( 1)='PhyMRD'
58 vinfo( 2)='phytoplankton mortality rate to the detritus pool'
59 vinfo( 3)='day-1'
60 status=def_var(ng, model, piofile, piovar, pio_type, &
61 & 1, (/0/), aval, vinfo, ncname, &
62 & setparaccess = .false.)
63 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
64
65 vinfo( 1)='PhyMRN'
66 vinfo( 2)='phytoplankton mortality rate to the Nitrogen pool'
67 vinfo( 3)='day-1'
68 status=def_var(ng, model, piofile, piovar, pio_type, &
69 & 1, (/0/), aval, vinfo, ncname, &
70 & setparaccess = .false.)
71 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
72
73 vinfo( 1)='K_NO3'
74 vinfo( 2)='inverse half-saturation for phytoplankton NO3 uptake'
75 vinfo( 3)='meter3 millimole-1'
76 status=def_var(ng, model, piofile, piovar, pio_type, &
77 & 1, (/0/), aval, vinfo, ncname, &
78 & setparaccess = .false.)
79 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
80
81 vinfo( 1)='Ivlev'
82 vinfo( 2)='Ivlev constant for zooplankton grazing'
83 status=def_var(ng, model, piofile, piovar, pio_type, &
84 & 1, (/0/), aval, vinfo, ncname, &
85 & setparaccess = .false.)
86 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
87
88 vinfo( 1)='ZooGR'
89 vinfo( 2)='zooplankton grazing rate'
90 vinfo( 3)='day-1'
91 status=def_var(ng, model, piofile, piovar, pio_type, &
92 & 1, (/0/), aval, vinfo, ncname, &
93 & setparaccess = .false.)
94 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
95
96 vinfo( 1)='ZooEED'
97 vinfo( 2)='zooplankton excretion efficiency to detritus pool'
98 status=def_var(ng, model, piofile, piovar, pio_type, &
99 & 1, (/0/), aval, vinfo, ncname, &
100 & setparaccess = .false.)
101 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
102
103 vinfo( 1)='ZooEEN'
104 vinfo( 2)='zooplankton excretion efficiency to Nitrogen pool'
105 status=def_var(ng, model, piofile, piovar, pio_type, &
106 & 1, (/0/), aval, vinfo, ncname, &
107 & setparaccess = .false.)
108 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
109
110 vinfo( 1)='ZooMRD'
111 vinfo( 2)='zooplankton mortality rate to the detritus pool'
112 vinfo( 3)='day-1'
113 status=def_var(ng, model, piofile, piovar, pio_type, &
114 & 1, (/0/), aval, vinfo, ncname, &
115 & setparaccess = .false.)
116 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
117
118 vinfo( 1)='ZooMRN'
119 vinfo( 2)='zootoplankton mortality rate to the Nitrogen pool'
120 vinfo( 3)='day-1'
121 status=def_var(ng, model, piofile, piovar, pio_type, &
122 & 1, (/0/), aval, vinfo, ncname, &
123 & setparaccess = .false.)
124 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
125
126 vinfo( 1)='DetRR'
127 vinfo( 2)='detritus remineralization rate'
128 vinfo( 3)='day-1'
129 status=def_var(ng, model, piofile, piovar, pio_type, &
130 & 1, (/0/), aval, vinfo, ncname, &
131 & setparaccess = .false.)
132 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
133
134 vinfo( 1)='wPhy'
135 vinfo( 2)='phytoplankton sinking rate'
136 vinfo( 3)='m day-1'
137 status=def_var(ng, model, piofile, piovar, pio_type, &
138 & 1, (/0/), aval, vinfo, ncname, &
139 & setparaccess = .false.)
140 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
141
142 vinfo( 1)='wDet'
143 vinfo( 2)='detrital sinking rate'
144 vinfo( 3)='m day-1'
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
output
subroutine output(ng)
Definition output.F:4