Changeset 1088 for palm/trunk/SOURCE/check_namelist_files.f90

Timestamp:

Jan 21, 2013 9:26:07 AM (11 years ago)

Author:

raasch

Message:

Bugfix: output format changed

File:

• palm/trunk/SOURCE/check_namelist_files.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_namelist_files.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: output format changed
 !
 ! Former revisions:
@@ -68 +68 @@
 
     OPEN( 11, FILE='parin_for_check', FORM='FORMATTED' )
-    WRITE(11, FMT='(I)'), max_pr_user
-    CLOSE(11)
+    WRITE( 11, FMT='(I4)' )  max_pr_user
+    CLOSE( 11 )
 !
 !-- Determine processor topology and local array indicesy