Changeset 296 for codes/icosagcm/branches

Timestamp:

11/03/14 14:48:19 (10 years ago)

Author:

ymipsl

Message:

Grid optimisation : report correction of rev r294 in Satrun branch

YM

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/geometry.f90 (modified) (1 diff)

codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/geometry.f90

@@ -149 +149 @@
     REAL(rstd) :: centr(3)
     INTEGER :: ind,i,j,n,k
-    TYPE(t_message),SAVE :: message
+    TYPE(t_message),SAVE :: message1,message0
     LOGICAL, SAVE :: first=.TRUE.
 !$OMP THREADPRIVATE(first)    
     
     IF (first) THEN
-      CALL init_message(geom%xyz_i, req_i1 ,message)
+      CALL init_message(geom%xyz_i, req_i1 ,message1)
+      CALL init_message(geom%xyz_i,req_i0, message0)
       first=.FALSE.
     ENDIF
     
-    CALL transfert_message(geom%xyz_i,message)
+    CALL transfert_message(geom%xyz_i,message0)
+    CALL transfert_message(geom%xyz_i,message1)