source: Roms_tools/Run/TEST_CASES/etalon_data.h @ 1

Last change on this file since 1 was 1, checked in by cholod, 13 years ago

import Roms_Agrif
  • Property svn:eol-style set to native
File size: 4.5 KB
Line 
1!
2!======================================================================
3! ROMS_AGRIF is a branch of ROMS developped at IRD and INRIA, in France
4! The two other branches from UCLA (Shchepetkin et al) 
5! and Rutgers University (Arango et al) are under MIT/X style license.
6! ROMS_AGRIF specific routines (nesting) are under CeCILL-C license.
7! 
8! ROMS_AGRIF website : http://roms.mpl.ird.fr
9!======================================================================
10!
11!===================================================================
12#if defined AGRIF && !defined AGRIF_2WAY
13      if (Agrif_Root()) then
14        check_point(1)=1
15        etalon_line(1)=
16     &    '4.933231491E-05 2.6729110E+01 2.6729159E+01 4.3513589E+15'
17        check_point(2)=100
18        etalon_line(2)=
19     &    '1.047386115E-03 2.6751426E+01 2.6752474E+01 4.3513425E+15'
20        check_point(3)=200
21        etalon_line(3)=
22     &    '1.082244925E-03 2.6781480E+01 2.6782562E+01 4.3513694E+15'
23        check_point(4)=400
24        etalon_line(4)=
25     &    '1.365199027E-03 2.6815489E+01 2.6816854E+01 4.3514026E+15'
26        check_point(5)=600
27        etalon_line(5)=
28     &    '2.186481330E-03 2.6887946E+01 2.6890133E+01 4.3514522E+15'
29        check_point(6)=720
30        etalon_line(6)=
31     &    '2.723826168E-03 2.6932442E+01 2.6935165E+01 4.3514815E+15'
32        else
33!-------------------------------------------------------------------
34        check_point(1)=1
35        etalon_line(1)=
36     &    '2.359677007E-05 2.0769407E+01 2.0769431E+01 4.5655748E+14'
37        check_point(2)=300
38        etalon_line(2)=
39     &    '9.109429940E-04 2.0755151E+01 2.0756062E+01 4.5653911E+14'
40        check_point(3)=600
41        etalon_line(3)=
42     &    '9.313027129E-04 2.0750639E+01 2.0751571E+01 4.5654491E+14'
43        check_point(4)=1200
44        etalon_line(4)=
45     &    '1.353043403E-03 2.0743701E+01 2.0745054E+01 4.5655004E+14'
46        check_point(5)=1800
47        etalon_line(5)=
48     &    '1.862819959E-03 2.0715330E+01 2.0717193E+01 4.5655567E+14'
49        check_point(6)=2160
50        etalon_line(6)=
51     &    '2.521406081E-03 2.0693429E+01 2.0695950E+01 4.5656143E+14'
52        endif
53!====================================================================
54#elif defined AGRIF && defined AGRIF_2WAY
55      if (Agrif_Root()) then
56        check_point(1)=1
57        etalon_line(1)=
58     &    '4.844591562E-05 2.6735577E+01 2.6735626E+01 4.3496646E+15'
59        check_point(2)=100
60        etalon_line(2)=
61     &    '1.031913720E-03 2.6757359E+01 2.6758391E+01 4.3496488E+15'
62        check_point(3)=200
63        etalon_line(3)=
64     &    '1.062522681E-03 2.6786104E+01 2.6787167E+01 4.3496743E+15'
65        check_point(4)=400
66        etalon_line(4)=
67     &    '1.310750312E-03 2.6823041E+01 2.6824352E+01 4.3497107E+15'
68        check_point(5)=600
69        etalon_line(5)=
70     &    '2.205242188E-03 2.6899377E+01 2.6901582E+01 4.3497654E+15'
71        check_point(6)=720
72        etalon_line(6)=
73     &    '2.846020342E-03 2.6941020E+01 2.6943866E+01 4.3497918E+15'
74        else
75!-------------------------------------------------------------------
76        check_point(1)=1
77        etalon_line(1)=
78     &    '2.369560524E-05 2.0769292E+01 2.0769316E+01 4.5655746E+14'
79        check_point(2)=300
80        etalon_line(2)=
81     &    '1.224654905E-03 2.0765802E+01 2.0767026E+01 4.5653922E+14'
82        check_point(3)=600
83        etalon_line(3)=
84     &    '1.168878748E-03 2.0762968E+01 2.0764137E+01 4.5654420E+14'
85        check_point(4)=1200
86        etalon_line(4)=
87     &    '1.380687073E-03 2.0739928E+01 2.0741308E+01 4.5654985E+14'
88        check_point(5)=1800
89        etalon_line(5)=
90     &    '1.902295322E-03 2.0741347E+01 2.0743249E+01 4.5655944E+14'
91        check_point(6)=2160
92        etalon_line(6)=
93     &    '3.027461293E-03 2.0732648E+01 2.0735676E+01 4.5656314E+14'
94        endif
95!===================================================================
96#else
97        check_point(1)=1
98        etalon_line(1)=
99     &    '4.933231491E-05 2.6729110E+01 2.6729159E+01 4.3513589E+15'
100        check_point(2)=100
101        etalon_line(2)=
102     &    '1.047386115E-03 2.6751426E+01 2.6752474E+01 4.3513425E+15'
103        check_point(3)=200
104        etalon_line(3)=
105     &    '1.082244925E-03 2.6781480E+01 2.6782562E+01 4.3513694E+15'
106        check_point(4)=400
107        etalon_line(4)=
108     &    '1.365199027E-03 2.6815489E+01 2.6816854E+01 4.3514026E+15'
109        check_point(5)=600
110        etalon_line(5)=
111     &    '2.186481330E-03 2.6887946E+01 2.6890133E+01 4.3514522E+15'
112        check_point(6)=720
113        etalon_line(6)=
114     &    '2.723826168E-03 2.6932442E+01 2.6935165E+01 4.3514815E+15'
115#endif
Note: See TracBrowser for help on using the repository browser.