Ignore:
Timestamp:
Nov 13, 2008 10:26:18 AM (13 years ago)
Author:
raasch
Message:

Output message can be handled with new subroutine handle_palm_message. All output messages will be replaced by this routine step by step within the next revisions

File:
1 edited

Legend:

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

    r210 r213  
    66! -----------------
    77! some dvrp-variables changed to single precision, variables for dvrp-mode
    8 ! pathlines added, +target_id
     8! pathlines added, +target_id, abort_mode, message_string
    99!
    1010! Former revisions:
     
    257257
    258258
    259     CHARACTER (LEN=1)   ::  cycle_mg = 'w', timestep_reason = ' '
    260     CHARACTER (LEN=2)   ::  coupling_char = ''
    261     CHARACTER (LEN=5)   ::  write_binary = 'false'
    262     CHARACTER (LEN=6)   ::  grid_matching = 'match'
    263     CHARACTER (LEN=8)   ::  run_date, run_time
    264     CHARACTER (LEN=9)   ::  simulated_time_chr
    265     CHARACTER (LEN=12)  ::  version = ' ', revision = ' '
    266     CHARACTER (LEN=16)  ::  loop_optimization = 'default', &
    267                             momentum_advec = 'pw-scheme', &
    268                             psolver = 'poisfft', &
    269                             scalar_advec = 'pw-scheme'
    270     CHARACTER (LEN=20)  ::  bc_e_b = 'neumann', bc_lr = 'cyclic', &
    271                             bc_ns = 'cyclic', bc_p_b = 'neumann', &
    272                             bc_p_t = 'dirichlet', bc_pt_b = 'dirichlet', &
    273                             bc_pt_t = 'initial_gradient', &
    274                             bc_q_b = 'dirichlet', bc_q_t = 'neumann', &
    275                             bc_s_b = 'dirichlet', bc_s_t = 'neumann', &
    276                             bc_sa_t = 'neumann', &
    277                             bc_uv_b = 'dirichlet', bc_uv_t = 'dirichlet', &
    278                             canopy_mode = 'block', &
    279                             coupling_mode = 'uncoupled', &
    280                             coupling_mode_remote = 'uncoupled', &
    281                             dissipation_1d = 'as_in_3d_model', &
    282                             fft_method = 'system-specific', &
    283                             mixing_length_1d = 'as_in_3d_model', &
    284                             random_generator = 'numerical-recipes', &
    285                             return_addres, return_username, &
    286                             timestep_scheme = 'runge-kutta-3'
    287     CHARACTER (LEN=40)  ::  avs_data_file, topography = 'flat'
    288     CHARACTER (LEN=64)  ::  host
    289     CHARACTER (LEN=80)  ::  log_message, run_identifier
    290     CHARACTER (LEN=100) ::  initializing_actions = ' ', run_description_header
     259    CHARACTER (LEN=1)    ::  cycle_mg = 'w', timestep_reason = ' '
     260    CHARACTER (LEN=2)    ::  coupling_char = ''
     261    CHARACTER (LEN=5)    ::  write_binary = 'false'
     262    CHARACTER (LEN=6)    ::  grid_matching = 'match'
     263    CHARACTER (LEN=8)    ::  run_date, run_time
     264    CHARACTER (LEN=9)    ::  simulated_time_chr
     265    CHARACTER (LEN=12)   ::  version = ' ', revision = ' '
     266    CHARACTER (LEN=16)   ::  loop_optimization = 'default', &
     267                             momentum_advec = 'pw-scheme', &
     268                             psolver = 'poisfft', &
     269                             scalar_advec = 'pw-scheme'
     270    CHARACTER (LEN=20)   ::  bc_e_b = 'neumann', bc_lr = 'cyclic', &
     271                             bc_ns = 'cyclic', bc_p_b = 'neumann', &
     272                             bc_p_t = 'dirichlet', bc_pt_b = 'dirichlet', &
     273                             bc_pt_t = 'initial_gradient', &
     274                             bc_q_b = 'dirichlet', bc_q_t = 'neumann', &
     275                             bc_s_b = 'dirichlet', bc_s_t = 'neumann', &
     276                             bc_sa_t = 'neumann', &
     277                             bc_uv_b = 'dirichlet', bc_uv_t = 'dirichlet', &
     278                             canopy_mode = 'block', &
     279                             coupling_mode = 'uncoupled', &
     280                             coupling_mode_remote = 'uncoupled', &
     281                             dissipation_1d = 'as_in_3d_model', &
     282                             fft_method = 'system-specific', &
     283                             mixing_length_1d = 'as_in_3d_model', &
     284                             random_generator = 'numerical-recipes', &
     285                             return_addres, return_username, &
     286                             timestep_scheme = 'runge-kutta-3'
     287    CHARACTER (LEN=40)   ::  avs_data_file, topography = 'flat'
     288    CHARACTER (LEN=64)   ::  host = ' '
     289    CHARACTER (LEN=80)   ::  log_message, run_identifier
     290    CHARACTER (LEN=100)  ::  initializing_actions = ' ', run_description_header
     291    CHARACTER (LEN=1000) ::  message_string = ' '
    291292
    292293    CHARACTER (LEN=7),  DIMENSION(100) ::  do3d_comp_prec = ' '
     
    300301    CHARACTER (LEN=10), DIMENSION(0:1,100) ::  do2d = ' ', do3d = ' '
    301302
    302     INTEGER ::  average_count_pr = 0, average_count_sp = 0, &
     303    INTEGER ::  abort_mode = 0, average_count_pr = 0, average_count_sp = 0, &
    303304                average_count_3d = 0, current_timestep_number = 0, &
    304305                dist_range = 0, disturbance_level_ind_b, &
Note: See TracChangeset for help on using the changeset viewer.