Ignore:
Timestamp:
Nov 8, 2016 3:00:55 PM (5 years ago)
Author:
gronemeier
Message:

Implement turbulent outflow condition

File:
1 edited

Legend:

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

    r2038 r2050  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Implement turbulent outflow condition
    2323!
    2424! Former revisions:
     
    783783                terminate_run = .FALSE., transpose_compute_overlap = .FALSE., &
    784784                turbulent_inflow = .FALSE.
     785    LOGICAL ::  turbulent_outflow = .FALSE. !< flag for turbulent outflow condition
    785786    LOGICAL ::  urban_surface = .FALSE.  !< flag for urban surface model
    786787    LOGICAL ::  use_cmax = .TRUE., use_initial_profile_as_reference = .FALSE., &
     
    832833                 molecular_viscosity = 1.461E-5_wp, &
    833834                 old_dt = 1.0E-10_wp, omega = 7.29212E-5_wp, omega_sor = 1.8_wp, &
     835                 outflow_source_plane = -9999999.9_wp, & !< x-position of outflow-source plane (turbulent outflow method)
    834836                 particle_maximum_age = 9999999.9_wp, &
    835837                 phi = 55.0_wp, prandtl_number = 1.0_wp, &
     
    11951197    CHARACTER(LEN=2) ::  send_receive = 'al'
    11961198    CHARACTER(LEN=7) ::  myid_char = ''
    1197     INTEGER(iwp)          ::  acc_rank, comm1dx, comm1dy, comm2d, comm_inter,       &
    1198                               comm_palm, id_inflow = 0, id_recycling = 0, ierr,     &
    1199                               myid = 0, myidx = 0, myidy = 0, ndim = 2, ngp_a,      &
    1200                               ngp_o, ngp_xy, ngp_y, npex = -1, npey = -1,           &
    1201                               numprocs = 1, numprocs_previous_run = -1,             &
    1202                               num_acc_per_node = 0, pleft, pnorth, pright, psouth,  &
    1203                               req_count = 0, sendrecvcount_xy, sendrecvcount_yz,    &
    1204                               sendrecvcount_zx, sendrecvcount_zyd,                  &
    1205                               sendrecvcount_yxd, target_id, tasks_per_node = -9999, &
    1206                               threads_per_task = 1, type_x, type_xy,    &
    1207                               type_y
     1199    INTEGER(iwp)     ::  acc_rank, comm1dx, comm1dy, comm2d, comm_inter,       &
     1200                         comm_palm, id_inflow = 0,                             &
     1201                         id_outflow = 0,        & !< myidx of procs at outflow (turbulent outflow method)
     1202                         id_outflow_source = 0, & !< myidx of procs including ouflow source plane (turbulent outflow method)
     1203                         id_recycling = 0, ierr,                               &
     1204                         myid = 0, myidx = 0, myidy = 0, ndim = 2, ngp_a,      &
     1205                         ngp_o, ngp_xy, ngp_y, npex = -1, npey = -1,           &
     1206                         numprocs = 1, numprocs_previous_run = -1,             &
     1207                         num_acc_per_node = 0, pleft, pnorth, pright, psouth,  &
     1208                         req_count = 0, sendrecvcount_xy, sendrecvcount_yz,    &
     1209                         sendrecvcount_zx, sendrecvcount_zyd,                  &
     1210                         sendrecvcount_yxd, target_id, tasks_per_node = -9999, &
     1211                         threads_per_task = 1, type_x, type_xy,    &
     1212                         type_y
    12081213
    12091214    INTEGER(iwp)          ::  pdims(2) = 1, req(100)
Note: See TracChangeset for help on using the changeset viewer.