npzd_iron_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 npzd iron(fiechter, et al. 2009)    **
**  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
#ifdef IRON_LIMIT
          CASE ('idTvar(iFphy)')
            idtvar(ifphy)=varid
          CASE ('idTvar(iFdis)')
            idtvar(ifdis)=varid
#endif
 
#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
# ifdef IRON_LIMIT
          CASE ('idTads(iFphy)')
            idtads(ifphy)=varid
          CASE ('idTads(iFdis)')
            idtads(ifdis)=varid
# endif
#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
 
#ifdef IRON_LIMIT
          CASE ('idTbry(iwest,iFphy)')
            idtbry(iwest,ifphy)=varid
          CASE ('idTbry(ieast,iFphy)')
            idtbry(ieast,ifphy)=varid
          CASE ('idTbry(isouth,iFphy)')
            idtbry(isouth,ifphy)=varid
          CASE ('idTbry(inorth,iFphy)')
            idtbry(inorth,ifphy)=varid
 
          CASE ('idTbry(iwest,iFdis)')
            idtbry(iwest,ifdis)=varid
          CASE ('idTbry(ieast,iFdis)')
            idtbry(ieast,ifdis)=varid
          CASE ('idTbry(isouth,iFdis)')
            idtbry(isouth,ifdis)=varid
          CASE ('idTbry(inorth,iFdis)')
            idtbry(inorth,ifdis)=varid
#endif
 
 
/*
**  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
#ifdef IRON_LIMIT
          CASE ('idRtrc(iFphy)')
            idrtrc(ifphy)=varid
          CASE ('idRtrc(iFdis)')
            idrtrc(ifdis)=varid
#endif