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

LMDZ4/trunk/libf/dyn3dpar/leapfrog_p.F

@@ -76 +76 @@
 #include "advtrac.h"
       
-      include 'mpif.h'
       integer nq
 
@@ -237 +236 @@
 c$OMP MASTER
 
-!$OMP CRITICAL (MPI)
-      call MPI_BARRIER(COMM_LMDZ,ierr)
-!$OMP END CRITICAL (MPI)
-
+      CALL barrier
+      
 c$OMP END MASTER
 c$OMP BARRIER
@@ -736 +733 @@
         call Register_SwapFieldHallo(flxw,flxw,ip1jmp1,llm,
      *                               jj_Nb_physic,2,2,Request_physic)
-        call SetDistrib(jj_nb_Physic)
         
         call SendRequest(Request_Physic)
@@ -853 +849 @@
 c      ajout des tendances physiques:
 c      ------------------------------
+         IF (ok_strato) THEN
+           CALL top_bound_p( vcov,ucov,teta, dufi,dvfi,dtetafi)
+         ENDIF
+       
           CALL addfi_p( nqmx, dtphys, leapf, forward   ,
      $                  ucov, vcov, teta , q   ,ps ,
@@ -1289 +1289 @@
 c$OMP BARRIER
               call WaitRequest(TestRequest)
+c$OMP BARRIER
 c$OMP MASTER
               CALL writedynav_p(histaveid, nqmx, itau,vcov ,
@@ -1340 +1341 @@
         CALL writehist_p(histid,histvid, nqmx,itau,vcov, 
      s                       ucov,teta,phi,q,masse,ps,phis)
-c#else
-c       call Gather_Field(unat,ip1jmp1,llm,0)
-c       call Gather_Field(vnat,ip1jm,llm,0)
-c       call Gather_Field(teta,ip1jmp1,llm,0)
-c       call Gather_Field(ps,ip1jmp1,1,0)
-c       do iq=1,nqmx
-c        call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
-c       enddo
-c      
-c       if (mpi_rank==0) then
-c#include "write_grads_dyn.h"
-c       endif
+
 #endif
 c$OMP END MASTER
@@ -1445 +1435 @@
               call WaitRequest(TestRequest)
 
+c$OMP BARRIER
 c$OMP MASTER
               CALL writedynav_p(histaveid, nqmx, itau,vcov ,