Ignore:
Timestamp:
Mar 11, 2016 10:41:25 AM (6 years ago)
Author:
raasch
Message:

output of nesting informations of all domains; filling up redundant ghost points; renaming of variables, etc.; formatting cleanup

File:
1 edited

Legend:

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

    r1789 r1791  
    1919! Current revisions:
    2020! -----------------
    21 !
    22 ! 
     21! output of nesting informations of all domains
     22!
    2323! Former revisions:
    2424! -----------------
     
    284284               plant_canopy
    285285
     286    USE pmc_handle_communicator,                                               &
     287        ONLY:  pmc_get_model_info
     288
    286289    USE pmc_interface,                                                         &
    287         ONLY:  cpl_id, cpl_parent_id, cpl_name, lower_left_coord_x,            &
    288                lower_left_coord_y, nested_run, nesting_mode
     290        ONLY:  nested_run, nesting_mode
    289291
    290292    USE radiation_model_mod,                                                   &
     
    311313   
    312314    CHARACTER (LEN=26) ::  ver_rev             !<
     315
     316    CHARACTER (LEN=32) ::  cpl_name            !<
    313317   
    314318    CHARACTER (LEN=40) ::  output_format       !<
     
    338342    CHARACTER (LEN=1), DIMENSION(1:3) ::  dir = (/ 'x', 'y', 'z' /)  !<
    339343
    340     INTEGER(iwp) ::  av        !<
    341     INTEGER(iwp) ::  bh        !<
    342     INTEGER(iwp) ::  blx       !<
    343     INTEGER(iwp) ::  bly       !<
    344     INTEGER(iwp) ::  bxl       !<
    345     INTEGER(iwp) ::  bxr       !<
    346     INTEGER(iwp) ::  byn       !<
    347     INTEGER(iwp) ::  bys       !<
    348     INTEGER(iwp) ::  ch        !<
    349     INTEGER(iwp) ::  count     !<
    350     INTEGER(iwp) ::  cwx       !<
    351     INTEGER(iwp) ::  cwy       !<
    352     INTEGER(iwp) ::  cxl       !<
    353     INTEGER(iwp) ::  cxr       !<
    354     INTEGER(iwp) ::  cyn       !<
    355     INTEGER(iwp) ::  cys       !<
    356     INTEGER(iwp) ::  dim       !<
    357     INTEGER(iwp) ::  i         !<
    358     INTEGER(iwp) ::  io        !<
    359     INTEGER(iwp) ::  j         !<
    360     INTEGER(iwp) ::  k         !<
    361     INTEGER(iwp) ::  l         !<
    362     INTEGER(iwp) ::  ll        !<
    363     INTEGER(iwp) ::  mpi_type  !<
     344    INTEGER(iwp) ::  av             !<
     345    INTEGER(iwp) ::  bh             !<
     346    INTEGER(iwp) ::  blx            !<
     347    INTEGER(iwp) ::  bly            !<
     348    INTEGER(iwp) ::  bxl            !<
     349    INTEGER(iwp) ::  bxr            !<
     350    INTEGER(iwp) ::  byn            !<
     351    INTEGER(iwp) ::  bys            !<
     352    INTEGER(iwp) ::  ch             !<
     353    INTEGER(iwp) ::  count          !<
     354    INTEGER(iwp) ::  cpl_parent_id  !<
     355    INTEGER(iwp) ::  cwx            !<
     356    INTEGER(iwp) ::  cwy            !<
     357    INTEGER(iwp) ::  cxl            !<
     358    INTEGER(iwp) ::  cxr            !<
     359    INTEGER(iwp) ::  cyn            !<
     360    INTEGER(iwp) ::  cys            !<
     361    INTEGER(iwp) ::  dim            !<
     362    INTEGER(iwp) ::  i              !<
     363    INTEGER(iwp) ::  io             !<
     364    INTEGER(iwp) ::  j              !<
     365    INTEGER(iwp) ::  k              !<
     366    INTEGER(iwp) ::  l              !<
     367    INTEGER(iwp) ::  ll             !<
     368    INTEGER(iwp) ::  mpi_type       !<
     369    INTEGER(iwp) ::  my_cpl_id      !<
     370    INTEGER(iwp) ::  n              !<
     371    INTEGER(iwp) ::  ncpl           !<
     372    INTEGER(iwp) ::  npe_total      !<
    364373   
    365374    REAL(wp) ::  canopy_height                    !< canopy height (in m)
    366375    REAL(wp) ::  cpuseconds_per_simulated_second  !<
     376    REAL(wp) ::  lower_left_coord_x               !< x-coordinate of nest domain
     377    REAL(wp) ::  lower_left_coord_y               !< y-coordinate of nest domain
    367378
    368379!
     
    468479!-- Nesting informations
    469480    IF ( nested_run )  THEN
    470        WRITE ( io, 600 )  cpl_id, TRIM( cpl_name ), cpl_parent_id,             &
    471                           nesting_mode, lower_left_coord_x, lower_left_coord_y
     481
     482       WRITE ( io, 600 )  TRIM( nesting_mode )
     483       CALL pmc_get_model_info( ncpl = ncpl, cpl_id = my_cpl_id )
     484
     485       DO  n = 1, ncpl
     486          CALL pmc_get_model_info( request_for_cpl_id = n, cpl_name = cpl_name,&
     487                                   cpl_parent_id = cpl_parent_id,              &
     488                                   lower_left_x = lower_left_coord_x,          &
     489                                   lower_left_y = lower_left_coord_y,          &
     490                                   npe_total = npe_total )
     491          IF ( n == my_cpl_id )  THEN
     492             char1 = '*'
     493          ELSE
     494             char1 = ' '
     495          ENDIF
     496          WRITE ( io, 601 )  TRIM( char1 ), n, cpl_parent_id, npe_total,       &
     497                             lower_left_coord_x, lower_left_coord_y,           &
     498                             TRIM( cpl_name )
     499       ENDDO
    472500    ENDIF
    473501    WRITE ( io, 99 )
     
    24432471513 FORMAT (' --> Scalar advection via Wicker-Skamarock-Scheme 5th order ' // &
    24442472            '+ monotonic adjustment')
    2445 600 FORMAT (/' Nesting informations:'/                                        &
    2446             ' Nest id / name:                   ',I2.2,' / ',A,' (parent id: ',I2.2,')'/ &
    2447             ' Nesting mode:                     ',A/ &
    2448             ' Lower left corner coordinates:    ','x = ',F8.2,' m, y = ',F8.2,' m'/)
     2473600 FORMAT (/' Nesting informations:'/ &
     2474            ' --------------------'/ &
     2475            ' Nesting mode:                     ',A// &
     2476            ' Nest id  parent  number   lower left coordinates   name'/ &
     2477            ' (*=me)     id    of PEs      x (m)     y (m)' )
     2478601 FORMAT (2X,A1,1X,I2.2,6X,I2.2,5X,I5,5X,F8.2,2X,F8.2,5X,A)
    24492479
    24502480 END SUBROUTINE header
Note: See TracChangeset for help on using the changeset viewer.