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** assigns metadata indices to the nemuro ecosystem model **
10** variables that are used in input and
output netcdf files. **
11** the metadata nformation is
read from
"varinfo.yaml". **
13** this file is included in file
"mod_ncparam.F", routine **
14**
"initialize_ncparm". **
16************************************************************************
20** model state biological tracers.
23 CASE (
'idTvar(iLphy)')
25 CASE (
'idTvar(iSphy)')
27 CASE (
'idTvar(iLzoo)')
29 CASE (
'idTvar(iSzoo)')
31 CASE (
'idTvar(iPzoo)')
33 CASE (
'idTvar(iNO3_)')
35 CASE (
'idTvar(iNH4_)')
37 CASE (
'idTvar(iPON_)')
39 CASE (
'idTvar(iDON_)')
41 CASE (
'idTvar(iSiOH)')
43 CASE (
'idTvar(iopal)')
47** biological tracers
open boundary conditions.
50 CASE (
'idTbry(iwest,iLphy)')
51 idtbry(iwest,ilphy)=varid
52 CASE (
'idTbry(ieast,iLphy)')
53 idtbry(ieast,ilphy)=varid
54 CASE (
'idTbry(isouth,iLphy)')
55 idtbry(isouth,ilphy)=varid
56 CASE (
'idTbry(inorth,iLphy)')
57 idtbry(inorth,ilphy)=varid
59 CASE (
'idTbry(iwest,iSphy)')
60 idtbry(iwest,isphy)=varid
61 CASE (
'idTbry(ieast,iSphy)')
62 idtbry(ieast,isphy)=varid
63 CASE (
'idTbry(isouth,iSphy)')
64 idtbry(isouth,isphy)=varid
65 CASE (
'idTbry(inorth,iSphy)')
66 idtbry(inorth,isphy)=varid
68 CASE (
'idTbry(iwest,iLzoo)')
69 idtbry(iwest,ilzoo)=varid
70 CASE (
'idTbry(ieast,iLzoo)')
71 idtbry(ieast,ilzoo)=varid
72 CASE (
'idTbry(isouth,iLzoo)')
73 idtbry(isouth,ilzoo)=varid
74 CASE (
'idTbry(inorth,iLzoo)')
75 idtbry(inorth,ilzoo)=varid
77 CASE (
'idTbry(iwest,iSzoo)')
78 idtbry(iwest,iszoo)=varid
79 CASE (
'idTbry(ieast,iSzoo)')
80 idtbry(ieast,iszoo)=varid
81 CASE (
'idTbry(isouth,iSzoo)')
82 idtbry(isouth,iszoo)=varid
83 CASE (
'idTbry(inorth,iSzoo)')
84 idtbry(inorth,iszoo)=varid
86 CASE (
'idTbry(iwest,iPzoo)')
87 idtbry(iwest,ipzoo)=varid
88 CASE (
'idTbry(ieast,iPzoo)')
89 idtbry(ieast,ipzoo)=varid
90 CASE (
'idTbry(isouth,iPzoo)')
91 idtbry(isouth,ipzoo)=varid
92 CASE (
'idTbry(inorth,iPzoo)')
93 idtbry(inorth,ipzoo)=varid
95 CASE (
'idTbry(iwest,iNO3_)')
96 idtbry(iwest,ino3_)=varid
97 CASE (
'idTbry(ieast,iNO3_)')
98 idtbry(ieast,ino3_)=varid
99 CASE (
'idTbry(isouth,iNO3_)')
100 idtbry(isouth,ino3_)=varid
101 CASE (
'idTbry(inorth,iNO3_)')
102 idtbry(inorth,ino3_)=varid
104 CASE (
'idTbry(iwest,iNH4_)')
105 idtbry(iwest,inh4_)=varid
106 CASE (
'idTbry(ieast,iNH4_)')
107 idtbry(ieast,inh4_)=varid
108 CASE (
'idTbry(isouth,iNH4_)')
109 idtbry(isouth,inh4_)=varid
110 CASE (
'idTbry(inorth,iNH4_)')
111 idtbry(inorth,inh4_)=varid
113 CASE (
'idTbry(iwest,iPON_)')
114 idtbry(iwest,ipon_)=varid
115 CASE (
'idTbry(ieast,iPON_)')
116 idtbry(ieast,ipon_)=varid
117 CASE (
'idTbry(isouth,iPON_)')
118 idtbry(isouth,ipon_)=varid
119 CASE (
'idTbry(inorth,iPON_)')
120 idtbry(inorth,ipon_)=varid
122 CASE (
'idTbry(iwest,iDON_)')
123 idtbry(iwest,idon_)=varid
124 CASE (
'idTbry(ieast,iDON_)')
125 idtbry(ieast,idon_)=varid
126 CASE (
'idTbry(isouth,iDON_)')
127 idtbry(isouth,idon_)=varid
128 CASE (
'idTbry(inorth,iDON_)')
129 idtbry(inorth,idon_)=varid
131 CASE (
'idTbry(iwest,iSiOH)')
132 idtbry(iwest,isioh)=varid
133 CASE (
'idTbry(ieast,iSiOH)')
134 idtbry(ieast,isioh)=varid
135 CASE (
'idTbry(isouth,iSiOH)')
136 idtbry(isouth,isioh)=varid
137 CASE (
'idTbry(inorth,iSiOH)')
138 idtbry(inorth,isioh)=varid
140 CASE (
'idTbry(iwest,iopal)')
141 idtbry(iwest,iopal)=varid
142 CASE (
'idTbry(ieast,iopal)')
143 idtbry(ieast,iopal)=varid
144 CASE (
'idTbry(isouth,iopal)')
145 idtbry(isouth,iopal)=varid
146 CASE (
'idTbry(inorth,iopal)')
147 idtbry(inorth,iopal)=varid
151** biological tracers point source/sinks(river runoff).
154 CASE (
'idRtrc(iNO3_)')
156 CASE (
'idRtrc(iNH4_)')
158 CASE (
'idRtrc(iDON_)')
160 CASE (
'idRtrc(iPON_)')