<p><b>duda</b> 2012-04-30 17:36:16 -0600 (Mon, 30 Apr 2012)</p><p>Revert to original string lengths in code for reading WPS intermediate files, since<br>
these strings must match the lengths used when the unformatted files were created.<br>
<br>
<br>
M    src/core_init_nhyd_atmos/mpas_init_atm_read_met.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_init_nhyd_atmos/mpas_init_atm_read_met.F
===================================================================
--- trunk/mpas/src/core_init_nhyd_atmos/mpas_init_atm_read_met.F        2012-04-30 23:18:40 UTC (rev 1847)
+++ trunk/mpas/src/core_init_nhyd_atmos/mpas_init_atm_read_met.F        2012-04-30 23:36:16 UTC (rev 1848)
@@ -2,8 +2,6 @@
 
 module init_atm_read_met
 
-   use mpas_kind_types
-
    integer, parameter :: MAX_FILENAME_LEN = 1024
 
    real (kind=4), parameter :: EARTH_RADIUS_M = 6370000.   ! same as MM5 system
@@ -24,11 +22,11 @@
                                        truelat1, truelat2, earth_radius
       real (kind=4), pointer, dimension(:,:) :: slab
       logical                       :: is_wind_grid_rel
-      character (len=StrKIND)             :: field
-      character (len=StrKIND)            :: hdate
-      character (len=StrKIND)            :: units
-      character (len=StrKIND)            :: map_source
-      character (len=StrKIND)            :: desc
+      character (len=9)             :: field
+      character (len=24)            :: hdate
+      character (len=25)            :: units
+      character (len=32)            :: map_source
+      character (len=46)            :: desc
    end type met_data
 
 
@@ -95,7 +93,7 @@
       integer, intent(out) :: istatus
   
       ! Local variables
-      character (len=StrKIND) :: startloc
+      character (len=8) :: startloc
   
       istatus = 1
   

</font>
</pre>