Changeset 2143

Timestamp:

Feb 6, 2017 6:07:31 PM (8 years ago)

Author:

knoop

Message:

Bugfix: in write statement for parallel random number generator

Location:

palm/trunk/SOURCE

Files:

• check_parameters.f90 (modified) (1 diff)
• modules.f90 (modified) (1 diff)

palm/trunk/SOURCE/check_parameters.f90

@@ -494 +494 @@
     CHARACTER (LEN=8)   ::  date                     !< 
     CHARACTER (LEN=10)  ::  time                     !< 
-    CHARACTER (LEN=10)  ::  ensemble_string          !<
+    CHARACTER (LEN=20)  ::  ensemble_string          !<
     CHARACTER (LEN=15)  ::  nest_string              !<
     CHARACTER (LEN=40)  ::  coupling_string          !< 

palm/trunk/SOURCE/modules.f90

@@ -943 +943 @@
     CHARACTER (LEN=80)   ::  run_identifier                               !<  
     CHARACTER (LEN=100)  ::  initializing_actions = ' '                   !< 
-    CHARACTER (LEN=110)  ::  run_description_header                       !< 
+    CHARACTER (LEN=210)  ::  run_description_header                       !< 
     CHARACTER (LEN=1000) ::  message_string = ' '                         !<