Changeset 1000 for LMDZ4/trunk/libf/dyn3dpar/gr_u_scal_p.F

Timestamp:

Oct 6, 2008, 10:43:22 AM (16 years ago)

Author:

Laurent Fairhead

Message:

• Modifs sur le parallelisme: masquage dans la physique
• Inclusion strato
• mise en coherence etat0
• le mode offline fonctionne maintenant en parallele,
• les fichiers de la dynamiques sont correctement sortis et peuvent etre reconstruit avec rebuild
• la version parallele de la dynamique peut s'executer sans MPI (sur 1 proc)
• L'OPENMP fonctionne maintenant sans la parallelisation MPI.

YM
LF

File:

• LMDZ4/trunk/libf/dyn3dpar/gr_u_scal_p.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3dpar/gr_u_scal_p.F

@@ -50 +50 @@
       ijb=ij_begin
       ije=ij_end
-      if (pole_nord) ijb=ij_begin+iip1
       
       DO l=1,nx
-         DO ij=ijb,ije
+         DO ij=ijb+1,ije
             x_scal(ij,l)=
      s      (aireu(ij)*x_u(ij,l)+aireu(ij-1)*x_u(ij-1,l))