Ignore:
Timestamp:
Oct 21, 2012 1:03:21 PM (9 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:
1 edited

Legend:

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

    r668 r1032  
    44! Current revisions:
    55! -----------------
    6 !
     6! minor reformatting
    77!
    88! Former revisions:
     
    9797#if defined( __parallel )
    9898       IF ( myid == 0 ) THEN
    99           CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,          &
    100                              target_id, 0,                                      &
    101                              terminate_coupled_remote, 1, MPI_INTEGER,          &
    102                              target_id, 0,                                      &
     99          CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,         &
     100                             target_id, 0,                                     &
     101                             terminate_coupled_remote, 1, MPI_INTEGER,         &
     102                             target_id, 0,                                     &
    103103                             comm_inter, status, ierr )
    104104       ENDIF
    105        CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0, comm2d, ierr)
     105       CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0, comm2d,  &
     106                       ierr )
    106107#endif
    107108    ENDIF
     
    147148#if defined( __parallel )
    148149             IF ( myid == 0 ) THEN
    149                 CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,    &
    150                                    target_id,  0,                               &
    151                                    terminate_coupled_remote, 1, MPI_INTEGER,    &
    152                                    target_id,  0,                               &
     150                CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,   &
     151                                   target_id,  0,                              &
     152                                   terminate_coupled_remote, 1, MPI_INTEGER,   &
     153                                   target_id,  0,                              &
    153154                                   comm_inter, status, ierr )   
    154155             ENDIF
    155              CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0, comm2d, ierr) 
    156            
     156             CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0,  &
     157                             comm2d, ierr ) 
    157158#endif
    158159          ENDIF
Note: See TracChangeset for help on using the changeset viewer.