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

Timestamp:

Mar 7, 2008 1:42:18 PM (17 years ago)

Author:

raasch

Message:

preliminary update for the turbulence recycling method

File:

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

palm/trunk/SOURCE/write_var_list.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! +numprocs, hor_index_bounds, -cross_ts_*, npex, npey
+! +numprocs, hor_index_bounds, inflow_damping_height, inflow_damping_width,
+! mean_inflow_profiles, recycling_width, turbulent_inflow,
+! -cross_ts_*, npex, npey
 ! hom_sum, volume_flow_area, volume_flow_initial moved from write_3d_binary
 ! to here
@@ -199 +201 @@
     WRITE ( 14 )  'hom_sum                       '
     WRITE ( 14 )  hom_sum
+    WRITE ( 14 )  'humidity                      '
+    WRITE ( 14 )  humidity
+    IF ( ALLOCATED( inflow_damping_factor ) )  THEN
+       WRITE ( 14 )  'inflow_damping_factor         '
+       WRITE ( 14 )  inflow_damping_factor
+    ENDIF
+    WRITE ( 14 )  'inflow_damping_height         '
+    WRITE ( 14 )  inflow_damping_height
+    WRITE ( 14 )  'inflow_damping_width          '
+    WRITE ( 14 )  inflow_damping_width
     WRITE ( 14 )  'inflow_disturbance_begin      '
     WRITE ( 14 )  inflow_disturbance_begin
@@ -223 +235 @@
     WRITE ( 14 )  'loop_optimization             '
     WRITE ( 14 )  loop_optimization
+    IF ( ALLOCATED( mean_inflow_profiles ) )  THEN
+       WRITE ( 14 )  'mean_inflow_profiles          '
+       WRITE ( 14 )  mean_inflow_profiles
+    ENDIF
     WRITE ( 14 )  'mixing_length_1d              '
     WRITE ( 14 )  mixing_length_1d
-    WRITE ( 14 )  'humidity                      '
-    WRITE ( 14 )  humidity
     WRITE ( 14 )  'momentum_advec                '
     WRITE ( 14 )  momentum_advec
@@ -299 +313 @@
     WRITE ( 14 )  'random_heatflux               '
     WRITE ( 14 )  random_heatflux
+    WRITE ( 14 )  'recycling_width               '
+    WRITE ( 14 )  recycling_width
     WRITE ( 14 )  'rif_max                       '
     WRITE ( 14 )  rif_max
@@ -385 +401 @@
     WRITE ( 14 )  'tsc                           '
     WRITE ( 14 )  tsc
+    WRITE ( 14 )  'turbulent_inflow              '
+    WRITE ( 14 )  turbulent_inflow
     WRITE ( 14 )  'u_init                        '
     WRITE ( 14 )  u_init