Changeset 868 for codes/icosagcm/devel/src/parallel/transfert_mpi.f90

Timestamp:

05/16/19 23:52:50 (5 years ago)

Author:

dubos

Message:

devel : temporary deactivation of some features for unstructured mesh driver

File:

• codes/icosagcm/devel/src/parallel/transfert_mpi.f90 (modified) (6 diffs)

codes/icosagcm/devel/src/parallel/transfert_mpi.f90

@@ -1142 +1142 @@
   USE omp_para
   USE trace
+  USE grid_param
   IMPLICIT NONE
     TYPE(t_field),POINTER :: field(:)
@@ -1166 +1167 @@
 
 !    CALL trace_start("send_message_mpi")
+
+    IF(grid_type == grid_unst) RETURN
 
     CALL enter_profile(id_mpi)
@@ -1552 +1555 @@
   USE omp_para
   USE trace
+  USE grid_param
   IMPLICIT NONE
     TYPE(t_message) :: message
@@ -1571 +1575 @@
     INTEGER :: dim3,dim4,d3,d4,lbegin,lend
     INTEGER :: offset
+
+    IF(grid_type == grid_unst) RETURN
 
     message%open=.FALSE.
@@ -1722 +1728 @@
   SUBROUTINE transfert_request_mpi(field,request)
   USE field_mod
+  USE grid_param
   IMPLICIT NONE
     TYPE(t_field),POINTER :: field(:)
@@ -1728 +1735 @@
     TYPE(t_message),SAVE :: message
    
-   
+    IF(grid_type == grid_unst) RETURN
+
     CALL init_message_mpi(field,request, message)
     CALL transfert_message_mpi(field,message)