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

Timestamp:

May 22, 2007 3:46:47 PM (17 years ago)

Author:

raasch

Message:

Preliminary update for user defined profiles

File:

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

palm/trunk/SOURCE/write_var_list.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +max_pr_user (version 3.1)
 !
 ! Former revisions:
@@ -32 +32 @@
     USE arrays_3d
     USE averaging
+    USE control_parameters
     USE grid_variables
     USE indices
@@ -38 +39 @@
     USE profil_parameter
     USE statistics
-    USE control_parameters
 
     IMPLICIT NONE
@@ -46 +46 @@
 
 
-    binary_version = '3.0'
+    binary_version = '3.1'
 
     WRITE ( 14 )  binary_version    ! opened in write_3d_binary
@@ -52 +52 @@
     WRITE ( 14 )  'nz                            '
     WRITE ( 14 )  nz
+    WRITE ( 14 )  'max_pr_user                   '
+    WRITE ( 14 )  max_pr_user
     WRITE ( 14 )  'statistic_regions             '
     WRITE ( 14 )  statistic_regions