<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>