source:
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/OBC/obc_oce_ftrans.h90
@
4400
Last change on this file since 4400 was 3211, checked in by spickles2, 12 years ago | |
---|---|
|
|
File size: 2.3 KB |
Rev | Line | |
---|---|---|
[3211] | 1 | !!---------------------------------------------------------------------- |
2 | !! *** obc_oce_ftrans *** | |
3 | !!---------------------------------------------------------------------- | |
4 | !! ** purpose : Directives to control permutation of array indices | |
5 | !! for multi-dimensional arrays with a z-dimension declared in module | |
6 | !! oce. It should be included wherever the module is used, | |
7 | !! and updated whenever a new array is added to the module. | |
8 | !!---------------------------------------------------------------------- | |
9 | !!---------------------------------------------------------------------- | |
10 | !! NEMO/OPA 3.3 , NEMO Consortium (2011) | |
11 | !! $Id$ | |
12 | !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) | |
13 | !!---------------------------------------------------------------------- | |
14 | ||
15 | #if defined key_z_first | |
16 | !FTRANS assert :z :I | |
17 | #else | |
18 | !FTRANS assert :I :z | |
19 | #endif | |
20 | ||
21 | !! East open boundary | |
22 | !FTRANS ufoe :I :z | |
23 | !FTRANS vfoe :I :z | |
24 | !FTRANS tfoe :I :z | |
25 | !FTRANS sfoe :I :z | |
26 | !FTRANS uclie :I :z | |
27 | !! Arrays for radiative East OBC | |
28 | !FTRANS uebnd :I :z : : | |
29 | !FTRANS vebnd :I :z : : | |
30 | !FTRANS tebnd :I :z : : | |
31 | !FTRANS sebnd :I :z : : | |
32 | !FTRANS u_cxebnd :I :z | |
33 | !FTRANS v_cxebnd :I :z | |
34 | !FTRANS uemsk :I :z | |
35 | !FTRANS vemsk :I :z | |
36 | !FTRANS temsk :I :z | |
37 | !! West open boundary | |
38 | !FTRANS ufow :I :z | |
39 | !FTRANS vfow :I :z | |
40 | !FTRANS tfow :I :z | |
41 | !FTRANS sfow :I :z | |
42 | !FTRANS ucliw :I :z | |
43 | !! Arrays for radiative West OBC | |
44 | !FTRANS uwbnd :I :z : : | |
45 | !FTRANS vwbnd :I :z : : | |
46 | !FTRANS twbnd :I :z : : | |
47 | !FTRANS swbnd :I :z : : | |
48 | !FTRANS u_cxwbnd :I :z | |
49 | !FTRANS v_cxwbnd :I :z | |
50 | !FTRANS uwmsk :I :z | |
51 | !FTRANS vwmsk :I :z | |
52 | !FTRANS twmsk :I :z | |
53 | !! North open boundary | |
54 | !FTRANS ufon :I :z | |
55 | !FTRANS vfon :I :z | |
56 | !FTRANS tfon :I :z | |
57 | !FTRANS sfon :I :z | |
58 | !FTRANS vclin :I :z | |
59 | !! Arrays for radiative North OBC | |
60 | !FTRANS unbnd :I :z : : | |
61 | !FTRANS vnbnd :I :z : : | |
62 | !FTRANS tnbnd :I :z : : | |
63 | !FTRANS snbnd :I :z : : | |
64 | !FTRANS u_cynbnd :I :z | |
65 | !FTRANS v_cynbnd :I :z | |
66 | !FTRANS unmsk :I :z | |
67 | !FTRANS vnmsk :I :z | |
68 | !FTRANS tnmsk :I :z | |
69 | !! South open boundary | |
70 | !FTRANS ufos :I :z | |
71 | !FTRANS vfos :I :z | |
72 | !FTRANS tfos :I :z | |
73 | !FTRANS sfos :I :z | |
74 | !FTRANS vclis :I :z | |
75 | !! Arrays for radiative South OBC | |
76 | !FTRANS usbnd :I :z : : | |
77 | !FTRANS vsbnd :I :z : : | |
78 | !FTRANS tsbnd :I :z : : | |
79 | !FTRANS ssbnd :I :z : : | |
80 | !FTRANS u_cysbnd :I :z | |
81 | !FTRANS v_cysbnd :I :z | |
82 | !FTRANS usmsk :I :z | |
83 | !FTRANS vsmsk :I :z | |
84 | !FTRANS tsmsk :I :z | |
85 | ||
86 |
Note: See TracBrowser
for help on using the repository browser.