Changeset 206 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Oct 13, 2008 2:59:11 PM (16 years ago)

Author:

raasch

Message:

ocean-atmosphere coupling realized with MPI-1, adjustments in mrun, mbuild, subjob for lcxt4

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (11 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Implementation of an MPI-1 coupling: replaced myid with target_id, 
+! deleted __mpi2 directives
 !
 ! Former revisions:
@@ -139 +140 @@
           CALL local_stop
        ENDIF
-#if defined( __parallel )  &&  defined( __mpi2 )
-       CALL MPI_SEND( dt_coupling, 1, MPI_REAL, myid, 11, comm_inter, ierr )
-       CALL MPI_RECV( remote, 1, MPI_REAL, myid, 11, comm_inter, status, ierr )
+#if defined( __parallel )
+       CALL MPI_SEND( dt_coupling, 1, MPI_REAL, target_id, 11, comm_inter, &
+                      ierr )
+       CALL MPI_RECV( remote, 1, MPI_REAL, target_id, 11, comm_inter, &
+                      status, ierr )
        IF ( dt_coupling /= remote )  THEN
           IF ( myid == 0 )  THEN
@@ -151 +154 @@
        ENDIF
        IF ( dt_coupling <= 0.0 )  THEN
-          CALL MPI_SEND( dt_max, 1, MPI_REAL, myid, 19, comm_inter, ierr )
-          CALL MPI_RECV( remote, 1, MPI_REAL, myid, 19, comm_inter, status, &
-               ierr )
+          CALL MPI_SEND( dt_max, 1, MPI_REAL, target_id, 19, comm_inter, ierr )
+          CALL MPI_RECV( remote, 1, MPI_REAL, target_id, 19, comm_inter, &
+                         status, ierr )
           dt_coupling = MAX( dt_max, remote )
           IF ( myid == 0 )  THEN
@@ -162 +165 @@
           ENDIF
        ENDIF
-       CALL MPI_SEND( restart_time, 1, MPI_REAL, myid, 12, comm_inter, ierr )
-       CALL MPI_RECV( remote, 1, MPI_REAL, myid, 12, comm_inter, status, ierr )
+       CALL MPI_SEND( restart_time, 1, MPI_REAL, target_id, 12, comm_inter, &
+                      ierr )
+       CALL MPI_RECV( remote, 1, MPI_REAL, target_id, 12, comm_inter, &
+                      status, ierr )
        IF ( restart_time /= remote )  THEN
           IF ( myid == 0 )  THEN
@@ -172 +177 @@
           CALL local_stop
        ENDIF
-       CALL MPI_SEND( dt_restart, 1, MPI_REAL, myid, 13, comm_inter, ierr )
-       CALL MPI_RECV( remote, 1, MPI_REAL, myid, 13, comm_inter, status, ierr )
+       CALL MPI_SEND( dt_restart, 1, MPI_REAL, target_id, 13, comm_inter, &
+                      ierr )
+       CALL MPI_RECV( remote, 1, MPI_REAL, target_id, 13, comm_inter, &
+                      status, ierr )
        IF ( dt_restart /= remote )  THEN
           IF ( myid == 0 )  THEN
@@ -182 +189 @@
           CALL local_stop
        ENDIF
-       CALL MPI_SEND( end_time, 1, MPI_REAL, myid, 14, comm_inter, ierr )
-       CALL MPI_RECV( remote, 1, MPI_REAL, myid, 14, comm_inter, status, ierr )
+       CALL MPI_SEND( end_time, 1, MPI_REAL, target_id, 14, comm_inter, ierr )
+       CALL MPI_RECV( remote, 1, MPI_REAL, target_id, 14, comm_inter, &
+                      status, ierr )
        IF ( end_time /= remote )  THEN
           IF ( myid == 0 )  THEN
@@ -192 +200 @@
           CALL local_stop
        ENDIF
-       CALL MPI_SEND( dx, 1, MPI_REAL, myid, 15, comm_inter, ierr )
-       CALL MPI_RECV( remote, 1, MPI_REAL, myid, 15, comm_inter, status, ierr )
+       CALL MPI_SEND( dx, 1, MPI_REAL, target_id, 15, comm_inter, ierr )
+       CALL MPI_RECV( remote, 1, MPI_REAL, target_id, 15, comm_inter, &
+                      status, ierr )
        IF ( dx /= remote )  THEN
           IF ( myid == 0 )  THEN
@@ -202 +211 @@
           CALL local_stop
        ENDIF
-       CALL MPI_SEND( dy, 1, MPI_REAL, myid, 16, comm_inter, ierr )
-       CALL MPI_RECV( remote, 1, MPI_REAL, myid, 16, comm_inter, status, ierr )
+       CALL MPI_SEND( dy, 1, MPI_REAL, target_id, 16, comm_inter, ierr )
+       CALL MPI_RECV( remote, 1, MPI_REAL, target_id, 16, comm_inter, &
+                      status, ierr )
        IF ( dy /= remote )  THEN
           IF ( myid == 0 )  THEN
@@ -212 +222 @@
           CALL local_stop
        ENDIF
-       CALL MPI_SEND( nx, 1, MPI_INTEGER, myid, 17, comm_inter, ierr )
-       CALL MPI_RECV( iremote, 1, MPI_INTEGER, myid, 17, comm_inter, status, &
-            ierr )
+       CALL MPI_SEND( nx, 1, MPI_INTEGER, target_id, 17, comm_inter, ierr )
+       CALL MPI_RECV( iremote, 1, MPI_INTEGER, target_id, 17, comm_inter, &
+                      status, ierr )
        IF ( nx /= iremote )  THEN
           IF ( myid == 0 )  THEN
@@ -223 +233 @@
           CALL local_stop
        ENDIF
-       CALL MPI_SEND( ny, 1, MPI_INTEGER, myid, 18, comm_inter, ierr )
-       CALL MPI_RECV( iremote, 1, MPI_INTEGER, myid, 18, comm_inter, status, &
-            ierr )
+       CALL MPI_SEND( ny, 1, MPI_INTEGER, target_id, 18, comm_inter, ierr )
+       CALL MPI_RECV( iremote, 1, MPI_INTEGER, target_id, 18, comm_inter, &
+                      status, ierr )
        IF ( ny /= iremote )  THEN
           IF ( myid == 0 )  THEN
@@ -237 +247 @@
     ENDIF
 
-#if defined( __parallel )  &&  defined( __mpi2 )
+#if defined( __parallel )
 !
 !-- Exchange via intercommunicator
     IF ( coupling_mode == 'atmosphere_to_ocean' )  THEN
-       CALL MPI_SEND( humidity, &
-            1, MPI_LOGICAL, myid, 19, comm_inter, ierr )
+       CALL MPI_SEND( humidity, 1, MPI_LOGICAL, target_id, 19, comm_inter, &
+                      ierr )
     ELSEIF ( coupling_mode == 'ocean_to_atmosphere' )  THEN
-       CALL MPI_RECV( humidity_remote, &
-            1, MPI_LOGICAL, myid, 19, comm_inter, status, ierr )
+       CALL MPI_RECV( humidity_remote, 1, MPI_LOGICAL, target_id, 19, &
+                      comm_inter, status, ierr )
     ENDIF
 #endif