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

Timestamp:

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

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2186:2216 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/tlift.F90 (modified) (2 diffs)

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

@@ -4 +4 @@
 SUBROUTINE tlift(p, t, rr, rs, gz, plcl, icb, nk, tvp, tpk, clw, nd, nl, &
     dtvpdt1, dtvpdq1)
-
+  IMPLICIT NONE
   ! Argument NK ajoute (jyg) = Niveau de depart de la
   ! convection
-
-  PARAMETER (na=60)
-  REAL gz(nd), tpk(nd), clw(nd)
+  INTEGER icb, nk, nd, nl
+  INTEGER,PARAMETER :: na=60
+  REAL gz(nd), tpk(nd), clw(nd), plcl
   REAL t(nd), rr(nd), rs(nd), tvp(nd), p(nd)
   REAL dtvpdt1(nd), dtvpdq1(nd) ! Derivatives of parcel virtual
@@ -17 +17 @@
   REAL dtpdt1(na), dtpdq1(na) ! Derivatives of parcel temperature
   ! wrt T1 and Q1
-
+  REAL gravity, cpd, cpv, cl, ci, cpvmcl, clmci, eps, alv0, alf0
+  REAL cpp, cpinv, ah0, alf, tg, s, ahg, tc, denom, alv, es, esi
+  REAL qsat_new, snew
+  INTEGER icbl, i, imin, j, icb1
 
   LOGICAL ice_conv