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

Timestamp:

Feb 29, 2008 8:19:58 AM (16 years ago)

Author:

raasch

Message:

particle advection allowed for ocean runs

File:

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

palm/trunk/SOURCE/read_3d_binary.f90

@@ -63 +63 @@
     CHARACTER (LEN=20) ::  field_chr
 
-    INTEGER ::  files_to_be_opened, i, idum1, j, myid_on_file,                &
+    INTEGER ::  files_to_be_opened, i, j, myid_on_file,                       &
                 numprocs_on_file, nxlc, nxlf, nxlpr, nxl_on_file, nxrc, nxrf, &
                 nxrpr, nxr_on_file, nync, nynf, nynpr, nyn_on_file, nysc,     &