Changeset 8062 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/plankton.F90

Timestamp:

2017-05-24T10:03:18+02:00 (7 years ago)

Author:

marc

Message:

Fixes to do with tmask(ji,jj,1) and mbathy(ji,jj) outside DO loop

File:

• branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/plankton.F90 (modified) (4 diffs)

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/plankton.F90

@@ -84 +84 @@
       DO jj = 2,jpjm1
          DO ji = 2,jpim1
-            if (tmask(ji,jj,1) == 1) then
+            if (tmask(ji,jj,jk) == 1) then
                !!----------------------------------------------------------
                !! Plankton mortality losses
@@ -112 +112 @@
       DO jj = 2,jpjm1
          DO ji = 2,jpim1
-            if (tmask(ji,jj,1) == 1) then
+            if (tmask(ji,jj,jk) == 1) then
                !!
                !! diatom phytoplankton
@@ -135 +135 @@
       DO jj = 2,jpjm1
          DO ji = 2,jpim1
-            if (tmask(ji,jj,1) == 1) then
+            if (tmask(ji,jj,jk) == 1) then
                !!
                !! microzooplankton
@@ -157 +157 @@
       DO jj = 2,jpjm1
          DO ji = 2,jpim1
-            if (tmask(ji,jj,1) == 1) then
+            if (tmask(ji,jj,jk) == 1) then
                !!
                !! mesozooplankton