Changeset 2576 for palm/trunk/SOURCE/write_var_list.f90

Timestamp:

Oct 24, 2017 1:49:46 PM (7 years ago)

Author:

Giersch

Message:

Bugfixes for restart runs

File:

• palm/trunk/SOURCE/write_var_list.f90 (modified) (3 diffs)

palm/trunk/SOURCE/write_var_list.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! The end of the standard parameter list is again marked with *** end *** like 
+! it was before revision 2563
+! 
+! 2575 2017-10-24 09:57:58Z maronga
 ! Renamed phi -> latitude, added longitude
 ! 
@@ -756 +760 @@
 !
 !-- Set the end-of-file mark for default parameter
-    WRITE ( 14 )  '*** end default ***           '
+    WRITE ( 14 )  '*** end ***                   '
 
 !
@@ -770 +774 @@
     IF ( synthetic_turbulence_generator )  CALL stg_write_restart_data
 
-!
-!-- Set the end-of-file mark for default parameter
-    WRITE ( 14 )  '*** end ***                   '
-
 
  END SUBROUTINE write_var_list