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

Timestamp:

Mar 26, 2013 6:16:16 PM (11 years ago)

Author:

hoffmann

Message:

optimization of two-moments cloud physics

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! unused variables removed
 !
 ! Former revisions:
@@ -185 +185 @@
 !-- Make version number check first
     READ ( 13 )  version_on_file
-    binary_version = '3.8'
+    binary_version = '3.9'
     IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
        WRITE( message_string, * ) 'version mismatch concerning control ', &
@@ -251 +251 @@
        ALLOCATE( lad(0:nz+1), ug(0:nz+1), u_init(0:nz+1), vg(0:nz+1),    &
                  v_init(0:nz+1), pt_init(0:nz+1), q_init(0:nz+1),        &
-                 qr_init(0:nz+1), nr_init(0:nz+1), sa_init(0:nz+1),      &
+                 sa_init(0:nz+1),                                        &
                  hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions),  &
                  hom_sum(0:nz+1,pr_palm+max_pr_user,0:statistic_regions) )
@@ -284 +284 @@
           CASE ( 'bc_ns' )
              READ ( 13 )  bc_ns
-          CASE ( 'bc_nr_b' )
-             READ ( 13 )  bc_nr_b
-          CASE ( 'bc_nr_t' )
-             READ ( 13 )  bc_nr_t
-          CASE ( 'bc_nr_t_val' )
-             READ ( 13 )  bc_nr_t_val
           CASE ( 'bc_p_b' )
              READ ( 13 )  bc_p_b
@@ -306 +300 @@
           CASE ( 'bc_q_t_val' )
              READ ( 13 )  bc_q_t_val
-          CASE ( 'bc_qr_b' )
-             READ ( 13 )  bc_qr_b
-          CASE ( 'bc_qr_t' )
-             READ ( 13 )  bc_qr_t
-          CASE ( 'bc_qr_t_val' )
-             READ ( 13 )  bc_qr_t_val
           CASE ( 'bc_s_b' )
              READ ( 13 )  bc_s_b
@@ -474 +462 @@
           CASE ( 'momentum_advec' )
              READ ( 13 )  momentum_advec
-          CASE ( 'nc' )
-             READ ( 13 )  nc
+          CASE ( 'nc_const' )
+             READ ( 13 )  nc_const
           CASE ( 'netcdf_precision' )
              READ ( 13 )  netcdf_precision
@@ -482 +470 @@
           CASE ( 'ngsrb' )
              READ ( 13 )  ngsrb
-          CASE ( 'nr_init' )
-             READ ( 13 )  nr_init
-          CASE ( 'nr_surface' )
-             READ ( 13 )  nr_surface
-          CASE ( 'nr_surface_initial_change' )
-             READ ( 13 )  nr_surface_initial_change
-          CASE ( 'nr_vertical_gradient' )
-             READ ( 13 )  nr_vertical_gradient
-          CASE ( 'nr_vertical_gradient_level' )
-             READ ( 13 )  nr_vertical_gradient_level
-          CASE ( 'nr_vertical_gradient_level_ind' )
-             READ ( 13 )  nr_vertical_gradient_level_ind
           CASE ( 'nsor' )
              READ ( 13 )  nsor
@@ -560 +536 @@
           CASE ( 'q_vertical_gradient_level_ind' )
              READ ( 13 )  q_vertical_gradient_level_ind
-          CASE ( 'qr_init' )
-             READ ( 13 )  qr_init
-          CASE ( 'qr_surface' )
-             READ ( 13 )  qr_surface
-          CASE ( 'qr_surface_initial_change' )
-             READ ( 13 )  qr_surface_initial_change
-          CASE ( 'qr_vertical_gradient' )
-             READ ( 13 )  qr_vertical_gradient
-          CASE ( 'qr_vertical_gradient_level' )
-             READ ( 13 )  qr_vertical_gradient_level
-          CASE ( 'qr_vertical_gradient_level_ind' )
-             READ ( 13 )  qr_vertical_gradient_level_ind
           CASE ( 'radiation' )
              READ ( 13 )  radiation
@@ -618 +582 @@
           CASE ( 'surface_waterflux' )
              READ ( 13 )  surface_waterflux      
-          CASE ( 'surface_waterflux_nr' )
-             READ ( 13 )  surface_waterflux_nr    
-          CASE ( 'surface_waterflux_qr' )
-             READ ( 13 )  surface_waterflux_qr    
           CASE ( 's_surface' )
              READ ( 13 )  s_surface