Changeset 1001 for LMDZ4/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Oct 6, 2008, 11:11:53 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/phylmd/phys_local_var_mod.F90 (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -51 +51 @@
       REAL, SAVE, ALLOCATABLE :: d_u_lif(:,:), d_v_lif(:,:)
       !$OMP THREADPRIVATE(d_u_lif, d_v_lif)
+! Tendances Ondes de G non oro (runs strato).
+      REAL, SAVE, ALLOCATABLE :: d_u_hin(:,:)
+      !$OMP THREADPRIVATE(d_u_hin)
+      REAL, SAVE, ALLOCATABLE :: d_v_hin(:,:)
+      !$OMP THREADPRIVATE(d_v_hin)
+      REAL, SAVE, ALLOCATABLE :: d_t_hin(:,:)
+      !$OMP THREADPRIVATE(d_t_hin)
+
 ! tendance du a la conersion Ec -> E thermique
       REAL, SAVE, ALLOCATABLE :: d_t_ec(:,:)