Ignore:
Timestamp:
Apr 20, 2016 3:24:46 PM (5 years ago)
Author:
hellstea
Message:

Precomputation of ijfc for anterpolation added in pmc_interface_mod.f90

File:
1 edited

Legend:

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

    r1851 r1882  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! MPI_BCAST-calls to broadcast nesting_mode and nesting_datatransfer_mode
     23! are moved out from the DO i = 1, m_ncpl loop.
    2324!
    2425! Former revisions:
     
    237238         CALL MPI_BCAST( m_couplers(i)%lower_left_x, 1, MPI_REAL,    0, MPI_COMM_WORLD, istat )
    238239         CALL MPI_BCAST( m_couplers(i)%lower_left_y, 1, MPI_REAL,    0, MPI_COMM_WORLD, istat )
    239 !--      TO_DO: the next two calls can and should probably moved outside this loop
    240          CALL MPI_BCAST( nesting_mode, LEN( nesting_mode ), MPI_CHARACTER, 0, MPI_COMM_WORLD, istat )
    241          CALL MPI_BCAST( nesting_datatransfer_mode, LEN(nesting_datatransfer_mode), MPI_CHARACTER, 0, MPI_COMM_WORLD, istat )
    242240      ENDDO
     241      CALL MPI_BCAST( nesting_mode, LEN( nesting_mode ), MPI_CHARACTER, 0, MPI_COMM_WORLD, istat )
     242      CALL MPI_BCAST( nesting_datatransfer_mode, LEN(nesting_datatransfer_mode), MPI_CHARACTER, 0, MPI_COMM_WORLD, istat )
    243243
    244244!
     
    435435    TYPE(pmc_layout), DIMENSION(pmc_max_modell) ::  domain_layouts
    436436
    437 
     437!-- TO_DO: include anterp_relax_length_? into nestpar and communicate them.
    438438    NAMELIST /nestpar/  domain_layouts, nesting_datatransfer_mode, nesting_mode
    439439
Note: See TracChangeset for help on using the changeset viewer.