Changeset 2221 for LMDZ5/trunk/libf/phymar

Timestamp:

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

Author:

Ehouarn Millour

Message:

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

File:

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

LMDZ5/trunk/libf/phymar/physiq.F90

@@ -10 +10 @@
       SUBROUTINE physiq (nlon,nlev, &
      &            debut,lafin,jD_cur, jH_cur,pdtphys, &
-     &            paprs,pplay,pphi,pphis,ppresnivs,clesphy0, &
+     &            paprs,pplay,pphi,pphis,ppresnivs, &
      &            u,v,t,qx, &
      &            flxmass_w, &
@@ -118 +118 @@
       real,intent(in) :: pphis(klon) ! surface geopotential
       real,intent(in) :: ppresnivs(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)