Changeset 3035 for LMDZ6/trunk/libf/phylmd/yamada4.F90

Timestamp:

Oct 23, 2017, 9:54:11 AM (7 years ago)

Author:

fhourdin

Message:

Ajout de THREADPRIVATE (non indispensables)
Et un peu de nettoyage pour yamada4

File:

• LMDZ6/trunk/libf/phylmd/yamada4.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/yamada4.F90

@@ -117 +117 @@
   REAL aa(klon, klev+1), aa0, aa1
   INTEGER nlay, nlev
-  LOGICAL first
-  INTEGER ipas
-  SAVE first, ipas
-  ! FH/IM     data first,ipas/.true.,0/
-  DATA first, ipas/.FALSE., 0/
-  !$OMP THREADPRIVATE( first,ipas)
+
   LOGICAL,SAVE :: hboville=.TRUE.
   REAL,SAVE :: viscom,viscoh
@@ -136 +131 @@
   INTEGER iter
   REAL dissip(klon,klev), tkeprov,tkeexp, shear(klon,klev), buoy(klon,klev)
+  REAL :: disseff
+
   REAL,SAVE :: ric0,ric,rifc, b1, kap
   !$OMP THREADPRIVATE(ric0,ric,rifc,b1,kap)
@@ -147 +144 @@
   !$OMP THREADPRIVATE(new_yamada4,yamada4_num)
   REAL, SAVE :: yun,ydeux
-  REAL :: disseff
   !$OMP THREADPRIVATE(yun,ydeux)
+
   REAL frif, falpha, fsm
   REAL rino(klon, klev+1), smyam(klon, klev), styam(klon, klev), &
@@ -225 +222 @@
   nlay = klev
   nlev = klev + 1
-  ipas = ipas + 1
 
 
@@ -725 +721 @@
 !============================================================================
 
-  first = .FALSE.
   RETURN
 
@@ -978 +973 @@
  REAL     hlim(klon)
  REAL, SAVE :: kap=0.4,kapb=0.4
+  !$OMP THREADPRIVATE(kap,kapb)
  REAL zq
  REAL sq(klon), sqz(klon)