/*
** svn $Id: nemuro_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 Nemuro ecosystem model input parameters into output NetCDF **
** files. It is included in routine "wrt_info.F". **
** **
************************************************************************
*/
!
! Write out Nemuro 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, 'AttPS', &
& AttPS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'AttPL', &
& AttPL(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, 'AlphaPS', &
& AlphaPS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'AlphaPL', &
& AlphaPL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'BetaPS', &
& BetaPS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'BetaPL', &
& BetaPL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'VmaxS', &
& VmaxS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'VmaxL', &
& VmaxL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_NO3S', &
& KNO3S(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_NO3L', &
& KNO3L(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_NH4S', &
& KNH4S(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_NH4L', &
& KNH4L(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_SiL', &
& KSiL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PusaiS', &
& PusaiS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PusaiL', &
& PusaiL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KGppS', &
& KGppS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KGppL', &
& KGppL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ResPS0', &
& ResPS0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ResPL0', &
& ResPL0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KResPS', &
& KResPS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KResPL', &
& KResPL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'GammaS', &
& GammaS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'GammaL', &
& GammaL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'MorPS0', &
& MorPS0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'MorPL0', &
& MorPL0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KMorPS', &
& KMorPS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KMorPL', &
& KMorPL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'GRmaxSps', &
& GRmaxSps(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'GRmaxSpl', &
& GRmaxSpl(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'GRmaxLps', &
& GRmaxLps(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'GRmaxLpl', &
& GRmaxLpl(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'GRmaxLzs', &
& GRmaxLzs(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'GRmaxPpl', &
& GRmaxPpl(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'GRmaxPzs', &
& GRmaxPzs(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'GRmaxPzl', &
& GRmaxPzl(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KGraS', &
& KGraS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KGraL', &
& KGraL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KGraP', &
& KGraP(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'LamS', &
& LamS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'LamL', &
& LamL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'LamP', &
& LamP(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
#ifdef HOLLING_GRAZING
CALL netcdf_put_fvar (ng, model, ncname, 'K_PS2ZS', &
& KPS2ZS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_PL2ZS', &
& KPL2ZS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_PS2ZL', &
& KPS2ZL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_PL2ZL', &
& KPL2ZL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_ZS2ZL', &
& KZS2ZL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_PL2ZP', &
& KPL2ZP(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_ZS2ZP', &
& KZS2ZP(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'K_ZL2ZP', &
& KZL2ZP(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
#else
CALL netcdf_put_fvar (ng, model, ncname, 'PS2ZSstar', &
& PS2ZSstar(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PL2ZSstar', &
& PL2ZSstar(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PS2ZLstar', &
& PS2ZLstar(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PL2ZLstar', &
& PL2ZLstar(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PL2ZLstar', &
& PL2ZLstar(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PL2ZPstar', &
& PL2ZPstar(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ZS2ZPstar', &
& ZS2ZPstar(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'ZL2ZPstar', &
& ZL2ZPstar(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
#endif
CALL netcdf_put_fvar (ng, model, ncname, 'PusaiPL', &
& PusaiPL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'PusaiZS', &
& PusaiZS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'MorZS0', &
& MorZS0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'MorZL0', &
& MorZL0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'MorZP0', &
& MorZP0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'AlphaZS', &
& AlphaZS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'AlphaZL', &
& AlphaZL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'AlphaZP', &
& AlphaZP(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'BetaZS', &
& BetaZS(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'BetaZL', &
& BetaZL(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'BetaZP', &
& BetaZP(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'Nit0', &
& Nit0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'VP2N0', &
& VP2N0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'VP2D0', &
& VP2D0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'VD2N0', &
& VD2N0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'VO2S0', &
& VO2S0(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KNit', &
& KNit(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KNit', &
& KNit(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KP2D', &
& KP2D(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KP2N', &
& KP2N(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KD2N', &
& KD2N(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'KO2S', &
& KO2S(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'RSiN', &
& RSiN(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'setVPON', &
& setVPON(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'setVOpal', &
& setVOpal(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
#ifdef IRON_LIMIT
CALL netcdf_put_fvar (ng, model, ncname, 'T_Fe', &
& T_Fe(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'A_Fe', &
& A_Fe(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'B_Fe', &
& B_Fe(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'SK_FeC', &
& SK_FeC(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'LK_FeC', &
& LK_FeC(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
CALL netcdf_put_fvar (ng, model, ncname, 'FeRR', &
& FeRR(ng), (/0/), (/0/), &
& ncid = ncid)
IF (FoundError(exit_flag, NoError, __LINE__, &
& __FILE__)) RETURN
#endif