Changeset 240 for palm/trunk/SOURCE/read_var_list.f90

Timestamp:

Feb 18, 2009 5:50:38 PM (15 years ago)

Author:

letzel

Message:

• External pressure gradient (check_parameters, init_3d_model, header, modules, parin, prognostic_equations)
• New topography case 'single_street_canyon'

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left, 
+! canyon_wall_south, dp_external, dp_level_b, dp_smooth, dpdxy
 !
 ! Former revisions:
@@ -80 +81 @@
 !-- Make version number check first
     READ ( 13 )  version_on_file
-    binary_version = '3.2'
+    binary_version = '3.3'
     IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
        IF ( myid == 0 )  THEN
@@ -223 +224 @@
           CASE ( 'canopy_mode' )
              READ ( 13 )  canopy_mode
+          CASE ( 'canyon_height' )
+             READ ( 13 )  canyon_height
+          CASE ( 'canyon_width_x' )
+             READ ( 13 )  canyon_width_x
+          CASE ( 'canyon_width_y' )
+             READ ( 13 )  canyon_width_y
+          CASE ( 'canyon_wall_left' )
+             READ ( 13 )  canyon_wall_left
+          CASE ( 'canyon_wall_south' )
+             READ ( 13 )  canyon_wall_south
           CASE ( 'cloud_droplets' )
              READ ( 13 )  cloud_droplets
@@ -239 +250 @@
           CASE ( 'dissipation_1d' )
              READ ( 13 )  dissipation_1d
+          CASE ( 'dp_external' )
+             READ ( 13 )  dp_external
+          CASE ( 'dp_level_b' )
+             READ ( 13 )  dp_level_b
+          CASE ( 'dp_smooth' )
+             READ ( 13 )  dp_smooth
+          CASE ( 'dpdxy' )
+             READ ( 13 )  dpdxy
           CASE ( 'drag_coefficient' )
              READ ( 13 )  drag_coefficient