Changeset 714 for codes/icosagcm/devel/src/parallel/transfert_mpi.f90
- Timestamp:
- 08/03/18 16:53:37 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/parallel/transfert_mpi.f90
r603 r714 2 2 USE genmod 3 3 USE field_mod 4 IMPLICIT NONE 4 5 5 6 TYPE array … … 85 86 END INTERFACE 86 87 87 88 89 88 CONTAINS 90 89 91 90 92 91 SUBROUTINE init_transfert 92 USE profiling_mod 93 93 USE domain_mod 94 94 USE dimensions … … 100 100 INTEGER :: ind,i,j 101 101 LOGICAL ::ok 102 102 103 CALL register_id('MPI', id_mpi) 104 103 105 CALL create_request(field_t,req_i1) 104 106 … … 1094 1096 1095 1097 SUBROUTINE send_message_mpi(field,message) 1098 USE profiling_mod 1096 1099 USE field_mod 1097 1100 USE domain_mod … … 1124 1127 1125 1128 ! CALL trace_start("send_message_mpi") 1129 1130 CALL enter_profile(id_mpi) 1126 1131 1127 1132 !$OMP BARRIER … … 1482 1487 !$OMP BARRIER 1483 1488 ! CALL trace_end("send_message_mpi") 1489 1490 CALL exit_profile(id_mpi) 1484 1491 1485 1492 END SUBROUTINE send_message_mpi … … 1499 1506 1500 1507 SUBROUTINE wait_message_mpi(message) 1508 USE profiling_mod 1501 1509 USE field_mod 1502 1510 USE domain_mod … … 1527 1535 message%open=.FALSE. 1528 1536 IF (.NOT. message%pending) RETURN 1537 1538 CALL enter_profile(id_mpi) 1529 1539 1530 1540 ! CALL trace_start("wait_message_mpi") … … 1667 1677 !$OMP BARRIER 1668 1678 1679 CALL exit_profile(id_mpi) 1680 1669 1681 END SUBROUTINE wait_message_mpi 1670 1682
Note: See TracChangeset
for help on using the changeset viewer.