<p><b>duda</b> 2013-01-04 15:21:43 -0700 (Fri, 04 Jan 2013)</p><p>BRANCH COMMIT<br>
<br>
Use exact values for offset and resolution of static fields, rather<br>
than fixed precision constants which cause problems for high-resolution<br>
meshes.<br>
<br>
<br>
M    src/core_init_nhyd_atmos/mpas_init_atm_test_cases.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_test_cases.F
===================================================================
--- branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_test_cases.F        2013-01-03 16:47:54 UTC (rev 2373)
+++ branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_test_cases.F        2013-01-04 22:21:43 UTC (rev 2374)
@@ -2490,8 +2490,8 @@
             iPoint = 1
             do j=4,ny-3
             do i=4,nx-3
-               lat_pt = -89.99583 + (jTileStart + j - 5) * 0.0083333333
-               lon_pt = -179.99583 + (iTileStart + i - 5) * 0.0083333333
+               lat_pt = (-90.0 + 1.0/240.0) + (jTileStart + j - 5) / 120.0
+               lon_pt = (-180.0 + 1.0/240.0) + (iTileStart + i - 5) / 120.0
 !              lat_pt = -89.91667 + (jTileStart + j - 5) * 0.166667
 !              lon_pt = -179.91667 + (iTileStart + i - 5) * 0.166667
                lat_pt = lat_pt * pii / 180.0
@@ -2550,8 +2550,8 @@
             iPoint = 1
             do j=1,ny
             do i=1,nx
-               lat_pt = -89.99583 + (jTileStart + j - 2) * 0.0083333333
-               lon_pt = -179.99583 + (iTileStart + i - 2) * 0.0083333333
+               lat_pt = (-90.0 + 1.0/240.0) + (jTileStart + j - 2) / 120.0
+               lon_pt = (-180.0 + 1.0/240.0) + (iTileStart + i - 2) / 120.0
                lat_pt = lat_pt * pii / 180.0
                lon_pt = lon_pt * pii / 180.0
 
@@ -2612,8 +2612,8 @@
             iPoint = 1
             do j=1,ny
             do i=1,nx
-               lat_pt = -89.99583 + (jTileStart + j - 2) * 0.0083333333
-               lon_pt = -179.99583 + (iTileStart + i - 2) * 0.0083333333
+               lat_pt = (-90.0 + 1.0/240.0) + (jTileStart + j - 2) / 120.0
+               lon_pt = (-180.0 + 1.0/240.0) + (iTileStart + i - 2) / 120.0
                lat_pt = lat_pt * pii / 180.0
                lon_pt = lon_pt * pii / 180.0
 
@@ -2674,8 +2674,8 @@
             iPoint = 1
             do j=1,ny
             do i=1,nx
-               lat_pt = -89.99583 + (jTileStart + j - 2) * 0.0083333333
-               lon_pt = -179.99583 + (iTileStart + i - 2) * 0.0083333333
+               lat_pt = (-90.0 + 1.0/240.0) + (jTileStart + j - 2) / 120.0
+               lon_pt = (-180.0 + 1.0/240.0) + (iTileStart + i - 2) / 120.0
                lat_pt = lat_pt * pii / 180.0
                lon_pt = lon_pt * pii / 180.0
 

</font>
</pre>