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 8074 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90 – NEMO

Ignore:
Timestamp:
2017-05-25T18:43:39+02:00 (7 years ago)
Author:
jpalmier
Message:

JPALM -- reverse MEDUSA cleaning and update MOCSY

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r7894 r8074  
    3838!======================================================================= 
    3939! 
    40    SUBROUTINE trc_dms_medusa( chn, chd, mld, xqsr, xlim,   &  !! inputs 
     40   SUBROUTINE trc_dms_medusa( chn, chd, mld, xqsr, xdin,   &  !! inputs 
    4141     &  dms_andr, dms_simo, dms_aran, dms_hall )              !! outputs 
    4242!       
    … …  
    7575      !!                 to the atmosphere in trc_bio_medusa 
    7676      !! 
    77       !! AXY (28/03/17): replace DIN input with DIN limitation input 
    78       !!                 to resolve issue with fixed DIN uptake half- 
    79       !!                 saturation; trc_bio_medusa has corresponding 
    80       !!                 change to calculate DIN limitation term 
    81       !! 
    8277!======================================================================= 
    8378 
    … …  
    8883      REAL(wp), INTENT( in )    :: mld                  !! mix layer depth           (m) 
    8984      REAL(wp), INTENT( in )    :: xqsr                 !! surface irradiance        (W/m2) 
    90       REAL(wp), INTENT( in )    :: xlim                 !! surface DIN limitation    (mmol N/m3) 
     85      REAL(wp), INTENT( in )    :: xdin                 !! surface DIN               (mmol N/m3) 
    9186      REAL(wp), INTENT( inout ) :: dms_andr             !! DMS surface concentration (nmol/L)  
    9287      REAL(wp), INTENT( inout ) :: dms_simo             !! DMS surface concentration (nmol/L)  
    … …  
    114109        !! done properly; perhaps even scaled with the proportion 
    115110        !! of diatoms and non-diatoms) 
    116         !! Qterm = xdin / (xdin + 0.5) 
    117    !! AXY (28/03/17): replace DIN with DIN limitation 
    118         Qterm = xlim 
     111        Qterm = xdin / (xdin + 0.5) 
    119112        fq1 = log10(CHL * Jterm * Qterm) 
    120113        if (fq1 > 1.72) then 
Note: See TracChangeset for help on using the changeset viewer.