sediment_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 sediment model input parameters into output netcdf files.  **
**  it is included in routine "wrt_info.F".                           **
**                                                                    **
************************************************************************
*/
 
!
!  Write out Nemuro ecosystem model parameters.
!
      CALL netcdf_put_fvar (ng, model, ncname, 'minlayer_thick',        &
     &                      minlayer_thick(ng), (/0/), (/0/),           &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL netcdf_put_fvar (ng, model, ncname, 'newlayer_thick',        &
     &                      newlayer_thick(ng), (/0/), (/0/),           &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
#ifdef BEDLOAD
      CALL netcdf_put_fvar (ng, model, ncname, 'bedload_coeff',         &
     &                      bedload_coeff(ng), (/0/), (/0/),            &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
#endif
 
#ifdef ANA_SEDIMENT
      CALL netcdf_put_fvar (ng, model, ncname, 'Sd50',                  &
     &                      sd50(:,ng), (/1/), (/nst/),                 &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL netcdf_put_fvar (ng, model, ncname, 'Srho',                  &
     &                      srho(:,ng), (/1/), (/nst/),                 &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL netcdf_put_fvar (ng, model, ncname, 'Csed',                  &
     &                      csed(:,ng), (/1/), (/nst/),                 &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
#endif
 
      CALL netcdf_put_fvar (ng, model, ncname, 'Wsed',                  &
     &                      wsed(:,ng), (/1/), (/nst/),                 &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL netcdf_put_fvar (ng, model, ncname, 'Erate',                 &
     &                      erate(:,ng), (/1/), (/nst/),                &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL netcdf_put_fvar (ng, model, ncname, 'tau_ce',                &
     &                      tau_ce(:,ng), (/1/), (/nst/),               &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL netcdf_put_fvar (ng, model, ncname, 'tau_cd',                &
     &                      tau_cd(:,ng), (/1/), (/nst/),               &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL netcdf_put_fvar (ng, model, ncname, 'poros',                 &
     &                      poros(:,ng), (/1/), (/nst/),                &
     &                      ncid = ncid)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN