Changeset 9084
- Timestamp:
- 2017-12-15T17:43:42+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_CarbFix_DMSMin/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90
r9083 r9084 120 120 Qterm = xdin / (xdin + 0.5) 121 121 fq1 = log10(CHL * Jterm * Qterm) 122 cutoff = 1. 72123 dmsmin = 1. 72122 cutoff = 1.62 123 dmsmin = 1.5 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.