Index: /LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.fcm
===================================================================
--- /LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.fcm	(revision 1142)
+++ /LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.fcm	(revision 1142)
@@ -0,0 +1,15 @@
+%COMPILER            xlf_r
+%LINK                mpxlf_r
+%AR                  ar
+%MAKE                gmake
+%FPP_FLAGS           -P
+%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM
+%BASE_FFLAGS         -qautodbl=dbl4
+%PROD_FFLAGS         -O5
+%DEV_FFLAGS          -O2 -qfullpath -qinitauto=7FBFFFFF -qfloat=nans -qflttrap=overflow:zerodivide:invalid:enable -qsigtrap
+%DEBUG_FFLAGS        -g -qfullpath -qnooptimize -qinitauto=7FBFFFFF  -qfloat=nans -qflttrap=overflow:zerodivide:invalid:enable -qsigtrap 
+%MPI_FFLAGS          -I/usr/lpp/ppe.poe/include/thread64
+%OMP_FFLAGS          -qsmp=omp
+%BASE_LD             -lessl
+%MPI_LD              
+%OMP_LD              -qsmp=omp
Index: /LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.path
===================================================================
--- /LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.path	(revision 1142)
+++ /LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.path	(revision 1142)
@@ -0,0 +1,10 @@
+set NETCDF_LIBDIR=/usr/local/pub/NetCDF/3.6.3/include/lib
+set NETCDF_INCDIR=/usr/local/pub/NetCDF/3.6.3/include
+set IOIPSL_INCDIR=$LMDGCM/../../lib
+set IOIPSL_LIBDIR=$LMDGCM/../../lib
+set ORCH_INCDIR=$LMDGCM/../../lib
+set ORCH_LIBDIR=$LMDGCM/../../lib
+set OASIS_INCDIR=$LMDGCM/../../prism/SX/build/lib/psmile.$couple
+set OASIS_LIBDIR=$LMDGCM/../../prism/SX/lib
+set INCA_LIBDIR=$LMDGCM/../INCA3/config/lib
+set INCA_INCDIR=$LMDGCM/../INCA3/config/lib
Index: /LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F
===================================================================
--- /LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F	(revision 1141)
+++ /LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F	(revision 1142)
@@ -369,7 +369,6 @@
       CALL gr_dyn_fi_p(llm,iip1,jjp1,klon,pphi,zphi)
 
-c$OMP MASTER
       CALL gr_dyn_fi_p(1,iip1,jjp1,klon,pphis,zphis)
-c$OMP END MASTER
+
 c$OMP BARRIER
 
@@ -895,7 +894,5 @@
 c  tendance sur la pression :
 c  -----------------------------------
-c$OMP MASTER
       CALL gr_fi_dyn_p(1,klon,iip1,jjp1,zdpsrf,pdpsfi)
-c$OMP END MASTER
 c
 c   62. enthalpie potentielle
Index: /LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/times.F90
===================================================================
--- /LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/times.F90	(revision 1141)
+++ /LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/times.F90	(revision 1142)
@@ -207,5 +207,5 @@
       endif
       
-    ENDIF  ! using_mpî
+    ENDIF  ! using_mp�
   end subroutine allgather_timer_average
   
@@ -222,5 +222,5 @@
   end subroutine InitTime
   
-  function DiffTime
+  function DiffTime()
   implicit none
     double precision :: DiffTime
@@ -236,5 +236,5 @@
   end function DiffTime
   
-  function DiffCpuTime
+  function DiffCpuTime()
   implicit none
     real :: DiffCpuTime
Index: /LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90
===================================================================
--- /LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90	(revision 1141)
+++ /LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90	(revision 1142)
@@ -16,8 +16,4 @@
 #include "thermcell.h"
 #include "iniprint.h"
-
-!  A inclure eventuellement dans les fichiers de configuration
-      data r_aspect_thermals,l_mix_thermals/2.,30./
-      data w2di_thermals/1/
 
 !IM 140508
@@ -176,5 +172,5 @@
      &      ,tau_thermals,3)
           else if (iflag_thermals.eq.11) then
