Changeset 704 for LMDZ4/branches/V3_test/libf/phylmd/fisrtilp_tr.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/fisrtilp_tr.F (modified) (4 diffs)

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

@@ -11 +11 @@
 
 c
+      USE dimphy
       IMPLICIT none
 c======================================================================
@@ -19 +20 @@
 c======================================================================
 c======================================================================
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
 #include "YOMCST.h"
 #include "tracstoke.h"
@@ -101 +102 @@
       LOGICAL appel1er
       SAVE appel1er
+c$OMP THREADPRIVATE(appel1er)
 c
 c---------------------------------------------------------------
@@ -110 +112 @@
       REAL a_tr_sca(4)
       save a_tr_sca
+c$OMP THREADPRIVATE(a_tr_sca)
 c
 c Variables intermediaires