Changeset 774 for trunk/AGRIF/AGRIF_FILES/modmpp.F

Timestamp:

2007-12-18T17:45:53+01:00 (16 years ago)

Author:

rblod

Message:

Update Agrif, see ticket:#39

File:

• trunk/AGRIF/AGRIF_FILES/modmpp.F (modified) (2 diffs)

trunk/AGRIF/AGRIF_FILES/modmpp.F

@@ -341 +341 @@
      &               MPI_COMM_WORLD,statut,code)
        END SELECT
+                        
+            Call where_valtabtotab_mpi(tempCextend%var,
+     &             temprecv%var,imin_recv(:,k),imax_recv(:,k),0.,nbdim)
+     
+                Call Agrif_nbdim_deallocation(temprecv%var,nbdim)
+C                deallocate(temprecv%var)
+
             endif
+
+C
+      enddo
+
+C     Reception from others processors of the necessary part of the parent grid
+      do k = Agrif_ProcRank+1,Agrif_Nbprocs-1
+C
+C
             
             Call MPI_SEND(sendtoproc(k),1,MPI_LOGICAL,k,etiquette,
@@ -430 +445 @@
                 END SELECT
 C
-            endif            
-            
-            if (recvfromproc(k)) then
-                        
-            Call where_valtabtotab_mpi(tempCextend%var,
-     &             temprecv%var,imin_recv(:,k),imax_recv(:,k),0.,nbdim)
-     
-                Call Agrif_nbdim_deallocation(temprecv%var,nbdim)
-C                deallocate(temprecv%var)
-
             endif
 
 C
       enddo
-
 C
 C