Changeset 999 for LMDZ4/trunk/libf/dyn3d/leapfrog.F

Timestamp:

Oct 6, 2008, 10:33:07 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/dyn3d/leapfrog.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3d/leapfrog.F

@@ -184 +184 @@
       PARAMETER (testita = 9)
 
+      logical , parameter :: flag_verif = .true.
+      
+
       integer itau_w   ! pas de temps ecriture = itap + itau_phy
 
@@ -377 +380 @@
      $               clesphy0, dufi,dvfi,dtetafi,dqfi,dpfi  )
 
+       IF (ok_strato) THEN
+         CALL top_bound( vcov,ucov,teta, dufi,dvfi,dtetafi)
+       ENDIF
+       
 c      ajout des tendances physiques:
 c      ------------------------------
@@ -502 +509 @@
 
             IF( itau. EQ. itaufinp1 ) then  
-c              write(79,*) 'ucov',ucov
-c              write(80,*) 'vcov',vcov
-c              write(81,*) 'teta',teta
-c              write(82,*) 'ps',ps
-c              write(83,*) 'q',q
-c              WRITE(85,*) 'q1 = ',q(:,:,1)
-c              WRITE(86,*) 'q3 = ',q(:,:,3)
+              if (flag_verif) then
+                write(79,*) 'ucov',ucov
+                write(80,*) 'vcov',vcov
+                write(81,*) 'teta',teta
+                write(82,*) 'ps',ps
+                write(83,*) 'q',q
+                WRITE(85,*) 'q1 = ',q(:,:,1)
+                WRITE(86,*) 'q3 = ',q(:,:,3)
+              endif
 
               abort_message = 'Simulation finished'