Changeset 291 for palm/trunk/SOURCE/surface_coupler.f90

Timestamp:

Apr 16, 2009 12:07:26 PM (15 years ago)

Author:

raasch

Message:

changes for coupling with independent precursor runs; z_i calculation with Sullivan criterion

File:

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

palm/trunk/SOURCE/surface_coupler.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! Coupling with independent precursor runs.
 ! Output of messages replaced by message handling routine.
 !
@@ -35 +36 @@
     INTEGER ::  i, j, k
 
-    REAL    ::  simulated_time_remote
+    REAL    ::  time_since_reference_point_rem
 
 #if defined( __parallel )
@@ -65 +66 @@
        RETURN
     ENDIF
+
 !
 !-- Exchange the current simulated time between the models,
 !-- currently just for testing
-    CALL MPI_SEND( simulated_time, 1, MPI_REAL, target_id, 11, &
+    CALL MPI_SEND( time_since_reference_point, 1, MPI_REAL, target_id, 11, &
                    comm_inter, ierr )
-    CALL MPI_RECV( simulated_time_remote, 1, MPI_REAL, target_id, 11, &
+    CALL MPI_RECV( time_since_reference_point_rem, 1, MPI_REAL, target_id, 11, &
                    comm_inter, status, ierr )
-    WRITE ( 9, * )  simulated_time, ' remote: ', simulated_time_remote
+    WRITE ( 9, * ) 'simulated time: ', simulated_time
+    WRITE ( 9, * ) 'time since start of coupling: ', &
+                   time_since_reference_point, ' remote: ', &
+                   time_since_reference_point_rem
     CALL local_flush( 9 )