<p><b>ringler@lanl.gov</b> 2010-04-30 13:39:48 -0600 (Fri, 30 Apr 2010)</p><p><br>
file changed: pop_to_mpas_UniformQuad.F<br>
<br>
reason: POP data files do not need to be present to create these meshes, so open statements are commented out<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/grid_gen_ocean/pop_to_mpas/pop_to_mpas_UniformQuad.F
===================================================================
--- branches/ocean_projects/grid_gen_ocean/pop_to_mpas/pop_to_mpas_UniformQuad.F        2010-04-30 19:26:05 UTC (rev 230)
+++ branches/ocean_projects/grid_gen_ocean/pop_to_mpas/pop_to_mpas_UniformQuad.F        2010-04-30 19:39:48 UTC (rev 231)
@@ -87,8 +87,8 @@
 !  open and read ULAT, ULON, ANGLE from POP grid file
 !
    inquire (iolength=recLength) POP_uLat
-   open(57, file = trim(POP_GridFileName), access = 'direct',  &amp;
-            recl = recLength, form = 'unformatted', status = 'old')
+!  open(57, file = trim(POP_GridFileName), access = 'direct',  &amp;
+!           recl = recLength, form = 'unformatted', status = 'old')
 !  read(57,rec=1) POP_uLat
 !  read(57,rec=2) POP_uLon
 !  read(57,rec=7) POP_Angle

</font>
</pre>