Changeset 2221 for LMDZ5/trunk/libf/phylmd/physiq.F90

Timestamp:

Mar 9, 2015, 7:38:03 AM (9 years ago)

Author:

Ehouarn Millour

Message:

Some cleanup: remove (unused) clesph0 from dynamics.
EM

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -4 +4 @@
 SUBROUTINE physiq (nlon,nlev, &
      debut,lafin,jD_cur, jH_cur,pdtphys, &
-     paprs,pplay,pphi,pphis,presnivs,clesphy0, &
+     paprs,pplay,pphi,pphis,presnivs, &
      u,v,t,qx, &
      flxmass_w, &
@@ -283 +283 @@
   !$OMP THREADPRIVATE(ok_hf)
 
-  INTEGER        longcles
-  PARAMETER    ( longcles = 20 )
-  REAL clesphy0( longcles      )
+  INTEGER,PARAMETER :: longcles=20
+  REAL,SAVE :: clesphy0(longcles)
+  !$OMP THREADPRIVATE(clesphy0)
   !
   ! Variables propres a la physique