Changeset 6810 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

Timestamp:

2016-07-20T14:54:06+02:00 (8 years ago)

Author:

jpalmier

Message:

JPALM -- 20-07-2016 -- adapt dust conversion to SI dust-dep units

-- correct idtra negative values

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90 (modified) (1 diff)

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

@@ -2509 +2509 @@
                !! aeolian iron deposition
                if (jk.eq.1) then
-                  !! dust   is in g Fe / m2 / month
-                  !! ffetop is in mmol / m3 / day
-                  ffetop  = (((dust(ji,jj) * 1.e3 * xfe_sol) / xfe_mass) / fthk) / 30.
+                  !! zirondep   is in mmol-Fe / m2 / day
+                  !! ffetop     is in mmol-dissolved-Fe / m3 / day
+                  ffetop  = zirondep(ji,jj) * xfe_sol / fthk 
                else
                   ffetop  = 0.0