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

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

@@ -116 +116 @@
       DO jj = 2,jpjm1
          DO ji = 2,jpim1
-            IF (tmask(ji,jj,1) == 1) THEN
+            IF (tmask(ji,jj,jk) == 1) THEN
                !!
                !! this variable integrates the creation of slow sinking 
@@ -167 +167 @@
       DO jj = 2,jpjm1
          DO ji = 2,jpim1
-            IF (tmask(ji,jj,1) == 1) THEN
+            IF (tmask(ji,jj,jk) == 1) THEN
                !!
                !! nitrogen