Changeset 711 for codes/icosagcm/trunk/src/parallel/transfert.F90

Timestamp:

07/25/18 13:57:35 (6 years ago)

Author:

ymipsl

Message:

Adding halo transfer for scalar field ad vorticity point.
=> Use request "req_z1_scal" with transfer function

YM

File:

• codes/icosagcm/trunk/src/parallel/transfert.F90 (modified) (2 diffs)

codes/icosagcm/trunk/src/parallel/transfert.F90

@@ -3 +3 @@
 #ifdef CPP_USING_MPI
   USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_mpi, req_i1,req_e1_vect, &
-                                req_e1_scal, req_i0, req_e0_vect, req_e0_scal, request_add_point,             &
+                                req_e1_scal, req_z1_scal, req_i0, req_e0_vect, req_e0_scal, request_add_point,             &
                                 create_request, gather_field, scatter_field,         &
                                 t_message, init_message=>init_message_mpi,           &
@@ -12 +12 @@
 #else 
   USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_seq, req_i1,req_e1_vect, &
-                                req_e1_scal,req_i0, req_e0_vect, req_e0_scal,        &
+                                req_e1_scal, req_z1_scal, req_i0, req_e0_vect, req_e0_scal,        &
                                 request_add_point, create_request, gather_field,     &
                                 scatter_field, t_message,                            &