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************************************************************************
9** defines franks et al. (1986) ecosystem model input parameters in **
10**
output netcdf files. it is included in routine
"def_info.F". **
12************************************************************************
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
26 vinfo( 2)=
'light extinction coefficient'
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
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
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
50 vinfo( 2)=
'nitrate uptake rate'
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
58 vinfo( 2)=
'phytoplankton senescence/mortality rate'
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
66 vinfo( 2)=
'zooplankton maximum growth rate'
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
74 vinfo( 2)=
'zooplankton mortality rate'
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
82 vinfo( 2)=
'zootoplankton death bits rate'
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
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
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
104 vinfo( 2)=
'detritus remineralization rate'
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
112 vinfo( 2)=
'detrital sinking rate'
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