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 8118 – NEMO

Changeset 8118


Ignore:
Timestamp:
2017-06-01T18:31:45+02:00 (7 years ago)
Author:
alistairsellar
Message:

Introduce a ramp to the minimum term so that it scales with fq1. It cannot drop
below 0.57.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/test_r7519_MEDUSA_anderson_DMSminramp/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90

    r8074 r8118  
    110110        !! of diatoms and non-diatoms) 
    111111        Qterm = xdin / (xdin + 0.5) 
    112         fq1 = log10(CHL * Jterm * Qterm) 
     112        fq1 = max(0.0, log10(CHL * Jterm * Qterm)) 
    113113        if (fq1 > 1.72) then 
    114114           dms_andr = (8.24 * (fq1 - 1.72)) + 2.29 
    115115        else 
    116            dms_andr = 2.29 
     116           dms_andr = fq1 + 0.57 
    117117        endif 
    118118! 
Note: See TracChangeset for help on using the changeset viewer.