Ignore:
Timestamp:
Mar 26, 2013 6:16:16 PM (9 years ago)
Author:
hoffmann
Message:

optimization of two-moments cloud physics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/parin.f90

    r1093 r1115  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
     
    224224             loop_optimization, masking_method, mg_cycles, &
    225225             mg_switch_to_pe0_level, mixing_length_1d, momentum_advec, &
    226              nc, netcdf_precision, neutral, ngsrb, nr_surface, &
    227              nr_surface_initial_change, nr_vertical_gradient, &
    228              nr_vertical_gradient_level, nsor, &
     226             nc_const, netcdf_precision, neutral, ngsrb, &
     227             nsor, &
    229228             nsor_ini, nx, ny, nz, ocean, omega, omega_sor, &
    230229             passive_scalar, pch_index, phi, plant_canopy, prandtl_layer, &
     
    234233             pt_vertical_gradient_level, q_surface, q_surface_initial_change, &
    235234             q_vertical_gradient, q_vertical_gradient_level, &
    236              qr_surface, qr_surface_initial_change, &
    237              qr_vertical_gradient, qr_vertical_gradient_level, radiation, &
     235             radiation, &
    238236             random_generator, random_heatflux, rayleigh_damping_factor, &
    239237             rayleigh_damping_height, recycling_width, residual_limit, &
     
    243241             statistic_regions, subs_vertical_gradient, &
    244242             subs_vertical_gradient_level, surface_heatflux, surface_pressure, &
    245              surface_scalarflux, surface_waterflux, surface_waterflux_nr, &
    246              surface_waterflux_qr, s_surface, &
     243             surface_scalarflux, surface_waterflux, &
     244             s_surface, &
    247245             s_surface_initial_change, s_vertical_gradient, &
    248246             s_vertical_gradient_level, timestep_scheme, &
     
    412410!--                  also check the allocate statement in routine read_var_list
    413411             ALLOCATE( lad(0:nz+1),pt_init(0:nz+1), q_init(0:nz+1),           &
    414                        qr_init(0:nz+1), nr_init(0:nz+1),                      &
    415412                       sa_init(0:nz+1), ug(0:nz+1), u_init(0:nz+1),           &
    416413                       v_init(0:nz+1), vg(0:nz+1),                            &
Note: See TracChangeset for help on using the changeset viewer.