Ignore:
Timestamp:
Apr 16, 2009 12:07:26 PM (12 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_coupler.f90

    r274 r291  
    44! Current revisions:
    55! -----------------
     6! Coupling with independent precursor runs.
    67! Output of messages replaced by message handling routine.
    78!
     
    3536    INTEGER ::  i, j, k
    3637
    37     REAL    ::  simulated_time_remote
     38    REAL    ::  time_since_reference_point_rem
    3839
    3940#if defined( __parallel )
     
    6566       RETURN
    6667    ENDIF
     68
    6769!
    6870!-- Exchange the current simulated time between the models,
    6971!-- currently just for testing
    70     CALL MPI_SEND( simulated_time, 1, MPI_REAL, target_id, 11, &
     72    CALL MPI_SEND( time_since_reference_point, 1, MPI_REAL, target_id, 11, &
    7173                   comm_inter, ierr )
    72     CALL MPI_RECV( simulated_time_remote, 1, MPI_REAL, target_id, 11, &
     74    CALL MPI_RECV( time_since_reference_point_rem, 1, MPI_REAL, target_id, 11, &
    7375                   comm_inter, status, ierr )
    74     WRITE ( 9, * )  simulated_time, ' remote: ', simulated_time_remote
     76    WRITE ( 9, * ) 'simulated time: ', simulated_time
     77    WRITE ( 9, * ) 'time since start of coupling: ', &
     78                   time_since_reference_point, ' remote: ', &
     79                   time_since_reference_point_rem
    7580    CALL local_flush( 9 )
    7681
Note: See TracChangeset for help on using the changeset viewer.