<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', &
- recl = recLength, form = 'unformatted', status = 'old')
+! open(57, file = trim(POP_GridFileName), access = 'direct', &
+! 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>