Changeset 9086
- Timestamp:
- 2017-12-15T17:44:09+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_CarbFix_DMSMin/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90
r9084 r9086 120 120 Qterm = xdin / (xdin + 0.5) 121 121 fq1 = log10(CHL * Jterm * Qterm) 122 cutoff = 1. 62123 dmsmin = 1. 5122 cutoff = 1.59 123 dmsmin = 1.25 124 124 if (fq1 > cutoff) then 125 125 dms_andr = (8.24 * (fq1 - cutoff)) + dmsmin
Note: See TracChangeset
for help on using the changeset viewer.