hypoxia_srm_wrt.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                                              **
************************************************************************
**                                                                    **
**  writes hypoxia simple respiration model input parameters into     **
**  output netcdf files. it is included in routine "wrt_info.F".      **
**                                                                    **
************************************************************************
*/
 
!
!  Write out Hypoxia Simple Respiration Model parameters.
!
      CALL netcdf_put_ivar (ng, model, ncname, 'BioIter',               &
     &                      bioiter(ng), (/0/), (/0/),                  &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL netcdf_put_fvar (ng, model, ncname, 'ResRate',               &
     &                      resrate(ng), (/0/), (/0/),                  &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN