Changeset 704 for LMDZ4/branches/V3_test/libf/phylmd/diagphy.F

Timestamp:

Aug 17, 2006, 5:41:51 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/diagphy.F (modified) (3 diffs)

LMDZ4/branches/V3_test/libf/phylmd/diagphy.F

@@ -74 +74 @@
       save pas
       data pas/0/
+c$OMP THREADPRIVATE(pas)
 C
       pas=pas+1
@@ -258 +259 @@
       save pas
       data pas/ndiag*0/
+c$OMP THREADPRIVATE(pas)
 C     
       REAL      h_vcol_pre(ndiag), h_dair_pre(ndiag), h_qw_pre(ndiag)
@@ -264 +266 @@
       SAVE      h_vcol_pre, h_dair_pre, h_qw_pre, h_ql_pre
      $        , h_qs_pre, qw_pre, ql_pre, qs_pre , ec_pre
-
+c$OMP THREADPRIVATE(h_vcol_pre, h_dair_pre, h_qw_pre, h_ql_pre)
+c$OMP THREADPRIVATE(h_qs_pre, qw_pre, ql_pre, qs_pre , ec_pre)
 c======================================================================
 C