Changeset 1000 for LMDZ4/trunk/libf/dyn3dpar/writehist_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/writehist_p.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/writehist_p.F

@@ -90 +90 @@
       jjn=jj_nb
           
-      call histwrite(histid, 'ucov', itau_w, ucov, 
+      call histwrite(histid, 'ucov', itau_w, ucov(ijb:ije,:), 
      .               iip1*jjn*llm, ndexu)
 
@@ -96 +96 @@
 C  Vents V
 C
-      if (pole_sud) ije=jj_end-iip1
+      if (pole_sud) ije=ij_end-iip1
       if (pole_sud) jjn=jj_nb-1