Changeset 188 for codes/icosagcm/trunk/src/transfert_mpi.f90

Timestamp:

04/10/14 14:02:39 (10 years ago)

Author:

ymipsl

Message:

Bug fix : Due to regression from last commit, variable message_number was not initialized and not saved.

YM

File:

• codes/icosagcm/trunk/src/transfert_mpi.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/transfert_mpi.f90

@@ -880 +880 @@
     INTEGER :: dim3,dim4
     INTEGER :: i,j
-    INTEGER :: message_number
+    INTEGER,SAVE :: message_number=0
 !    TYPE(t_reorder),POINTER :: reorder(:)
 !    TYPE(t_reorder) :: reorder_swap