Changeset 8660
- Timestamp:
- 2017-10-26T11:50:32+02: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
r8132 r8660 121 121 fq1 = log10(CHL * Jterm * Qterm) 122 122 if (fq1 > 1.72) then 123 dms_andr = (8.24 * (fq1 - 1.72)) + 2.29124 else 125 dms_andr = 2.29123 dms_andr = (8.24 * (fq1 - 1.72)) + 1.72 124 else 125 dms_andr = 1.72 126 126 endif 127 127 !
Note: See TracChangeset
for help on using the changeset viewer.