Changeset 6904 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

Timestamp:

2016-09-01T12:17:31+02:00 (8 years ago)

Author:

gm

Message:

#1692 - branch SIMPLIF_2_usrdef: OVERFLOW configuration (zco & sco) + small bug corrections

File:

• branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90 (modified) (1 diff)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -132 +132 @@
       DO jj = 1, jpj
          DO ji = 1, jpi
-            iktop = k_top(ji,jj)
-            ikbot = k_bot(ji,jj)
+            iktop = MAX( k_top(ji,jj) , 1 )
+            ikbot =      k_bot(ji,jj)
             tmask(ji,jj,      1:iktop-1) = 0._wp      ! mask the iceshelves
             tmask(ji,jj,iktop  :ikbot  ) = 1._wp
-            tmask(ji,jj,ikbot+1:jpkglo ) = 0._wp      ! mask the ocean topography
+            tmask(ji,jj,ikbot+1:jpk    ) = 0._wp      ! mask the ocean topography
          END DO  
       END DO