npzd_Franks_var.h

Go to the documentation of this file.

/*
** git $id$
*************************************************** hernan g. arango ***
** copyright(c) 2002-2025 the roms group                             **
**   licensed under a mit/x style license                             **
**   see license_roms.md                                              **
************************************************************************
**                                                                    **
**  assigns metadata indices for the franks et al. (1986) ecosystem   **
**  model variables that are used in input and output netcdf files.   **
**  the metadata information is read from "varinfo.yaml".             **
**                                                                    **
**  this file is included in file "mod_ncparam.F", routine            **
**  "initialize_ncparm".                                              **
**                                                                    **
************************************************************************
*/
 
/*
**  model state biological tracers.
*/
 
          CASE ('idTvar(iNO3_)')
            idtvar(ino3_)=varid
          CASE ('idTvar(iPhyt)')
            idtvar(iphyt)=varid
          CASE ('idTvar(iZoop)')
            idtvar(izoop)=varid
          CASE ('idTvar(iSDet)')
            idtvar(isdet)=varid
 
#if defined AD_SENSITIVITY   || defined I4DVAR_ANA_SENSITIVITY || \
    defined opt_observations || defined sensitivity_4dvar      || \
    defined so_semi
 
/*
**  adjoint sensitivity state biological tracers.
*/
 
          CASE ('idTads(iNO3_)')
            idtads(ino3_)=varid
          CASE ('idTads(iPhyt)')
            idtads(iphyt)=varid
          CASE ('idTads(iZoop)')
            idtads(izoop)=varid
          CASE ('idTads(iSDet)')
            idtads(isdet)=varid
#endif
 
/*
**  biological tracers open boundary conditions.
*/
 
          CASE ('idTbry(iwest,iNO3_)')
            idtbry(iwest,ino3_)=varid
          CASE ('idTbry(ieast,iNO3_)')
            idtbry(ieast,ino3_)=varid
          CASE ('idTbry(isouth,iNO3_)')
            idtbry(isouth,ino3_)=varid
          CASE ('idTbry(inorth,iNO3_)')
            idtbry(inorth,ino3_)=varid
 
          CASE ('idTbry(iwest,iPhyt)')
            idtbry(iwest,iphyt)=varid
          CASE ('idTbry(ieast,iPhyt)')
            idtbry(ieast,iphyt)=varid
          CASE ('idTbry(isouth,iPhyt)')
            idtbry(isouth,iphyt)=varid
          CASE ('idTbry(inorth,iPhyt)')
            idtbry(inorth,iphyt)=varid
 
          CASE ('idTbry(iwest,iZoop)')
            idtbry(iwest,izoop)=varid
          CASE ('idTbry(ieast,iZoop)')
            idtbry(ieast,izoop)=varid
          CASE ('idTbry(isouth,iZoop)')
            idtbry(isouth,izoop)=varid
          CASE ('idTbry(inorth,iZoop)')
            idtbry(inorth,izoop)=varid
 
          CASE ('idTbry(iwest,iSDet)')
            idtbry(iwest,isdet)=varid
          CASE ('idTbry(ieast,iSDet)')
            idtbry(ieast,isdet)=varid
          CASE ('idTbry(isouth,iSDet)')
            idtbry(isouth,isdet)=varid
          CASE ('idTbry(inorth,iSDet)')
            idtbry(inorth,isdet)=varid
 
 
/*
**  biological tracers point source/sinks(river runoff).
*/
 
 
          CASE ('idRtrc(iNO3_)')
            idrtrc(ino3_)=varid
          CASE ('idRtrc(iPhyt)')
            idrtrc(iphyt)=varid
          CASE ('idRtrc(iZoop)')
            idrtrc(izoop)=varid
          CASE ('idRtrc(iSDet)')
            idrtrc(isdet)=varid