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 9083 for branches/UKMO – NEMO

Changeset 9083 for branches/UKMO


Ignore:
Timestamp:
2017-12-15T17:39:55+01:00 (6 years ago)
Author:
alistairsellar
Message:

Replace magic numbers with named constants

File:
1 edited

Legend:

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

    r8660 r9083  
    9999! 
    100100      REAL(wp) :: CHL, cmr, sw_dms 
    101       REAL(wp) :: Jterm, Qterm 
     101      REAL(wp) :: Jterm, Qterm, cutoff, dmsmin 
    102102      !! temporary variables 
    103103      REAL(wp) ::    fq1,fq2,fq3 
     
    120120        Qterm = xdin / (xdin + 0.5) 
    121121        fq1 = log10(CHL * Jterm * Qterm) 
    122         if (fq1 > 1.72) then 
    123            dms_andr = (8.24 * (fq1 - 1.72)) + 1.72 
    124         else 
    125            dms_andr = 1.72 
     122        cutoff = 1.72 
     123        dmsmin = 1.72 
     124        if (fq1 > cutoff) then 
     125           dms_andr = (8.24 * (fq1 - cutoff)) + dmsmin 
     126        else 
     127           dms_andr = dmsmin 
    126128        endif 
    127129! 
Note: See TracChangeset for help on using the changeset viewer.