New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6715 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90 – NEMO

Ignore:
Timestamp:
2016-06-16T18:58:14+02:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 16-06-2016 -- MEDUSA branch update :

-- pass co2 flux and dms_surf through restart for atm coupling.
-- introduce CFC cycle for dynamic evolution comparison
-- add Tim Graham Age tracer
-- include MEDUSA Q10 modif
-- svn-key removed
-- still need debug stage

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

    r5937 r6715  
    6565      ! 
    6666      NAMELIST/natbio/ xxi,xaln,xald,jphy,xvpn,xvpd,          & 
    67       &    xsin0,xnsi0,xuif,jliebig,                          & 
     67      &    xsin0,xnsi0,xuif,jliebig, jq10,                    & 
    6868      &    xthetam,xthetamd,xnln,xnld,xsld,xfln,xfld,         & 
    6969      &  xgmi,xgme,xkmi,xkme,xphi,xbetan,xbetac,xkc,          & 
    … …  
    586586            WRITE(numout,*) & 
    587587            &   ' phytoplankton growth is *temperature-dependent*            jphy        = ', jphy 
     588         elseif (jphy.eq.2) then 
     589            WRITE(numout,*) & 
     590            &   ' phytoplankton growth is *temperature-dependent(Q10)*       jphy        = ', jphy 
    588591         elseif (jphy.eq.0) then 
    589592            WRITE(numout,*) & 
    … …  
    598601         WRITE(numout,*)     & 
    599602         &   ' maximum Chl to C ratio for diatoms,                        xthetamd    = ', xthetamd 
     603         WRITE(numout,*)     & 
     604         &   ' specific Q10 value (jphy==2),                                  jq10    = ', jq10 
    600605!! 
    601606!! Diatom silicon parameters 
    … …  
    746751            WRITE(numout,*) & 
    747752            &   ' detritus remineralisation is *temperature-dependent*       jmd         = ', jmd 
     753         elseif (jmd.eq.2) then 
     754            WRITE(numout,*) & 
     755            &   ' detritus remineralisation is *temperature-dependent(Q10)*  jmd         = ', jmd 
    748756         elseif (jmd.eq.0) then 
    749757            WRITE(numout,*) & 
Note: See TracChangeset for help on using the changeset viewer.