Changeset 2258 for LMDZ5/branches/testing/libf/phymar

Timestamp:

Apr 13, 2015, 10:21:09 AM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes 2216:2237 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phymar/iniphysiq.F (deleted)
• libf/phymar/iniphysiq.F90 (copied) (copied from LMDZ5/trunk/libf/phymar/iniphysiq.F90)
• libf/phymar/physiq.F90 (modified) (2 diffs)

LMDZ5/branches/testing/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)