Changeset 1032 for palm/trunk/SOURCE/check_for_restart.f90

Timestamp:

Oct 21, 2012 1:03:21 PM (12 years ago)

Author:

letzel

Message:

• mask locations determined based on scalar positions (init_masks)
• save memory by not allocating pt_2 in case of neutral = .T. (init_3d_model, swap_timelevel)
• minor reformatting (check_for_restart)

File:

• palm/trunk/SOURCE/check_for_restart.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_for_restart.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! minor reformatting
 !
 ! Former revisions:
@@ -97 +97 @@
 #if defined( __parallel )
        IF ( myid == 0 ) THEN
-          CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,          &
-                             target_id, 0,                                      &
-                             terminate_coupled_remote, 1, MPI_INTEGER,          &
-                             target_id, 0,                                      &
+          CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,         &
+                             target_id, 0,                                     &
+                             terminate_coupled_remote, 1, MPI_INTEGER,         &
+                             target_id, 0,                                     &
                              comm_inter, status, ierr )
        ENDIF
-       CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0, comm2d, ierr)
+       CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0, comm2d,  &
+                       ierr )
 #endif
     ENDIF
@@ -147 +148 @@
 #if defined( __parallel )
              IF ( myid == 0 ) THEN
-                CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,    &
-                                   target_id,  0,                               &
-                                   terminate_coupled_remote, 1, MPI_INTEGER,    &
-                                   target_id,  0,                               &
+                CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,   &
+                                   target_id,  0,                              &
+                                   terminate_coupled_remote, 1, MPI_INTEGER,   &
+                                   target_id,  0,                              &
                                    comm_inter, status, ierr )   
              ENDIF
-             CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0, comm2d, ierr)  
-            
+             CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0,  &
+                             comm2d, ierr )  
 #endif
           ENDIF