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

LMDZ4/trunk/libf/dyn3dpar/gcm.F

@@ -49 +49 @@
 c   Declarations:
 c   -------------
-      include 'mpif.h'
 #include "dimensions.h"
 #include "paramet.h"
@@ -220 +219 @@
       CALL set_bands
       CALL Init_interface_dyn_phys
-      call MPI_BARRIER(COMM_LMDZ,ierr)
+      CALL barrier
+
       if (mpi_rank==0) call WriteBands
       call SetDistrib(jj_Nb_Caldyn)