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

Timestamp:

Jan 9, 2008 8:17:38 AM (17 years ago)

Author:

raasch

Message:

second preliminary update for turbulent inflow

File:

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

palm/trunk/SOURCE/write_var_list.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! -cross_ts_*,
+! +numprocs, hor_index_bounds, -cross_ts_*, npex, npey
 ! hom_sum, volume_flow_area, volume_flow_initial moved from write_3d_binary
 ! to here
@@ -44 +44 @@
 ! Description:
 ! ------------
-! Writing values of control variables to restart-file (binary format)
+! Writing values of control variables to restart-file (binary format).
+! These informations are only written to the file opened by PE0.
 !------------------------------------------------------------------------------!
 
@@ -63 +64 @@
 
 
-
-    binary_version = '3.1'
-
-    WRITE ( 14 )  binary_version    ! opened in write_3d_binary
-
+    binary_version = '3.2'
+
+    WRITE ( 14 )  binary_version
+
+    WRITE ( 14 )  'numprocs                      '
+    WRITE ( 14 )  numprocs
+    WRITE ( 14 )  'hor_index_bounds              '
+    WRITE ( 14 )  hor_index_bounds
     WRITE ( 14 )  'nz                            '
     WRITE ( 14 )  nz
@@ -227 +231 @@
     WRITE ( 14 )  'netcdf_precision              '
     WRITE ( 14 )  netcdf_precision
-    WRITE ( 14 )  'npex                          '
-    WRITE ( 14 )  npex
-    WRITE ( 14 )  'npey                          '
-    WRITE ( 14 )  npey
     WRITE ( 14 )  'nsor_ini                      '
     WRITE ( 14 )  nsor_ini