Changeset 8062 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/zooplankton.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/zooplankton.F90 (modified) (4 diffs)

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

@@ -122 +122 @@
       DO jj = 2,jpjm1
          DO ji = 2,jpim1
-            if (tmask(ji,jj,1) == 1) then
+            if (tmask(ji,jj,jk) == 1) then
                !!
                !! which translates to these incoming N and C fluxes
@@ -175 +175 @@
       DO jj = 2,jpjm1
          DO ji = 2,jpim1
-            if (tmask(ji,jj,1) == 1) then
+            if (tmask(ji,jj,jk) == 1) then
                !!----------------------------------------------------------
                !! Mesozooplankton second
@@ -230 +230 @@
       DO jj = 2,jpjm1
          DO ji = 2,jpim1
-            if (tmask(ji,jj,1) == 1) then
+            if (tmask(ji,jj,jk) == 1) then
                !!
                !! the ideal food C:N ratio for mesozooplankton
@@ -281 +281 @@
       DO jj = 2,jpjm1
          DO ji = 2,jpim1
-            if (tmask(ji,jj,1) == 1) then
+            if (tmask(ji,jj,jk) == 1) then
                fzmi_i(ji,jj)  = fzmi_i(ji,jj)  + fse3t(ji,jj,jk) *          &
                                 ( fgmipn(ji,jj) + fgmid(ji,jj) )