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

palm/trunk/SOURCE/parin.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! unused variables removed
 !
 ! Former revisions:
@@ -224 +224 @@
              loop_optimization, masking_method, mg_cycles, &
              mg_switch_to_pe0_level, mixing_length_1d, momentum_advec, &
-             nc, netcdf_precision, neutral, ngsrb, nr_surface, &
-             nr_surface_initial_change, nr_vertical_gradient, &
-             nr_vertical_gradient_level, nsor, &
+             nc_const, netcdf_precision, neutral, ngsrb, &
+             nsor, &
              nsor_ini, nx, ny, nz, ocean, omega, omega_sor, &
              passive_scalar, pch_index, phi, plant_canopy, prandtl_layer, &
@@ -234 +233 @@
              pt_vertical_gradient_level, q_surface, q_surface_initial_change, &
              q_vertical_gradient, q_vertical_gradient_level, &
-             qr_surface, qr_surface_initial_change, &
-             qr_vertical_gradient, qr_vertical_gradient_level, radiation, &
+             radiation, &
              random_generator, random_heatflux, rayleigh_damping_factor, &
              rayleigh_damping_height, recycling_width, residual_limit, &
@@ -243 +241 @@
              statistic_regions, subs_vertical_gradient, &
              subs_vertical_gradient_level, surface_heatflux, surface_pressure, &
-             surface_scalarflux, surface_waterflux, surface_waterflux_nr, &
-             surface_waterflux_qr, s_surface, &
+             surface_scalarflux, surface_waterflux, &
+             s_surface, &
              s_surface_initial_change, s_vertical_gradient, &
              s_vertical_gradient_level, timestep_scheme, &
@@ -412 +410 @@
 !--                  also check the allocate statement in routine read_var_list
              ALLOCATE( lad(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), ug(0:nz+1), u_init(0:nz+1),           &
                        v_init(0:nz+1), vg(0:nz+1),                            &