Changeset 497 for trunk/NEMO/OFF_SRC/DOM/domzgr_substitute.h90

Timestamp:

2006-09-12T13:03:53+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_064:CE:re-organization of coordinate definition and scale factors

File:

• trunk/NEMO/OFF_SRC/DOM/domzgr_substitute.h90 (modified) (1 diff)

trunk/NEMO/OFF_SRC/DOM/domzgr_substitute.h90

@@ -5 +5 @@
    !!      factors depending on the vertical coord. used, using CPP macro.
    !!----------------------------------------------------------------------
-   !!   OPA 9.0 , LOCEAN-IPSL  (2005)
-   !!   $Header$
-   !!   This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
    !!----------------------------------------------------------------------
-#if defined key_s_coord
-   !! s-coord:  substitution  fsdep.(,,) ==>  hbat.(,) * gsig.()
-   !!                         fse3.(,,)  ==>  hbat.(,) * esig.()
-#   define  fsdept(i,j,k)   hbatt(i,j)*gsigt(k)
-#   define  fsdepu(i,j,k)   hbatu(i,j)*gsigt(k)
-#   define  fsdepv(i,j,k)   hbatv(i,j)*gsigt(k)
-#   define  fsdepf(i,j,k)   hbatf(i,j)*gsigt(k)
-#   define  fsdepw(i,j,k)   hbatt(i,j)*gsigw(k)
-#   define  fsdepuw(i,j,k)  hbatu(i,j)*gsi3w(k)
-#   define  fsdepvw(i,j,k)  hbatv(i,j)*gsi3w(k)
-#   define  fsde3w(i,j,k)   hbatt(i,j)*gsi3w(k)
-#   define  fse3t(i,j,k)    hbatt(i,j)*esigt(k)
-#   define  fse3u(i,j,k)    hbatu(i,j)*esigt(k)
-#   define  fse3v(i,j,k)    hbatv(i,j)*esigt(k)
-#   define  fse3f(i,j,k)    hbatf(i,j)*esigt(k)
-#   define  fse3w(i,j,k)    hbatt(i,j)*esigw(k)
-#   define  fse3uw(i,j,k)   hbatu(i,j)*esigw(k)
-#   define  fse3vw(i,j,k)   hbatv(i,j)*esigw(k)
-#elif defined key_partial_steps
-   !! z-coord:  substitution  fsdep.(,,) ==>  gdep._ps()
-   !!                         fse3.(,,)  ==>  e3._ps()
-#   define  fsdept(i,j,k)   gdept_ps(i,j,k)
-#   define  fsdepw(i,j,k)   gdepw_ps(i,j,k)
-#   define  fsde3w(i,j,k)   gdep3w(i,j,k)
-#   define  fsdepuw(i,j,k)  gdepw(k)
-#   define  fsdepvw(i,j,k)  gdepw(k)
-#   define  fse3t(i,j,k)    e3t_ps(i,j,k)
-#   define  fse3u(i,j,k)    e3u_ps(i,j,k)
-#   define  fse3v(i,j,k)    e3v_ps(i,j,k)
-#   define  fse3f(i,j,k)    e3f_ps(i,j,k)
-#   define  fse3w(i,j,k)    e3w_ps(i,j,k)
-#   define  fse3uw(i,j,k)   e3uw_ps(i,j,k)
-#   define  fse3vw(i,j,k)   e3vw_ps(i,j,k)
+   !!  OPA 9.0 , LOCEAN-IPSL (2005) 
+   !!
+   !! History :
+   !!   9.0  !  05-10  (A. Beckmann, G. Madec) generalisation to all coord.
+   !!----------------------------------------------------------------------
+#if defined key_zco
+#   define  fsdept(i,j,k)  gdept_0(k)
+
+#   define  fsdepw(i,j,k)  gdepw_0(k)
+#   define  fsde3w(i,j,k)  gdepw_0(k)
+
+#   define  fse3t(i,j,k)   e3t_0(k)
+#   define  fse3u(i,j,k)   e3t_0(k)
+#   define  fse3v(i,j,k)   e3t_0(k)
+#   define  fse3f(i,j,k)   e3t_0(k)
+
+#   define  fse3w(i,j,k)   e3w_0(k)
+#   define  fse3uw(i,j,k)  e3w_0(k)
+#   define  fse3vw(i,j,k)  e3w_0(k)
 #else
-   !! z-coord:  substitution  fsdep.(,,) ==>  gdep()
-   !!                         fse3.(,,)  ==>  e3.()
-#   define  fsdept(i,j,k)   gdept(k)
-#   define  fsdepu(i,j,k)   gdept(k)
-#   define  fsdepv(i,j,k)   gdept(k)
-#   define  fsdepf(i,j,k)   gdept(k)
-#   define  fsdepw(i,j,k)   gdepw(k)
-#   define  fsdepuw(i,j,k)  gdepw(k)
-#   define  fsdepvw(i,j,k)  gdepw(k)
-#   define  fse3t(i,j,k)   e3t(k)
-#   define  fse3u(i,j,k)   e3t(k)
-#   define  fse3v(i,j,k)   e3t(k)
-#   define  fse3f(i,j,k)   e3t(k)
-#   define  fse3w(i,j,k)   e3w(k)
-#   define  fse3uw(i,j,k)  e3w(k)
-#   define  fse3vw(i,j,k)  e3w(k)
+#   define  fsdept(i,j,k)  gdept(i,j,k)
+
+#   define  fsdepw(i,j,k)  gdepw(i,j,k)
+#   define  fsde3w(i,j,k)  gdep3w(i,j,k)
+ 
+#   define  fse3t(i,j,k)   e3t(i,j,k)
+#   define  fse3u(i,j,k)   e3u(i,j,k)
+#   define  fse3v(i,j,k)   e3v(i,j,k)
+#   define  fse3f(i,j,k)   e3f(i,j,k)
+
+#   define  fse3w(i,j,k)   e3w(i,j,k)
+#   define  fse3uw(i,j,k)  e3uw(i,j,k)
+#   define  fse3vw(i,j,k)  e3vw(i,j,k)
 #endif