Changeset 1750 for LMDZ5/branches/testing/libf/phylmd/cv3p_mixing.F

Timestamp:

Apr 25, 2013, 5:27:27 PM (11 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur r1745

---

Testing release based on r1745

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/cv3p_mixing.F (modified) (3 diffs)

LMDZ5/branches/testing/libf/phylmd/cv3p_mixing.F

@@ -3 +3 @@
      :                    ,unk,vnk,hp,tv,tvp,ep,clw,sig
      :                    ,ment,qent,hent,uent,vent,nent
-     :                   ,sij,elij,supmax,ments,qents,traent)
+     :                   ,sigij,elij,supmax,ments,qents,traent)
 ***************************************************************
 *                                                             *
@@ -36 +36 @@
       real ment(nloc,na,na), qent(nloc,na,na)
       real uent(nloc,na,na), vent(nloc,na,na)
-      real sij(nloc,na,na), elij(nloc,na,na)
+      real sigij(nloc,na,na), elij(nloc,na,na)
       real supmax(nloc,na)     ! Highest mixing fraction of mixed updraughts
                                ! with the sign of (h-hp)
       real traent(nloc,nd,nd,ntra)
       real ments(nloc,nd,nd), qents(nloc,nd,nd)
-      real sigij(nloc,nd,nd)
       real hent(nloc,nd,nd)
       integer nent(nloc,nd)
@@ -57 +56 @@
       real Sbef(nloc), Sup(nloc), Smin(nloc)
       real asij(nloc), smax(nloc), scrit(nloc)
+      real sij(nloc,nd,nd)
       real csum(nloc,nd)
       real awat