Changeset 6772 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr_substitute.h90

Timestamp:

2016-07-01T18:02:45+02:00 (8 years ago)

Author:

cbricaud

Message:

clean in coarsening branch

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr_substitute.h90 (modified) (2 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr_substitute.h90

@@ -8 +8 @@
    !!            3.1  !  2009-02  (G. Madec, M. Leclair)  pure z* coordinate
    !!----------------------------------------------------------------------
+
 
 #if defined key_vvl
@@ -116 +117 @@
 
 #endif
+
+
+#if defined key_vvl
+! s* or z*-coordinate (3D + time dependency) + use of additional now arrays (..._n)
+
+#   define  fse3t_crs(i,j,k)   e3t_n_crs(i,j,k)
+#   define  fse3u_crs(i,j,k)   e3u_n_crs(i,j,k)
+#   define  fse3v_crs(i,j,k)   e3v_n_crs(i,j,k)
+#   define  fse3w_crs(i,j,k)   e3w_n_crs(i,j,k)
+
+#   define  fse3t_b_crs(i,j,k)   e3t_b_crs(i,j,k)
+#   define  fse3u_b_crs(i,j,k)   e3u_b_crs(i,j,k)
+#   define  fse3v_b_crs(i,j,k)   e3v_b_crs(i,j,k)
+#   define  fse3w_b_crs(i,j,k)   e3w_b_crs(i,j,k)
+#   define  fse3t_n_crs(i,j,k)   e3t_n_crs(i,j,k)
+#   define  fse3u_n_crs(i,j,k)   e3u_n_crs(i,j,k)
+#   define  fse3v_n_crs(i,j,k)   e3v_n_crs(i,j,k)
+#   define  fse3w_n_crs(i,j,k)   e3w_n_crs(i,j,k)
+#   define  fse3t_a_crs(i,j,k)   e3t_a_crs(i,j,k)
+#   define  fse3u_a_crs(i,j,k)   e3u_a_crs(i,j,k)
+#   define  fse3v_a_crs(i,j,k)   e3v_a_crs(i,j,k)
+#   define  fse3w_a_crs(i,j,k)   e3w_a_crs(i,j,k)
+
+#   define  fse3t_max_crs(i,j,k)   e3t_max_n_crs(i,j,k)
+#   define  fse3u_max_crs(i,j,k)   e3u_max_n_crs(i,j,k)
+#   define  fse3v_max_crs(i,j,k)   e3v_max_n_crs(i,j,k)
+#   define  fse3w_max_crs(i,j,k)   e3w_max_n_crs(i,j,k)
+
+#   define  fsdept_crs(i,j,k)   gdept_n_crs(i,j,k)
+#   define  fsdepw_crs(i,j,k)   gdepw_n_crs(i,j,k)
+
+#else
+! z- or s-coordinate (1D or 3D + no time dependency) use reference in all cases
+
+#   define  fse3t_crs(i,j,k)   e3t_0_crs(i,j,k)
+#   define  fse3u_crs(i,j,k)   e3u_0_crs(i,j,k)
+#   define  fse3v_crs(i,j,k)   e3v_0_crs(i,j,k)
+#   define  fse3w_crs(i,j,k)   e3w_0_crs(i,j,k)
+
+#   define  fse3t_b_crs(i,j,k)   e3t_0_crs(i,j,k)
+#   define  fse3u_b_crs(i,j,k)   e3u_0_crs(i,j,k)
+#   define  fse3v_b_crs(i,j,k)   e3v_0_crs(i,j,k)
+#   define  fse3w_b_crs(i,j,k)   e3w_0_crs(i,j,k)
+#   define  fse3t_n_crs(i,j,k)   e3t_0_crs(i,j,k)
+#   define  fse3u_n_crs(i,j,k)   e3u_0_crs(i,j,k)
+#   define  fse3v_n_crs(i,j,k)   e3v_0_crs(i,j,k)
+#   define  fse3w_n_crs(i,j,k)   e3w_0_crs(i,j,k)
+#   define  fse3t_a_crs(i,j,k)   e3t_0_crs(i,j,k)
+#   define  fse3u_a_crs(i,j,k)   e3u_0_crs(i,j,k)
+#   define  fse3v_a_crs(i,j,k)   e3v_0_crs(i,j,k)
+#   define  fse3w_a_crs(i,j,k)   e3w_0_crs(i,j,k)
+
+#   define  fse3t_max_crs(i,j,k)   e3t_max_0_crs(i,j,k)
+#   define  fse3u_max_crs(i,j,k)   e3u_max_0_crs(i,j,k)
+#   define  fse3v_max_crs(i,j,k)   e3v_max_0_crs(i,j,k)
+#   define  fse3w_max_crs(i,j,k)   e3w_max_0_crs(i,j,k)
+
+#   define  fsdept_crs(i,j,k)   gdept_0_crs(i,j,k)
+#   define  fsdepw_crs(i,j,k)   gdepw_0_crs(i,j,k)
+
+#endif
+
+
+
    !!----------------------------------------------------------------------
    !! NEMO/OPA 3.3 , NEMO Consortium (2010)