ROMS
Loading...
Searching...
No Matches
hypoxia_srm_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 the hypoxia simple respiration **
10** model biological variables that are used in input and output **
11** netcdf files. the metadata information is read from **
12** "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 ('idResR')
25 idresr=varid
26 CASE ('idTvar(iOxyg)')
27 idtvar(ioxyg)=varid
28
29#if defined AD_SENSITIVITY || defined I4DVAR_ANA_SENSITIVITY || \
30 defined opt_observations || defined sensitivity_4dvar || \
31 defined so_semi
32
33/*
34** adjoint sensitivity state biological tracers.
35*/
36
37 CASE ('idTads(iOxyg)')
38 idtads(ioxyg)=varid
39#endif
40
41/*
42** biological tracers open boundary conditions.
43*/
44
45 CASE ('idTbry(iwest,iOxyg)')
46 idtbry(iwest,ioxyg)=varid
47 CASE ('idTbry(ieast,iOxyg)')
48 idtbry(ieast,ioxyg)=varid
49 CASE ('idTbry(isouth,iOxyg)')
50 idtbry(isouth,ioxyg)=varid
51 CASE ('idTbry(inorth,iOxyg)')
52 idtbry(inorth,ioxyg)=varid
53
54/*
55** biological tracers point source/sinks(river runoff).
56*/
57
58 CASE ('idRtrc(iOxyg)')
59 idrtrc(ioxyg)=varid
output
subroutine output(ng)
Definition output.F:4