/*
** svn $Id: fennel_wrt.h 889 2018-02-10 03:32:52Z arango $
*************************************************** Hernan G. Arango ***
** Copyright (c) 2002-2019 The ROMS/TOMS Group **
** Licensed under a MIT/X style license **
** See License_ROMS.txt **
************************************************************************
** **
** Writes Fennel et al. (2006) ecosystem model input parameters into **
** output NetCDF files. It is included in routine "wrt_info.F". **
** **
************************************************************************
*/
!
! Write out Fennel et al. (2006) ecosystem model parameters.
!
CALL netcdf_put_ivar (ng, model, ncname, 'BioIter', &
& BioIter(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'AttSW', &
& AttSW(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'AttChl', &
& AttChl(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PARfrac', &
& PARfrac(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'Vp0', &
& Vp0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'I_thNH4', &
& I_thNH4(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'D_p5NH4', &
& D_p5NH4(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'NitriR', &
& NitriR(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_NO3', &
& K_NO3(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_NH4', &
& K_NH4(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_Phy', &
& K_Phy(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'Chl2C_m', &
& Chl2C_m(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ChlMin', &
& ChlMin(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PhyCN', &
& PhyCN(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PhyIP', &
& PhyIP(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PhyIS', &
& PhyIS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PhyMin', &
& PhyMin(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PhyMR', &
& PhyMR(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ZooAE_N', &
& ZooAE_N(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ZooBM', &
& ZooBM(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ZooCN', &
& ZooCN(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ZooER', &
& ZooER(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ZooGR', &
& ZooGR(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ZooMin', &
& ZooMin(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ZooMR', &
& ZooMR(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'LDeRRN', &
& LDeRRN(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'LDeRRC', &
& LDeRRC(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'CoagR', &
& CoagR(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'SDeRRN', &
& SDeRRN(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'SDeRRC', &
& SDeRRC(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'wPhy', &
& wPhy(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'wLDet', &
& wLDet(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'wSDet', &
& wSDet(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'pCO2air', &
& pCO2air(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN