[Dart-dev] [3326] DART/trunk: Setting item_size_direct_read to '4' (meaning bytes/ record) which is pretty standard.

[thoar at subversion.ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080505/3835373b/attachment.html
-------------- next part --------------
Modified: DART/trunk/mkmf/mkmf.template.intel.linux
===================================================================
--- DART/trunk/mkmf/mkmf.template.intel.linux	2008-04-30 20:17:26 UTC (rev 3325)
+++ DART/trunk/mkmf/mkmf.template.intel.linux	2008-05-05 23:18:52 UTC (rev 3326)
@@ -36,6 +36,7 @@
 #     -free    interpret source as free-format, regardless of file extension
 #     -r8      specify default real size ...
 #     -convert big_endian         useful if you're on the wrong architecture
+#     -assume  byterecl ... more 'industry-standard' direct-access behavior
 #
 # FFLAGS   useful for debugging
 #     -C       (partially) enable extensive runtime error checking

Modified: DART/trunk/mkmf/mkmf.template.pgi.linux
===================================================================
--- DART/trunk/mkmf/mkmf.template.pgi.linux	2008-04-30 20:17:26 UTC (rev 3325)
+++ DART/trunk/mkmf/mkmf.template.pgi.linux	2008-05-05 23:18:52 UTC (rev 3326)
@@ -48,6 +48,10 @@
 #
 # NOTE: 'noieee' "... produces results that differ from the correctly rounded 
 #                     result by no more than 3 units in the last place."
+#                            
+# DIRECT ACCESS ... reclen ... should be in units of 'bytes'. 
+#                   If runtime environment parameter FTNOPT is set to "vaxio",
+#                   the units are number of words.
 #
 # If you add the -Mprof=func flag to get profiling information, you must
 # add it to both FFLAGS and LDFLAGS.

Modified: DART/trunk/models/MITgcm_ocean/model_mod.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/model_mod.f90	2008-04-30 20:17:26 UTC (rev 3325)
+++ DART/trunk/models/MITgcm_ocean/model_mod.f90	2008-05-05 23:18:52 UTC (rev 3326)
@@ -77,11 +77,10 @@
 type(random_seq_type) :: random_seq
 
 
-!! FIXME: This is horrid ... 'reclen' is machine-dependent.
+!! FIXME: This is horrid ... 'reclen' is compiler-dependent.
 !! IBM XLF  -- item_size_direct_access == 4,8
-!! gfortran -- item_size_direct_access == 4
-!! IFORT    -- item_size_direct_access == 1   (number of 32bit words)
-integer, parameter :: item_size_direct_access = 1
+!! IFORT    -- needs compile switch "-assume byterecl"
+integer, parameter :: item_size_direct_access = 4
 
 !------------------------------------------------------------------
 !