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

Timestamp:

Nov 22, 2012 5:42:36 PM (11 years ago)

Author:

hoffmann

Message:

cloud physics: rain sedimentation and turbulence effects

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
+! +nc, c_sedimentation, limiter_sedimentation, turbulence
+! -mu_constant, mu_constant_value
 !
 ! Former revisions:
@@ -179 +181 @@
 !-- Make version number check first
     READ ( 13 )  version_on_file
-    binary_version = '3.6'
+    binary_version = '3.8'
     IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
        WRITE( message_string, * ) 'version mismatch concerning control ', &
@@ -342 +344 @@
           CASE ( 'canyon_wall_south' )
              READ ( 13 )  canyon_wall_south
+          CASE ( 'c_sedimentation' )
+             READ ( 13 )  c_sedimentation
           CASE ( 'cfl_factor' )
              READ ( 13 )  cfl_factor
@@ -447 +451 @@
           CASE ( 'leaf_surface_concentration' )
              READ ( 13 )  leaf_surface_concentration
+          CASE ( 'limiter_sedimentation' )
+             READ ( 13 )  limiter_sedimentation
           CASE ( 'loop_optimization' )
              READ ( 13 )  loop_optimization
@@ -464 +470 @@
           CASE ( 'momentum_advec' )
              READ ( 13 )  momentum_advec
-          CASE ( 'mu_constant' )
-             READ ( 13 )  mu_constant
-          CASE ( 'mu_constant_value' )
-             READ ( 13 )  mu_constant_value
+          CASE ( 'nc' )
+             READ ( 13 )  nc
           CASE ( 'netcdf_precision' )
              READ ( 13 )  netcdf_precision
@@ -678 +682 @@
           CASE ( 'tsc' )
              READ ( 13 )  tsc
+          CASE ( 'turbulence' )
+             READ ( 13 )  turbulence
           CASE ( 'turbulent_inflow' )
              READ ( 13 )  turbulent_inflow