Changeset 9083 for branches/UKMO
- Timestamp:
- 2017-12-15T17:39:55+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
r8660 r9083 99 99 ! 100 100 REAL(wp) :: CHL, cmr, sw_dms 101 REAL(wp) :: Jterm, Qterm 101 REAL(wp) :: Jterm, Qterm, cutoff, dmsmin 102 102 !! temporary variables 103 103 REAL(wp) :: fq1,fq2,fq3 … … 120 120 Qterm = xdin / (xdin + 0.5) 121 121 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 126 128 endif 127 129 !
Note: See TracChangeset
for help on using the changeset viewer.