Ignore:
Timestamp:
03/07/18 11:18:39 (6 years ago)
Author:
dubos
Message:

devel/unstructured : cleanup

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r681 r683  
    6161          num(:), & ! number of cells to send to / receive from other MPI ranks 
    6262          cells(:) ! local indices of cells to send/receive 
    63      DBL, ALLOCATABLE :: buf1(:), buf2(:,:), buf3(:,:,:) 
     63     DBL, ALLOCATABLE :: buf2(:,:) 
    6464  END TYPE Halo_transfer 
    6565  TYPE(Halo_transfer), TARGET :: send_info(transfer_max), recv_info(transfer_max) 
Note: See TracChangeset for help on using the changeset viewer.