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

Timestamp:

Jun 29, 2017 9:28:18 AM (7 years ago)

Author:

raasch

Message:

write_binary is of type LOGICAL now, MPI2-related code removed, obsolete variables removed, sendrecv_in_background related parts removed, missing variable descriptions added

File:

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

palm/trunk/SOURCE/palm.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! type of write_binary changed from CHARACTER to LOGICAL,
+! user interface required revision updated, MPI2 related part removed
+! 
+! 2296 2017-06-28 07:53:56Z maronga
 ! Added call to new spinup routine
 ! 
@@ -236 +240 @@
 
     version = 'PALM 4.0'
-    user_interface_required_revision = 'r1819'
+    user_interface_required_revision = 'r2297'
 
 #if defined( __parallel )
@@ -425 +429 @@
 !
 !-- If required, write binary data for restart runs
-    IF ( write_binary(1:4) == 'true' )  THEN
+    IF ( write_binary )  THEN
 
        CALL cpu_log( log_point(22), 'write_3d_binary', 'start' )
@@ -475 +479 @@
           ENDIF
           CALL user_last_actions
-          IF ( write_binary(1:4) == 'true' )  CALL close_file( 14 )
+          IF ( write_binary )  CALL close_file( 14 )
        ENDIF
 #if defined( __parallel )
@@ -485 +489 @@
     CALL cpu_log( log_point(4), 'last actions', 'stop' )
 
-#if defined( __mpi2 )
-!
-!-- Test exchange via intercommunicator in case of a MPI-2 coupling
-    IF ( coupling_mode == 'atmosphere_to_ocean' )  THEN
-       i = 12345 + myid
-       CALL MPI_SEND( i, 1, MPI_INTEGER, myid, 11, comm_inter, ierr )
-    ELSEIF ( coupling_mode == 'ocean_to_atmosphere' )  THEN
-       CALL MPI_RECV( i, 1, MPI_INTEGER, myid, 11, comm_inter, status, ierr )
-       PRINT*, '### myid: ', myid, '   received from atmosphere:  i = ', i
-    ENDIF
-#endif
-
 !
 !-- Write run number to file (used by mrun to create unified cycle numbers for