ROMS
Loading...
Searching...
No Matches
npzd_Franks_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 franks et al. (1986) ecosystem model input parameters in **
10** output netcdf files. it is included in routine "def_info.F". **
11** **
12************************************************************************
13*/
14
15!
16! Define NPZD (Franks et al., 1986) 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)='K_ext'
26 vinfo( 2)='light extinction coefficient'
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)='K_NO3'
34 vinfo( 2)='inverse half-saturation for phytoplankton NO3 uptake'
35 vinfo( 3)='millimole-1 meter3'
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)='K_Phy'
42 vinfo( 2)='phytoplankton saturation coefficient'
43 vinfo( 3)='millimole meter-3'
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)='PhyMR'
58 vinfo( 2)='phytoplankton senescence/mortality rate'
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)='ZooGR'
66 vinfo( 2)='zooplankton maximum growth rate'
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)='ZooMR'
74 vinfo( 2)='zooplankton mortality rate'
75 vinfo( 3)='day-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)='ZooMD'
82 vinfo( 2)='zootoplankton death bits rate'
83 vinfo( 3)='day-1'
84 status=def_var(ng, model, piofile, piovar, pio_type, &
85 & 1, (/0/), aval, vinfo, ncname, &
86 & setparaccess = .false.)
87 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
88
89 vinfo( 1)='ZooGA'
90 vinfo( 2)='zootoplankton grazing inefficiency'
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)='ZooEC'
97 vinfo( 2)='zootoplankton excreted fraction'
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)='DetRR'
104 vinfo( 2)='detritus remineralization rate'
105 vinfo( 3)='day-1'
106 status=def_var(ng, model, piofile, piovar, pio_type, &
107 & 1, (/0/), aval, vinfo, ncname, &
108 & setparaccess = .false.)
109 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
110
111 vinfo( 1)='wDet'
112 vinfo( 2)='detrital sinking rate'
113 vinfo( 3)='m day-1'
114 status=def_var(ng, model, piofile, piovar, pio_type, &
115 & 1, (/0/), aval, vinfo, ncname, &
116 & setparaccess = .false.)
117 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
subroutine output(ng)
Definition output.F:4