/* ** 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