-            stop'cas non prevu dans calltherm'
+            stop 'cas non prevu dans calltherm'
 !           CALL thermcell_pluie(klon,klev,zdt  &
 !   &      ,pplay,paprs,pphi,zlev  &
Index: /LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90
===================================================================
--- /LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90	(revision 1141)
+++ /LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90	(revision 1142)
@@ -460,10 +460,7 @@
 !****************************************************************************************
 ! Declarations specifiques pour le 1D. A reprendre 
-  REAL  :: fsens,flat
-  LOGICAL ok_flux_surf
-  DATA ok_flux_surf/.FALSE./
-!ym pas glop !!
-  COMMON /flux_arp/fsens,flat,ok_flux_surf
-!$OMP THREADPRIVATE(/flux_arp/)
+  REAL,SAVE    :: fsens,flat
+  LOGICAL,SAVE :: ok_flux_surf=.FALSE.
+!$OMP THREADPRIVATE(fsens,flat,ok_flux_surf)
 
 !****************************************************************************************
Index: /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell.h
===================================================================
--- /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell.h	(revision 1141)
+++ /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell.h	(revision 1142)
@@ -1,13 +1,15 @@
-      integer iflag_thermals,nsplit_thermals
-      real r_aspect_thermals,l_mix_thermals,tau_thermals
-      integer w2di_thermals,isplit
-      integer iflag_coupl,iflag_clos,iflag_wake
-      integer iflag_thermals_ed,iflag_thermals_optflux
+      integer            :: iflag_thermals,nsplit_thermals
+      real,parameter     :: r_aspect_thermals=2.,l_mix_thermals=30.
+      real               :: tau_thermals
+      integer,parameter  :: w2di_thermals=1
+      integer            :: isplit
+
+      integer            :: iflag_coupl,iflag_clos,iflag_wake
+      integer            :: iflag_thermals_ed,iflag_thermals_optflux
 
       common/ctherm1/iflag_thermals,nsplit_thermals
-      common/ctherm2/r_aspect_thermals,l_mix_thermals,tau_thermals
-      common/ctherm3/w2di_thermals
+      common/ctherm2/tau_thermals
       common/ctherm4/iflag_coupl,iflag_clos,iflag_wake
       common/ctherm5/iflag_thermals_ed,iflag_thermals_optflux
 
-!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm3/,/ctherm4/)
+!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm4/,/ctherm5/)
Index: /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux.F90
===================================================================
--- /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux.F90	(revision 1141)
+++ /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux.F90	(revision 1142)
@@ -164,5 +164,5 @@
 ! FH Version en cours de test;
 ! par rapport a thermcell_flux, on fait une grande boucle sur "l"
-! et on modifie le flux avec tous les contrôles appliques d'affilee
+! et on modifie le flux avec tous les contr�les appliques d'affilee
 ! pour la meme couche
 ! Momentanement, on duplique le calcule du flux pour pouvoir comparer
@@ -264,5 +264,5 @@
             if (entr(ig,l)<0.) then
                print*,'N1 ig,l,entr',ig,l,entr(ig,l)
-               stop'entr negatif'
+               stop 'entr negatif'
             endif
             if (detr(ig,l).gt.fm(ig,l)) then
@@ -292,5 +292,5 @@
                print*,'entr(ig,l)',entr(ig,l)
                print*,'fm(ig,l)',fm(ig,l)
-               stop'probleme dans thermcell flux'
+               stop 'probleme dans thermcell flux'
             endif
          enddo
@@ -319,5 +319,5 @@
                print*,'detr(ig,l)',detr(ig,l)
                print*,'fm(ig,l)',fm(ig,l)
-               stop'probleme dans thermcell flux'
+               stop 'probleme dans thermcell flux'
             endif
         enddo
@@ -420,5 +420,5 @@
                          print*,'fm(ig,l+1)',fm(ig,l+1)
                          print*,'fm(ig,l)',fm(ig,l)
-                         stop'probleme dans thermcell_flux'
+                         stop 'probleme dans thermcell_flux'
                       endif
                       entr(ig,l+1)=entr(ig,l+1)-ddd
Index: /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux2.F90
===================================================================
--- /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux2.F90	(revision 1141)
+++ /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux2.F90	(revision 1142)
@@ -160,5 +160,5 @@
 ! FH Version en cours de test;
 ! par rapport a thermcell_flux, on fait une grande boucle sur "l"
-! et on modifie le flux avec tous les contrôles appliques d'affilee
+! et on modifie le flux avec tous les contr�les appliques d'affilee
 ! pour la meme couche
 ! Momentanement, on duplique le calcule du flux pour pouvoir comparer
@@ -256,5 +256,5 @@
             if (entr(ig,l)<0.) then
                print*,'N1 ig,l,entr',ig,l,entr(ig,l)
-               stop'entr negatif'
+               stop 'entr negatif'
             endif
             if (detr(ig,l).gt.fm(ig,l)) then
@@ -285,5 +285,5 @@
                print*,'entr(ig,l)',entr(ig,l)
                print*,'fm(ig,l)',fm(ig,l)
-               stop'probleme dans thermcell flux'
+               stop 'probleme dans thermcell flux'
             endif
          enddo
@@ -312,5 +312,5 @@
                print*,'detr(ig,l)',detr(ig,l)
                print*,'fm(ig,l)',fm(ig,l)
-               stop'probleme dans thermcell flux'
+               stop 'probleme dans thermcell flux'
             endif
         enddo
@@ -413,5 +413,5 @@
                          print*,'fm(ig,l+1)',fm(ig,l+1)
                          print*,'fm(ig,l)',fm(ig,l)
-                         stop'probleme dans thermcell_flux'
+                         stop 'probleme dans thermcell_flux'
                       endif
                       entr(ig,l+1)=entr(ig,l+1)-ddd
Index: /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_main.F90
===================================================================
--- /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_main.F90	(revision 1141)
+++ /LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_main.F90	(revision 1142)
@@ -484,5 +484,5 @@
 ! Test valable seulement en 1D mais pas genant
       if (.not. (f0(1).ge.0.) ) then
-           stop'Dans thermcell_main'
+           stop 'Dans thermcell_main'
       endif
 
