Changeset 1742 for LMDZ5/trunk/libf/phylmd/cv3p_mixing.F

Timestamp:

Apr 5, 2013, 1:49:35 PM (11 years ago)

Author:

idelkadi

Message:

1- Inclusion des developpements de la these de Romain Pilon sur le
lessivage des aerosols :

a/ par les pluies convectives (modifs cv30_routines et cv3_routines pour

sortir les champs nécessaires au calcul off-line ; modif cvltr)

b/ par les pluies stratiformes (modifs phytrac et introduction

lsc_scav).

2- Choix entre plusieurs schemas pour les pluies stratiformes, commande
par iflag_lscav.

3- Quelques corrections dans la convection "Nouvelle Physique" pour
assurer la conservation des traceurs (cv3p1_mixing et cva_driver) (travail
de Robin Locatelli).

File:

• LMDZ5/trunk/libf/phylmd/cv3p_mixing.F (modified) (3 diffs)

LMDZ5/trunk/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