Changeset 10302 for branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/TOP_SRC/MEDUSA/phytoplankton.F90

Timestamp:

2018-11-13T18:21:16+01:00 (5 years ago)

Author:

dford

Message:

Merge in revisions 8447:10159 of dev_r5518_GO6_package.

File:

• branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/TOP_SRC/MEDUSA/phytoplankton.F90 (modified) (4 diffs)

branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/TOP_SRC/MEDUSA/phytoplankton.F90

@@ -6 +6 @@
    !! History :
    !!   -   ! 2017-04 (M. Stringer)        Code taken from trcbio_medusa.F90
+   !!   -   ! 2017-08 (A. Yool)            Mean mixed layer chlorophyll
    !!----------------------------------------------------------------------
 #if defined key_medusa
@@ -42 +43 @@
                                    zchd, zchn, zdet, zdin, zdtc,         &
                                    zfer, zpds, zphd, zphn, zsil,         &
-                                   zzme, zzmi
-      USE dom_oce,           ONLY: e3t_0, e3t_n, gdepw_0, gdepw_n, tmask
+                                   zzme, zzmi, fchl_ml
+      USE dom_oce,           ONLY: e3t_0, gdepw_0, tmask
+#if defined key_vvl
+      USE dom_oce,           ONLY: e3t_n, gdepw_n
+#endif
       USE in_out_manager,    ONLY: lwp, numout
       USE oce,               ONLY: tsn
@@ -55 +59 @@
                                    xvpd, xvpn, xxi
       USE zdfmxl,            ONLY: hmld
+      USE lbclnk,            ONLY: lbc_lnk
 
    !!* Substitution
@@ -373 +378 @@
                fprd_ml(ji,jj) = fprd_ml(ji,jj) + (fprd(ji,jj) * zphd(ji,jj) * &
                                                   fse3t(ji,jj,jk) * fq0)
-            ENDIF
-         ENDDO
-      ENDDO
+          !! AXY (16/08/17)
+          fchl_ml(ji,jj) = fchl_ml(ji,jj) + ((zchn(ji,jj) + zchd(ji,jj)) * &
+                                             (fse3t(ji,jj,jk) * fq0) / hmld(ji,jj))
+            ENDIF
+         ENDDO
+      ENDDO
+      CALL lbc_lnk(fchl_ml(:,:),'T',1. )
 
       DO jj = 2,jpjm1