Changeset 2221 for LMDZ5/trunk/libf/phydev

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/phydev/physiq.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phydev/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, &
@@ -45 +45 @@
       real,intent(in) :: pphis(klon) ! surface geopotential
       real,intent(in) :: presnivs(klev) ! pseudo-pressure (Pa) of mid-layers
-      integer,parameter :: longcles=20
-      real,intent(in) :: clesphy0(longcles) ! Not used
       real,intent(in) :: u(klon,klev) ! eastward zonal wind (m/s)
       real,intent(in) :: v(klon,klev) ! northward meridional wind (m/s)