/*
** git $Id$
** svn $Id$
*************************************************** Hernan G. Arango ***
** Copyright (c) 2002-2023 The ROMS/TOMS Group                        **
**   Licensed under a MIT/X style license                             **
**   See License_ROMS.md                                              **
************************************************************************
**                                                                    **
**  Writes sediment model input parameters into output NetCDF files.  **
**  It is included in routine "wrt_info.F".                           **
**                                                                    **
************************************************************************
*/

!
!  Write out Nemuro ecosystem model parameters.
!
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'minlayer_thick',    &
     &                          minlayer_thick(ng), (/0/), (/0/),       &
     &                          pioFile = pioFile)
      IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN

      CALL pio_netcdf_put_fvar (ng, model, ncname, 'newlayer_thick',    &
     &                          newlayer_thick(ng), (/0/), (/0/),       &
     &                          pioFile = pioFile)
      IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN

#ifdef BEDLOAD
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'bedload_coeff',     &
     &                          bedload_coeff(ng), (/0/), (/0/),        &
     &                          pioFile = pioFile)
      IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN
#endif

#ifdef ANA_SEDIMENT
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'Sd50',              &
     &                          Sd50(:,ng), (/1/), (/NST/),             &
     &                          pioFile = pioFile)
      IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN

      CALL pio_netcdf_put_fvar (ng, model, ncname, 'Srho',              &
     &                          Srho(:,ng), (/1/), (/NST/),             &
     &                          pioFile = pioFile)
      IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN

      CALL pio_netcdf_put_fvar (ng, model, ncname, 'Csed',              &
     &                          Csed(:,ng), (/1/), (/NST/),             &
     &                          pioFile = pioFile)
      IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN
#endif

      CALL pio_netcdf_put_fvar (ng, model, ncname, 'Wsed',              &
     &                          Wsed(:,ng), (/1/), (/NST/),             &
     &                          pioFile = pioFile)
      IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN

      CALL pio_netcdf_put_fvar (ng, model, ncname, 'Erate',             &
     &                          Erate(:,ng), (/1/), (/NST/),            &
     &                          pioFile = pioFile)
      IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN

      CALL pio_netcdf_put_fvar (ng, model, ncname, 'tau_ce',            &
     &                          tau_ce(:,ng), (/1/), (/NST/),           &
     &                          pioFile = pioFile)
      IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN

      CALL pio_netcdf_put_fvar (ng, model, ncname, 'tau_cd',            &
     &                          tau_cd(:,ng), (/1/), (/NST/),           &
     &                          pioFile = pioFile)
      IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN

      CALL pio_netcdf_put_fvar (ng, model, ncname, 'poros',             &
     &                          poros(:,ng), (/1/), (/NST/),            &
     &                          pioFile = pioFile)
      IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN