Ignore:
Timestamp:
Feb 28, 2016 12:45:19 PM (6 years ago)
Author:
raasch
Message:

update of the nested domain system + some bugfixes

File:
1 edited

Legend:

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

    r1698 r1764  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! output of nesting informations
    2222!
    2323! Former revisions:
     
    205205! Description:
    206206! ------------
    207 !> Writing a header with all important information about the actual run.
     207!> Writing a header with all important information about the current run.
    208208!> This subroutine is called three times, two times at the beginning
    209209!> (writing information on files RUN_CONTROL and HEADER) and one time at the
     
    269269               plant_canopy
    270270
     271    USE pmc_interface,                                                         &
     272        ONLY:  cpl_id, cpl_parent_id, cpl_name, lower_left_coord_x,            &
     273               lower_left_coord_y, nested_run, nesting_mode
     274
    271275    USE radiation_model_mod,                                                   &
    272276        ONLY:  albedo, albedo_type, albedo_type_name, constant_albedo,         &
     
    366370!-- Determine kind of model run
    367371    IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
    368        run_classification = '3D - restart run'
     372       run_classification = 'restart run'
    369373    ELSEIF ( TRIM( initializing_actions ) == 'cyclic_fill' )  THEN
    370        run_classification = '3D - run with cyclic fill of 3D - prerun data'
     374       run_classification = 'run with cyclic fill of 3D - prerun data'
    371375    ELSEIF ( INDEX( initializing_actions, 'set_constant_profiles' ) /= 0 )  THEN
    372        run_classification = '3D - run without 1D - prerun'
     376       run_classification = 'run without 1D - prerun'
    373377    ELSEIF ( INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 )  THEN
    374        run_classification = '3D - run with 1D - prerun'
     378       run_classification = 'run with 1D - prerun'
    375379    ELSEIF ( INDEX( initializing_actions, 'by_user' ) /=0 )  THEN
    376        run_classification = '3D - run initialized by user'
     380       run_classification = 'run initialized by user'
    377381    ELSE
    378382       message_string = ' unknown action(s): ' // TRIM( initializing_actions )
    379383       CALL message( 'header', 'PA0191', 0, 0, 0, 6, 0 )
    380384    ENDIF
     385    IF ( nested_run )  run_classification = 'nested ' // run_classification
    381386    IF ( ocean )  THEN
    382387       run_classification = 'ocean - ' // run_classification
     
    444449    IF ( num_acc_per_node /= 0 )  WRITE ( io, 120 )  num_acc_per_node
    445450#endif
     451
     452!
     453!-- Nesting informations
     454    IF ( nested_run )  THEN
     455       WRITE ( io, 600 )  cpl_id, TRIM( cpl_name ), cpl_parent_id,             &
     456                          nesting_mode, lower_left_coord_x, lower_left_coord_y
     457    ENDIF
    446458    WRITE ( io, 99 )
    447459
     
    23992411513 FORMAT (' --> Scalar advection via Wicker-Skamarock-Scheme 5th order ' // &
    24002412            '+ monotonic adjustment')
    2401 
     2413600 FORMAT (/' Nesting informations:'/                                        &
     2414            ' Nest id / name:                   ',I2.2,' / ',A,' (parent id: ',I2.2,')'/ &
     2415            ' Nesting mode:                     ',A/ &
     2416            ' Lower left corner coordinates:    ','x = ',F8.2,' m, y = ',F8.2,' m'/)
    24022417
    24032418 END SUBROUTINE header
Note: See TracChangeset for help on using the changeset viewer.