Changeset 469 for trunk/NEMO/NST_SRC/agrif_opa_update.F90

Timestamp:

2006-05-10T19:51:23+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_059:RB: adapt agrif interface to new coordinate

File:

• trunk/NEMO/NST_SRC/agrif_opa_update.F90 (modified) (5 diffs)

trunk/NEMO/NST_SRC/agrif_opa_update.F90

@@ -66 +66 @@
 !
 !
-       
       IF ((Agrif_NbStepint() .NE. (Agrif_irhot()-1)).AND.(kt /= 0)) Return
 #if defined TWO_WAY
@@ -205 +204 @@
              DO ji=i1,i2
                tabres(ji,jj,jk) = e2u(ji,jj) * un(ji,jj,jk)
-#if defined key_partial_steps
+#if ! defined key_zco
                tabres(ji,jj,jk) = tabres(ji,jj,jk) * fse3u(ji,jj,jk)
 #endif
@@ -221 +220 @@
                un(ji,jj,jk) = tabres(ji,jj,jk) / (e2u(ji,jj))
                un(ji,jj,jk) = un(ji,jj,jk) * umask(ji,jj,jk)
-#if defined key_partial_steps
+#if ! defined key_zco
                un(ji,jj,jk) = un(ji,jj,jk) / fse3u(ji,jj,jk)
 #endif
@@ -249 +248 @@
              DO ji=i1,i2
                tabres(ji,jj,jk) = e1v(ji,jj) * vn(ji,jj,jk)
-#if defined key_partial_steps
+#if ! defined key_zco
                tabres(ji,jj,jk) = tabres(ji,jj,jk) * fse3v(ji,jj,jk)
 #endif
@@ -265 +264 @@
                vn(ji,jj,jk) = tabres(ji,jj,jk) / (e1v(ji,jj))
                vn(ji,jj,jk) = vn(ji,jj,jk) * vmask(ji,jj,jk)
-#if defined key_partial_steps
+#if ! defined key_zco
                vn(ji,jj,jk) = vn(ji,jj,jk) / fse3v(ji,jj,jk)
 #endif