Changeset 6549 for branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90

Timestamp:

2016-05-18T09:47:54+02:00 (8 years ago)

Author:

deazer

Message:

bug fix index for bottom

File:

• branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90 (modified) (1 diff)

branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90

@@ -108 +108 @@
       DO ji = 1,jpi
          DO jj = 1,jpj
-            jk              = max(1,mbathy(ji,jj) - 1)
+            jk              = max(1,mbathy(ji,jj) )
             outtmb(ji,jj,3) = infield(ji,jj,jk)*tmask(ji,jj,jk)  + zmdi*(1.0-tmask(ji,jj,jk))
          END DO