Ignore:
Timestamp:
May 15, 2008 8:46:15 AM (13 years ago)
Author:
raasch
Message:

optimization of transpositions for 2D decompositions, workaround for using -env option with mpiexec, adjustments for lcxt4

File:
1 edited

Legend:

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

    r114 r164  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Workaround for getting information about the coupling mode
    77!
    88! Former revisions:
     
    8181!
    8282!-- Get information about the coupling mode from the environment variable
    83 !-- which has been set by the mpiexec command
    84     CALL local_getenv( 'coupling_mode', 13, coupling_mode, i )
    85     IF ( i == 0 )  coupling_mode = 'uncoupled'
     83!-- which has been set by the mpiexec command.
     84!-- This method is currently not used because the mpiexec command is not
     85!-- available on some machines
     86!    CALL local_getenv( 'coupling_mode', 13, coupling_mode, i )
     87!    IF ( i == 0 )  coupling_mode = 'uncoupled'
     88!    IF ( coupling_mode == 'ocean_to_atmosphere' )  coupling_char = '_O'
     89
     90!
     91!-- Get information about the coupling mode from standard input (PE0 only) and
     92!-- distribute it to the other PEs
     93    CALL MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr )
     94    IF ( myid == 0 )  THEN
     95       READ (*,*,ERR=10,END=10)  coupling_mode
     9610     IF ( TRIM( coupling_mode ) == 'atmosphere_to_ocean' )  THEN
     97          i = 1
     98       ELSEIF ( TRIM( coupling_mode ) ==  'ocean_to_atmosphere' )  THEN
     99          i = 2
     100       ELSE
     101          i = 0
     102       ENDIF
     103    ENDIF
     104    CALL MPI_BCAST( i, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr )
     105    IF ( i == 0 )  THEN
     106       coupling_mode = 'uncoupled'
     107    ELSEIF ( i == 1 )  THEN
     108       coupling_mode = 'atmosphere_to_ocean'
     109    ELSEIF ( i == 2 )  THEN
     110       coupling_mode = 'ocean_to_atmosphere'
     111    ENDIF
    86112    IF ( coupling_mode == 'ocean_to_atmosphere' )  coupling_char = '_O'
    87113#endif
Note: See TracChangeset for help on using the changeset viewer.