Changeset 684 for codes/icosagcm


Ignore:
Timestamp:
03/07/18 12:58:33 (6 years ago)
Author:
dubos
Message:

devel/unstructured : fix no-MPI

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/unstructured/transfer_unstructured.F90

    r681 r684  
    66 
    77  INCLUDE 'mpif.h' 
    8    
     8 
     9  LOGICAL :: transfer_initialized=.FALSE. 
    910  PUBLIC :: update_halo 
    1011   
    … …  
    3940    CALL init_halo_transfer(send_info(index), send_rank, send_len, send_list) 
    4041    CALL init_halo_transfer(recv_info(index), recv_rank, recv_len, recv_list) 
     42    transfer_initialized=.TRUE. 
    4143  END SUBROUTINE init_transfer 
    4244 
    … …  
    7173         status(MPI_STATUS_SIZE, send_info(index)%ranks+recv_info(index)%ranks) 
    7274    INTEGER :: llbuf, num, i, istart, ireq, ierr 
     75    IF(.NOT. transfer_initialized) RETURN 
    7376    halo => send_info(index) 
    7477    buf => halo%buf2 
Note: See TracChangeset for help on using the changeset viewer.