Changeset 220 for palm/trunk/SOURCE/read_3d_binary.f90

Timestamp:

Dec 18, 2008 7:00:36 AM (15 years ago)

Author:

raasch

Message:

some small bugfixes in user_module, user_read_restart_data, read_3d_binary, flow_statistics and mrun

File:

• palm/trunk/SOURCE/read_3d_binary.f90 (modified) (1 diff)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -974 +974 @@
 !
 !--    Read user-defined restart data
-       CALL user_read_restart_data( nxlfa, nxl_on_file, nxrfa, nxr_on_file, &
-                                    nynfa, nyn_on_file, nysfa, nys_on_file, &
-                                    offset_xa, offset_ya, overlap_count(i), &
+       CALL user_read_restart_data( i, nxlfa, nxl_on_file, nxrfa, nxr_on_file, &
+                                    nynfa, nyn_on_file, nysfa, nys_on_file,    &
+                                    offset_xa, offset_ya, overlap_count(i),    &
                                     tmp_2d, tmp_3d )