Changeset 987 for LMDZ4/trunk/libf/phylmd/cva_driver.F

Timestamp:

Jul 30, 2008, 5:57:45 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Du nettoyage sur le parallelisme, inclusion de nouvelles interfaces pour OPA9
et ORCHIDEE YM
LF

File:

• LMDZ4/trunk/libf/phylmd/cva_driver.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/cva_driver.F

@@ -308 +308 @@
       logical ok_inhib  ! True => possible inhibition of convection by dryness
       logical, save :: debut=.true. 
+c$OMP THREADPRIVATE(debut)
 
       real plcl1(klon)
@@ -412 +413 @@
       real hnk(nloc),unk(nloc),vnk(nloc)
       logical, save :: first=.true.
+c$OMP THREADPRIVATE(first)
 
 c