Ignore:
Timestamp:
Mar 22, 2007 9:54:05 AM (15 years ago)
Author:
raasch
Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:
1 edited

Legend:

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

    r73 r75  
    99! +loop_optimization, netcdf_64bit_3d, zu_s_inner, zw_w_inner, id_var_zusi_*,
    1010! id_var_zwwi_*, ts_value, u_nzb_p1_for_vfc, v_nzb_p1_for_vfc, pt_reference,
    11 ! use_pt_reference, precipitation_amount_interval
    12 ! +age_m in particle_type
    13 ! -data_output_ts, dots_n
    14 ! arrays dots_label and dots_unit now dimensioned with dots_max
     11! use_pt_reference, precipitation_amount_interval, revision
     12! +age_m in particle_type, moisture renamed humidity,
     13! -data_output_ts, dots_n, uvmean_outflow, uxrp, vynp,
     14! arrays dots_label and dots_unit now dimensioned with dots_max,
     15! setting of palm version moved to main program
    1516!
    1617! Former revisions:
     
    8182    REAL, DIMENSION(:), ALLOCATABLE ::                                         &
    8283          ddzu, dd2zu, dzu, ddzw, dzw, km_damp_x, km_damp_y, l_grid, pt_init,  &
    83           q_init, rdf, ug, uvmean_outflow, uvmean_outflow_l, u_init,           &
    84           u_nzb_p1_for_vfc, vg, v_init, v_nzb_p1_for_vfc, zu, zw
     84          q_init, rdf, ug, u_init, u_nzb_p1_for_vfc, vg, v_init,               &
     85          v_nzb_p1_for_vfc, zu, zw
    8586
    8687    REAL, DIMENSION(:,:), ALLOCATABLE ::                                       &
     
    9697
    9798    REAL, DIMENSION(:,:,:), ALLOCATABLE ::                                     &
    98           d, diss, l_wall, tend
     99          d, diss, l_wall, tend, u_m_l, u_m_n, u_m_r, u_m_s, v_m_l, v_m_n,     &
     100          v_m_r, v_m_s, w_m_l, w_m_n, w_m_r, w_m_s
    99101
    100102    REAL, DIMENSION(:,:,:), ALLOCATABLE, TARGET ::                             &
     
    111113          vpt, vpt_m, w, w_m, w_p
    112114
    113     REAL, DIMENSION(:,:,:,:), ALLOCATABLE ::  rif_wall, u_m_l, u_m_n, u_m_r,   &
    114           u_m_s, v_m_l, v_m_n, v_m_r, v_m_s, w_m_l, w_m_n, w_m_r, w_m_s
    115                                                    
     115    REAL, DIMENSION(:,:,:,:), ALLOCATABLE ::  rif_wall
    116116
    117117    SAVE
     
    217217    CHARACTER (LEN=8)   ::  run_date, run_time
    218218    CHARACTER (LEN=9)   ::  simulated_time_chr
    219     CHARACTER (LEN=12)  ::  version = 'PALM   3.2'
     219    CHARACTER (LEN=12)  ::  version = ' ', revision = ' '
    220220    CHARACTER (LEN=16)  ::  loop_optimization = 'default', &
    221221                            momentum_advec = 'pw-scheme', &
     
    236236    CHARACTER (LEN=40)  ::  avs_data_file, topography = 'flat'
    237237    CHARACTER (LEN=64)  ::  host
    238     CHARACTER (LEN=80)  ::  log_message, run_description_header, run_identifier
    239     CHARACTER (LEN=100) ::  initializing_actions = ' '
     238    CHARACTER (LEN=80)  ::  log_message, run_identifier
     239    CHARACTER (LEN=100) ::  initializing_actions = ' ', run_description_header
    240240
    241241    CHARACTER (LEN=7),  DIMENSION(100) ::  do3d_comp_prec = ' '
     
    293293                first_call_advec_particles = .TRUE., &
    294294                force_print_header = .FALSE., galilei_transformation = .FALSE.,&
    295                 inflow_l = .FALSE., inflow_n = .FALSE., inflow_r = .FALSE., &
    296                 inflow_s = .FALSE., iso2d_output = .FALSE., &
    297                 mg_switch_to_pe0 = .FALSE., moisture = .FALSE., &
     295                humidity = .FALSE., inflow_l = .FALSE., inflow_n = .FALSE., &
     296                inflow_r = .FALSE., inflow_s = .FALSE., iso2d_output = .FALSE.,&
     297                mg_switch_to_pe0 = .FALSE., &
    298298                netcdf_output = .FALSE., netcdf_64bit = .FALSE., &
    299299                netcdf_64bit_3d = .TRUE., &
     
    528528    INTEGER ::  ngp_sums, nnx, nx = 0, nxa, nxl, nxr, nxra, nny, ny = 0, nya,  &
    529529                nyn, nyna, nys, nnz, nz = 0, nza, nzb, nzb_diff, nzt, nzta,    &
    530                 nzt_diff, uxrp = 0, vynp = 0
     530                nzt_diff
    531531
    532532    INTEGER, DIMENSION(:), ALLOCATABLE ::                                      &
     
    889889#if defined( __parallel )
    890890    INTEGER ::  comm1dx, comm1dy, comm2d, comm_palm, ierr, myidx, myidy,       &
    891                 ndim = 2, ngp_y, ngp_yz_p, pleft, pnorth, pright, psouth,      &
     891                ndim = 2, ngp_y, pleft, pnorth, pright, psouth,                &
    892892                sendrecvcount_xy, sendrecvcount_yz, sendrecvcount_zx,          &
    893893                sendrecvcount_zyd, sendrecvcount_yxd,                          &
    894                 type_x, type_x_int, type_xz_p, ibuf(12), pcoord(2), pdims(2),  &
     894                type_x, type_x_int, ibuf(12), pcoord(2), pdims(2),             &
    895895                status(MPI_STATUS_SIZE)
    896896
Note: See TracChangeset for help on using the changeset viewer.