Changeset 766 for LMDZ4/trunk/libf/phylmd/calcratqs.F

Timestamp:

Jun 4, 2007, 4:34:47 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:

• LMDZ4/trunk/libf/phylmd/calcratqs.F (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/calcratqs.F

@@ -5 +5 @@
      I            paprs,pplay,q_seri,d_t_con,d_t_ajs
      O           ,ratqs,zpt_conv)
+      USE dimphy
       IMPLICIT none
 c======================================================================
@@ -23 +24 @@
 c pplay---input-R-pression pour le mileu de chaque couche (en Pa)
 c presnivs-input_R_pressions approximat. des milieux couches ( en PA)
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
       REAL paprs(klon,klev+1)
       REAL pplay(klon,klev)
@@ -36 +37 @@
       save firstcall
       data firstcall/.true./
-
+c$OMP THREADPRIVATE(firstcall)
 
       REAL ratqsmin,ratqsmax,zx,epmax
@@ -46 +47 @@
       save ratqs1,ratqs2,ratqs3,ratqs4
       save ratqsc1,ratqsc2,ratqsc3,ratqsc4
+c$OMP THREADPRIVATE(ratqsmin,ratqsmax,epmax)
+c$OMP THREADPRIVATE(ratqs1,ratqs2,ratqs3,ratqs4)
+c$OMP THREADPRIVATE(ratqsc1,ratqsc2,ratqsc3,ratqsc4)
       real zpt_conv(klon,klev)