Changeset 1271 for trunk/NEMO/OPA_SRC/DOM/dommsk.F90

Timestamp:

2009-01-15T09:12:00+01:00 (16 years ago)

Author:

rblod

Message:

Addapt AGRIF routines to the new TOP organization, clean some routines and add a sponge layer for passive tracers, see ticket #293

File:

• trunk/NEMO/OPA_SRC/DOM/dommsk.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -229 +229 @@
                umask(ji,jj,jk) = tmask(ji,jj  ,jk) * tmask(ji+1,jj  ,jk)
                vmask(ji,jj,jk) = tmask(ji,jj  ,jk) * tmask(ji  ,jj+1,jk)
+            END DO
+            DO ji = 1, jpim1 
                fmask(ji,jj,jk) = tmask(ji,jj  ,jk) * tmask(ji+1,jj  ,jk)   &
                   &            * tmask(ji,jj+1,jk) * tmask(ji+1,jj+1,jk)