Ignore:
Timestamp:
Oct 13, 2008 2:59:11 PM (13 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

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

    r110 r206  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Implementation of an MPI-1 coupling: replaced myid with target_id
    77!
    88! Former revisions:
     
    6464!-- Output that job will be terminated
    6565    IF ( terminate_run  .AND.  myid == 0 )  THEN
    66        PRINT*, '*** WARNING: run will be terminated because it is running out', &
    67                     ' of job cpu limit'
     66       PRINT*, '*** WARNING: run will be terminated because it is running', &
     67                    ' out of job cpu limit'
    6868       PRINT*, '             remaining time:         ', remaining_time, ' s'
    69        PRINT*, '             termination time needed:', termination_time_needed,&
    70                     ' s'
     69       PRINT*, '             termination time needed:', &
     70                             termination_time_needed, ' s'
    7171    ENDIF
    7272
     
    8080
    8181       terminate_coupled = 3
    82        CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER, myid,  0, &
    83                           terminate_coupled_remote, 1, MPI_INTEGER, myid,  0, &
     82       CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,          &
     83                          target_id, 0,                                      &
     84                          terminate_coupled_remote, 1, MPI_INTEGER,          &
     85                          target_id, 0,                                      &
    8486                          comm_inter, status, ierr )
    8587    ENDIF
     
    107109                                       'settings of'
    108110             PRINT*, '                 restart_time / dt_restart'
    109              PRINT*, '                 new restart time is: ', time_restart, ' s'
     111             PRINT*, '                 new restart time is: ', time_restart, &
     112                                       ' s'
    110113          ENDIF
    111114!
     
    114117!--       informed of another termination reason (terminate_coupled > 0) before,
    115118!--       or vice versa (terminate_coupled_remote > 0).
    116           IF ( coupling_mode /= 'uncoupled' .AND. terminate_coupled == 0  .AND. &
    117                terminate_coupled_remote == 0)  THEN
     119          IF ( coupling_mode /= 'uncoupled' .AND. terminate_coupled == 0  &
     120               .AND.  terminate_coupled_remote == 0 )  THEN
    118121
    119122             IF ( dt_restart /= 9999999.9 )  THEN
     
    122125                terminate_coupled = 5
    123126             ENDIF
    124              CALL MPI_SENDRECV(                                                 &
    125                             terminate_coupled,        1, MPI_INTEGER, myid,  0, &
    126                             terminate_coupled_remote, 1, MPI_INTEGER, myid,  0, &
    127                             comm_inter, status, ierr )
     127             CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,    &
     128                                target_id,  0,                               &
     129                                terminate_coupled_remote, 1, MPI_INTEGER,    &
     130                                target_id,  0,                               &
     131                                comm_inter, status, ierr )
    128132          ENDIF
    129133       ELSE
Note: See TracChangeset for help on using the changeset viewer.