Changeset 164 for palm/trunk/SOURCE/palm.f90

Timestamp:

May 15, 2008 8:46:15 AM (16 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/palm.f90 (modified) (2 diffs)

palm/trunk/SOURCE/palm.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Workaround for getting information about the coupling mode
 !
 ! Former revisions:
@@ -81 +81 @@
 !
 !-- Get information about the coupling mode from the environment variable
-!-- which has been set by the mpiexec command
-    CALL local_getenv( 'coupling_mode', 13, coupling_mode, i )
-    IF ( i == 0 )  coupling_mode = 'uncoupled'
+!-- which has been set by the mpiexec command.
+!-- This method is currently not used because the mpiexec command is not
+!-- available on some machines
+!    CALL local_getenv( 'coupling_mode', 13, coupling_mode, i )
+!    IF ( i == 0 )  coupling_mode = 'uncoupled'
+!    IF ( coupling_mode == 'ocean_to_atmosphere' )  coupling_char = '_O'
+
+!
+!-- Get information about the coupling mode from standard input (PE0 only) and
+!-- distribute it to the other PEs
+    CALL MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr )
+    IF ( myid == 0 )  THEN
+       READ (*,*,ERR=10,END=10)  coupling_mode
+10     IF ( TRIM( coupling_mode ) == 'atmosphere_to_ocean' )  THEN
+          i = 1
+       ELSEIF ( TRIM( coupling_mode ) ==  'ocean_to_atmosphere' )  THEN
+          i = 2
+       ELSE
+          i = 0
+       ENDIF
+    ENDIF
+    CALL MPI_BCAST( i, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr )
+    IF ( i == 0 )  THEN
+       coupling_mode = 'uncoupled'
+    ELSEIF ( i == 1 )  THEN
+       coupling_mode = 'atmosphere_to_ocean'
+    ELSEIF ( i == 2 )  THEN
+       coupling_mode = 'ocean_to_atmosphere'
+    ENDIF
     IF ( coupling_mode == 'ocean_to_atmosphere' )  coupling_char = '_O'
 #endif