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