Changeset 1115 for palm/trunk/SOURCE/write_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/write_var_list.f90 (modified) (8 diffs)

palm/trunk/SOURCE/write_var_list.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! unused variables removed
 !
 ! Former revisions:
@@ -165 +166 @@
 
 
-    binary_version = '3.8'
+    binary_version = '3.9'
 
     WRITE ( 14 )  binary_version
@@ -204 +205 @@
     WRITE ( 14 )  'bc_ns                         '
     WRITE ( 14 )  bc_ns
-    WRITE ( 14 )  'bc_nr_b                       '
-    WRITE ( 14 )  bc_nr_b
-    WRITE ( 14 )  'bc_nr_t                       '
-    WRITE ( 14 )  bc_nr_t
-    WRITE ( 14 )  'bc_nr_t_val                   '
-    WRITE ( 14 )  bc_nr_t_val
     WRITE ( 14 )  'bc_p_b                        '
     WRITE ( 14 )  bc_p_b
@@ -226 +221 @@
     WRITE ( 14 )  'bc_q_t_val                    '
     WRITE ( 14 )  bc_q_t_val
-    WRITE ( 14 )  'bc_qr_b                       '
-    WRITE ( 14 )  bc_qr_b
-    WRITE ( 14 )  'bc_qr_t                       '
-    WRITE ( 14 )  bc_qr_t
-    WRITE ( 14 )  'bc_qr_t_val                   '
-    WRITE ( 14 )  bc_qr_t_val
     WRITE ( 14 )  'bc_s_b                        '
     WRITE ( 14 )  bc_s_b
@@ -392 +381 @@
     WRITE ( 14 )  'momentum_advec                '
     WRITE ( 14 )  momentum_advec
-    WRITE ( 14 )  'nc                            '
-    WRITE ( 14 )  nc
+    WRITE ( 14 )  'nc_const                      '
+    WRITE ( 14 )  nc_const
     WRITE ( 14 )  'netcdf_precision              '
     WRITE ( 14 )  netcdf_precision
@@ -400 +389 @@
     WRITE ( 14 )  'ngsrb                         '
     WRITE ( 14 )  ngsrb
-    WRITE ( 14 )  'nr_init                       '
-    WRITE ( 14 )  nr_init
-    WRITE ( 14 )  'nr_surface                    '
-    WRITE ( 14 )  nr_surface
-    WRITE ( 14 )  'nr_surface_initial_change     '
-    WRITE ( 14 )  nr_surface_initial_change
-    WRITE ( 14 )  'nr_vertical_gradient          '
-    WRITE ( 14 )  nr_vertical_gradient
-    WRITE ( 14 )  'nr_vertical_gradient_level    '
-    WRITE ( 14 )  nr_vertical_gradient_level
-    WRITE ( 14 )  'nr_vertical_gradient_level_ind'
-    WRITE ( 14 )  nr_vertical_gradient_level_ind
     WRITE ( 14 )  'nsor                          '
     WRITE ( 14 )  nsor
@@ -476 +453 @@
     WRITE ( 14 )  'q_vertical_gradient_level_ind '
     WRITE ( 14 )  q_vertical_gradient_level_ind
-    WRITE ( 14 )  'qr_init                       '
-    WRITE ( 14 )  qr_init
-    WRITE ( 14 )  'qr_surface                    '
-    WRITE ( 14 )  qr_surface
-    WRITE ( 14 )  'qr_surface_initial_change     '
-    WRITE ( 14 )  qr_surface_initial_change
-    WRITE ( 14 )  'qr_vertical_gradient          '
-    WRITE ( 14 )  qr_vertical_gradient
-    WRITE ( 14 )  'qr_vertical_gradient_level    '
-    WRITE ( 14 )  qr_vertical_gradient_level
-    WRITE ( 14 )  'qr_vertical_gradient_level_ind'
-    WRITE ( 14 )  qr_vertical_gradient_level_ind
     WRITE ( 14 )  'radiation                     '
     WRITE ( 14 )  radiation
@@ -534 +499 @@
     WRITE ( 14 )  'surface_waterflux             '
     WRITE ( 14 )  surface_waterflux    
-    WRITE ( 14 )  'surface_waterflux_nr          '
-    WRITE ( 14 )  surface_waterflux_nr    
-    WRITE ( 14 )  'surface_waterflux_qr          '
-    WRITE ( 14 )  surface_waterflux_qr    
     WRITE ( 14 )  's_surface                     '
     WRITE ( 14 )  s_surface