Changeset 2220 for LMDZ5/branches/testing/libf/phylmd/tilft43.F90

Timestamp:

Mar 3, 2015, 2:41:13 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2186:2216 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/tilft43.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/tilft43.F90

@@ -3 +3 @@
 
 SUBROUTINE tlift43(p, t, q, qs, gz, icb, nk, tvp, tpk, clw, nd, nl, kk)
+  IMPLICIT NONE
   REAL gz(nd), tpk(nd), clw(nd), p(nd)
   REAL t(nd), q(nd), qs(nd), tvp(nd), lv0
-
+  INTEGER icb, nk, nd, nl, kk
+  REAL cpd, cpv,  cl, g, rowl, gravity, cpvmcl, eps, epsi
+  REAL ah0, cpp, cpinv, tg, qg, alv, s, ahg, tc, denom, es
+  INTEGER i, nst, nsb, j 
   ! ***   ASSIGN VALUES OF THERMODYNAMIC CONSTANTS     ***