ROMS
Loading...
Searching...
No Matches
red_tide_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 for red tide(stock et al., 2005; **
10** he et al., 2008) biological model variables that are used **
11** in input and output netcdf files. the metadata information **
12** is read from "varinfo.yaml". **
13** **
14** this file is included in file "mod_ncparam.F", routine **
15** "initialize_ncparm". **
16** **
17************************************************************************
18*/
19
20/*
21** model state biological tracers.
22*/
23
24 CASE ('idAsrf')
25 idasrf=varid
26 CASE ('idCyst')
27 idcyst=varid
28 CASE ('idODIN')
29 idodin=varid
30 CASE ('idTvar(iDino)')
31 idtvar(idino)=varid
32
33#if defined AD_SENSITIVITY || defined I4DVAR_ANA_SENSITIVITY || \
34 defined opt_observations || defined sensitivity_4dvar || \
35 defined so_semi
36
37/*
38** adjoint sensitivity state biological tracers.
39*/
40
41 CASE ('idTads(iDino)')
42 idtads(idino)=varid
43#endif
44
45/*
46** biological tracers open boundary conditions.
47*/
48
49 CASE ('idTbry(iwest,iDino)')
50 idtbry(iwest,idino)=varid
51 CASE ('idTbry(ieast,iDino)')
52 idtbry(ieast,idino)=varid
53 CASE ('idTbry(isouth,iDino)')
54 idtbry(isouth,idino)=varid
55 CASE ('idTbry(inorth,iDino)')
56 idtbry(inorth,idino)=varid
57
58/*
59** biological tracers point source/sinks(river runoff).
60*/
61
62 CASE ('idRtrc(iDino)')
63 idrtrc(idino)=varid
output
subroutine output(ng)
Definition output.F:4