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

Timestamp:

Dec 4, 2009 5:05:40 PM (13 years ago)

Author:

letzel

Message:

• reintegrate branch letzel/masked_output into trunk; new funtionality: masked data output (not yet documented)

Location:

palm/trunk

Files:

• . (modified) (1 prop)
• SOURCE/read_3d_binary.f90 (modified) (1 diff)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -181 +181 @@
           DO  k = 1, j
              WRITE (9,*) 'k = ', k
-             WRITE (9,'(6(A,I2))')  'nxlfa = ', nxlfa(files_to_be_opened,k), &
+             WRITE (9,'(6(A,I4))')  'nxlfa = ', nxlfa(files_to_be_opened,k), &
                          ' nxrfa = ', nxrfa(files_to_be_opened,k), &
                          ' offset_xa = ', offset_xa(files_to_be_opened,k), &