Ignore:
Timestamp:
05/24/18 14:56:55 (6 years ago)
Author:
dubos
Message:

devel/unstructured : profile halo exchange & reduce verbosity

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r688 r700  
    7676    INTEGER :: llbuf, num, i, istart, ireq, ierr 
    7777    IF(.NOT. transfer_initialized) RETURN 
     78    CALL enter_trace(id_halo, 0) 
    7879    halo => send_info(index) 
    7980    buf => halo%buf2 
    … …  
    109110 
    110111    CALL copy_out(SIZE(data,1), SIZE(data,2), SIZE(buf,1), SIZE(buf,2), halo%cells, data, buf) 
     112    CALL enter_trace(id_halo, 0) 
    111113  END SUBROUTINE update_halo 
    112114 
Note: See TracChangeset for help on using the changeset viewer.