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

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

@@ -9 +9 @@
  
 c
+      USE dimphy
       IMPLICIT none
 c======================================================================
@@ -43 +44 @@
 c
 #include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimphy.h"
 c
       integer NTRAC
@@ -73 +74 @@
        INTEGER i,k,itra
        REAL qs(klon,klev)
-       REAL cbmf(klon)
-       SAVE cbmf
+cym       REAL cbmf(klon)
+cym       SAVE cbmf
+       REAL,ALLOCATABLE,SAVE :: cbmf(:)
+c$OMP THREADPRIVATE(cbmf)
        INTEGER ifrst
        SAVE ifrst
        DATA ifrst /0/
+c$OMP THREADPRIVATE(ifrst)
 #include "YOMCST.h"
 #include "YOETHF.h"
@@ -85 +89 @@
       IF (ifrst .EQ. 0) THEN
          ifrst = 1
+         allocate(cbmf(klon))
          DO i = 1, klon
           cbmf(i) = 0.