Changeset 940 for LMDZ4/trunk/libf/phylmd/thermcell.F

Timestamp:

Apr 7, 2008, 4:33:30 PM (16 years ago)

Author:

Laurent Fairhead

Message:

On remplace le fichier include dimphy.h par le module dimphy.F90i pour etre
coherent avec le partout
LF

File:

• LMDZ4/trunk/libf/phylmd/thermcell.F (modified) (8 diffs)

LMDZ4/trunk/libf/phylmd/thermcell.F

@@ -6 +6 @@
      s                  ,r_aspect,l_mix,w2di,tho)
 
+      USE dimphy
       IMPLICIT NONE
 
@@ -33 +34 @@
 
 #include "dimensions.h"
-#include "dimphy.h"
+cccc#include "dimphy.h"
 #include "YOMCST.h"
 
@@ -62 +63 @@
       real zmix(klon), fracazmix(klon) 
 c RC 
-      real zmax(klon),zw,zz,zw2(klon,klev+1),ztva(klon,klev),zzz
+      real zmax(klon),zw,zw2(klon,klev+1),ztva(klon,klev)
 
       real zlev(klon,klev+1),zlay(klon,klev)
@@ -73 +74 @@
       real zwa(klon,klev+1)
       real zld(klon,klev+1)
-      real zwd(klon,klev+1)
+!      real zwd(klon,klev+1)
       real zsortie(klon,klev)
       real zva(klon,klev)
@@ -85 +86 @@
       real zf,zf2
       real thetath2(klon,klev),wth2(klon,klev)
-      common/comtherm/thetath2,wth2
+!      common/comtherm/thetath2,wth2
 
       real count_time
+!      integer isplit,nsplit
       integer isplit,nsplit,ialt
       parameter (nsplit=10)
@@ -128 +130 @@
       character*10 str10
 
-      LOGICAL vtest(klon),down
+!      LOGICAL vtest(klon),down
 
       EXTERNAL SCOPY
 
-      integer ncorrec,ll
+      integer ncorrec
       save ncorrec
       data ncorrec/0/
@@ -1084 +1086 @@
      s                ,zmax,wmax)
 
+      USE dimphy
       IMPLICIT NONE
 
 #include "dimensions.h"
-#include "dimphy.h"
+cccc#include "dimphy.h"
 #include "YOMCST.h"
 
@@ -1123 +1126 @@
       REAL ztva(klon,klev)
       real nu(klon,klev)
-      real zmax0_sec(klon)
-      save zmax0_sec
+!      real zmax0_sec(klon)
+!      save zmax0_sec
+       REAL, SAVE, ALLOCATABLE :: zmax0_sec(:)
+c$OMP THREADPRIVATE(zmax0_sec)
+      logical, save :: first = .true.
+
+      if (first) then
+        allocate(zmax0_sec(klon))
+        first=.false.
+      endif
 
       do l=1,nlay