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

Context Navigation

← Previous Changeset
Next Changeset →

Changeset 9087

Timestamp:

2017-12-15T17:44:37+01:00 (7 years ago)

Author:

alistairsellar

Message:

Constants for min=1.0

File:

: 1 edited

branches/UKMO/dev_r5518_GO6_CarbFix_DMSMin/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

branches/UKMO/dev_r5518_GO6_CarbFix_DMSMin/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90

-                      r9086
+                      r9087
         Qterm = xdin / (xdin + 0.5)
         fq1 = log10(CHL * Jterm * Qterm)
         cutoff = 1.59
         dmsmin = 1.25
+        cutoff = 1.56
+        dmsmin = 1.0
         if (fq1 > cutoff) then
            dms_andr = (8.24 * (fq1 - cutoff)) + dmsmin

Note: See TracChangeset for help on using the changeset viewer.

Download in other formats: