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

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

@@ -432 +432 @@
          DO jj = 2,jpjm1
             DO ji = 2,jpim1
-               if (tmask(ji,jj,1) == 1) then
+               if (tmask(ji,jj,jk) == 1) then
                   !! microzooplankton
                   zzmi(ji,jj) = max(0.,trn(ji,jj,jk,jpzmi))
@@ -452 +452 @@
          DO jj = 2,jpjm1
             DO ji = 2,jpim1
-               if (tmask(ji,jj,1) == 1) then
+               if (tmask(ji,jj,jk) == 1) then
                   !! detrital carbon
                   zdtc(ji,jj) = max(0.,trn(ji,jj,jk,jpdtc))
@@ -495 +495 @@
          DO jj = 2,jpjm1
             DO ji = 2,jpim1
-               if (tmask(ji,jj,1) == 1) then
+               if (tmask(ji,jj,jk) == 1) then
                   !! implicit detrital carbon
                   zdtc(ji,jj) = zdet(ji,jj) * xthetad
@@ -505 +505 @@
          DO jj = 2,jpjm1
             DO ji = 2,jpim1
-               if (tmask(ji,jj,1) == 1) then
+               if (tmask(ji,jj,jk) == 1) then
                   if (idf.eq.1) then
                      !! AXY (15/01/10)
@@ -560 +560 @@
 !            DO jj = 2,jpjm1
 !               DO ji = 2,jpim1
-!                  if (tmask(ji,jj,1) == 1) then
+!                  if (tmask(ji,jj,jk) == 1) then
 !                     !! report state variable values
 !                     IF (lwp) write (numout,*)                               &
@@ -592 +592 @@
 !            DO jj = 2,jpjm1
 !               DO ji = 2,jpim1
-!                  if (tmask(ji,jj,1) == 1) then
+!                  if (tmask(ji,jj,jk) == 1) then
 !                     IF (lwp) write (numout,*)                               &
 !                       '------------------------------'