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 for the powell et al. (2006) ecosystem **
10** model variables that are used in input and
output netcdf files. **
11** the metadata information 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(iNO3_)')
25 CASE (
'idTvar(iPhyt)')
27 CASE (
'idTvar(iZoop)')
29 CASE (
'idTvar(iSDet)')
32#if defined AD_SENSITIVITY || defined I4DVAR_ANA_SENSITIVITY || \
33 defined opt_observations || defined sensitivity_4dvar || \
37** adjoint sensitivity state biological tracers.
40 CASE (
'idTads(iNO3_)')
42 CASE (
'idTads(iPhyt)')
44 CASE (
'idTads(iZoop)')
46 CASE (
'idTads(iSDet)')
51** biological tracers
open boundary conditions.
54 CASE (
'idTbry(iwest,iNO3_)')
55 idtbry(iwest,ino3_)=varid
56 CASE (
'idTbry(ieast,iNO3_)')
57 idtbry(ieast,ino3_)=varid
58 CASE (
'idTbry(isouth,iNO3_)')
59 idtbry(isouth,ino3_)=varid
60 CASE (
'idTbry(inorth,iNO3_)')
61 idtbry(inorth,ino3_)=varid
63 CASE (
'idTbry(iwest,iPhyt)')
64 idtbry(iwest,iphyt)=varid
65 CASE (
'idTbry(ieast,iPhyt)')
66 idtbry(ieast,iphyt)=varid
67 CASE (
'idTbry(isouth,iPhyt)')
68 idtbry(isouth,iphyt)=varid
69 CASE (
'idTbry(inorth,iPhyt)')
70 idtbry(inorth,iphyt)=varid
72 CASE (
'idTbry(iwest,iZoop)')
73 idtbry(iwest,izoop)=varid
74 CASE (
'idTbry(ieast,iZoop)')
75 idtbry(ieast,izoop)=varid
76 CASE (
'idTbry(isouth,iZoop)')
77 idtbry(isouth,izoop)=varid
78 CASE (
'idTbry(inorth,iZoop)')
79 idtbry(inorth,izoop)=varid
81 CASE (
'idTbry(iwest,iSDet)')
82 idtbry(iwest,isdet)=varid
83 CASE (
'idTbry(ieast,iSDet)')
84 idtbry(ieast,isdet)=varid
85 CASE (
'idTbry(isouth,iSDet)')
86 idtbry(isouth,isdet)=varid
87 CASE (
'idTbry(inorth,iSDet)')
88 idtbry(inorth,isdet)=varid
92** biological tracers point source/sinks(river runoff).
95 CASE (
'idRtrc(iNO3_)')
97 CASE (
'idRtrc(iPhyt)')
99 CASE (
'idRtrc(iZoop)')
101 CASE (
'idRtrc(iSDet)')