ROMS
Loading...
Searching...
No Matches
nemuro_var.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** 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". **
12** **
13** this file is included in file "mod_ncparam.F", routine **
14** "initialize_ncparm". **
15** **
16************************************************************************
17*/
18
19/*
20** model state biological tracers.
21*/
22
23 CASE ('idTvar(iLphy)')
24 idtvar(ilphy)=varid
25 CASE ('idTvar(iSphy)')
26 idtvar(isphy)=varid
27 CASE ('idTvar(iLzoo)')
28 idtvar(ilzoo)=varid
29 CASE ('idTvar(iSzoo)')
30 idtvar(iszoo)=varid
31 CASE ('idTvar(iPzoo)')
32 idtvar(ipzoo)=varid
33 CASE ('idTvar(iNO3_)')
34 idtvar(ino3_)=varid
35 CASE ('idTvar(iNH4_)')
36 idtvar(inh4_)=varid
37 CASE ('idTvar(iPON_)')
38 idtvar(ipon_)=varid
39 CASE ('idTvar(iDON_)')
40 idtvar(idon_)=varid
41 CASE ('idTvar(iSiOH)')
42 idtvar(isioh)=varid
43 CASE ('idTvar(iopal)')
44 idtvar(iopal)=varid
45
46/*
47** biological tracers open boundary conditions.
48*/
49
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
58
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
67
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
76
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
85
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
94
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
103
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
112
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
121
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
130
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
139
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
148
149
150/*
151** biological tracers point source/sinks(river runoff).
152*/
153
154 CASE ('idRtrc(iNO3_)')
155 idrtrc(ino3_)=varid
156 CASE ('idRtrc(iNH4_)')
157 idrtrc(inh4_)=varid
158 CASE ('idRtrc(iDON_)')
159 idrtrc(idon_)=varid
160 CASE ('idRtrc(iPON_)')
161 idrtrc(ipon_)=varid
subroutine output(ng)
Definition output.F:4