Changeset 7766 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90

Timestamp:

2017-03-07T19:30:03+01:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- adapted MEDUSA_SBC to coupled mode, and merged this branch with RICHARD s fixes_part2 branch

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90 (modified) (5 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90

@@ -5 +5 @@
    !!======================================================================
    !! History :
-   !!  -   !  2014-08  (J. Palmiéri - A. Yool)    added for UKESM1 project
+   !!  -   !  2014-08  (J. Palmieri - A. Yool)    added for UKESM1 project
    !!----------------------------------------------------------------------
 #if defined key_medusa && defined key_roam
@@ -44 +44 @@
       !!
       !! Title  : Calculates DMS ocean surface concentration
-      !! Author : Julien Palmiéri and Andrew Yool
+      !! Author : Julien Palmieri and Andrew Yool
       !! Date   : 08/08/14 
       !!
@@ -118 +118 @@
 !
 ! AXY (13/03/15): Simo & Dachs (2002)
-        fq1 = (-1 * log(mld)) + 5.7
+        fq1 = (-1.0 * log(mld)) + 5.7
         fq2 = (55.8 * cmr) + 0.6
         if (cmr < 0.02) then
@@ -136 +136 @@
 !        
 ! AXY (13/03/15): Halloran et al. (2010)
-        fq1 = (-1 * log(mld)) + 5.7
+        fq1 = (-1.0 * log(mld)) + 5.7
         fq2 = (55.8 * cmr) + 0.6
         fq3 = (90.0 / mld)
@@ -179 +179 @@
 
 
+