Changeset 232 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/tracvl.F

Timestamp:

Jun 20, 2001, 3:53:15 PM (23 years ago)

Author:

lmdzadmin

Message:

Merge par rapport a la branche principale
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/tracvl.F (modified) (5 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/tracvl.F

@@ -1 +1 @@
       SUBROUTINE tracvl(numvanle,iapp_tracvl,nq,pbaru,pbarv ,
-     *                            p,  masse , q, iapptrac    )
+     *                    p, masse , q, iapptrac, iadv1, teta, pk  )
 c
 c     Auteur :  F. Hourdin
@@ -6 +6 @@
 c
 ccc   ..   Modif. P. Le Van  ( 20/12/97 )  ...
+c                 F. Codron     (10/99)
+
 c
       IMPLICIT NONE
@@ -15 +17 @@
 #include "comgeom.h"
 
-      INTEGER nq,iapp_tracvl
+c     .... Arguments  ....
+c
+      INTEGER numvanle, nq, iapp_tracvl, iapptrac, iadv1
 
       REAL pbaru(ip1jmp1,llm),pbarv(ip1jm,llm)
       REAL q(ip1jmp1,llm,nq),masse(ip1jmp1,llm)
-      REAL p( ip1jmp1,llmp1 )
+      REAL p( ip1jmp1,llmp1 ),teta(ip1jmp1,llm)
+      REAL pk(ip1jmp1,llm)
 
+c     ....  var. locales  .....
+c
       REAL pbaruc(ip1jmp1,llm),pbarvc(ip1jm,llm)
       REAL massem(ip1jmp1,llm),zdp(ip1jmp1)
@@ -26 +33 @@
       REAL pbarug(ip1jmp1,llm),pbarvg(ip1jm,llm),wg(ip1jmp1,llm)
 
-      INTEGER iapptrac
 
-      INTEGER iadvtr, numvanle
+      INTEGER iadvtr, numvan
       INTEGER ij,l,iq
       REAL zdpmin, zdpmax
       EXTERNAL  minmax
- 
-      SAVE iadvtr, massem,pbaruc,pbarvc
+      SAVE iadvtr, massem, pbaruc, pbarvc, numvan
       DATA iadvtr/0/
+
+      numvan = numvanle
 
       IF(iadvtr.EQ.0) THEN
@@ -99 +106 @@
 
 c   Advection proprement dite.
-         DO iq = numvanle, nq
+c
+c   test sur iadv1 pour le schema de vapeur d'eau
+c
+         IF (numvanle.EQ.1.AND.iadv1.EQ.4) THEN
+           CALL vlspltqs( q(1,1,1), 2., massem, wg ,
+     *                 pbarug,pbarvg,dtvr,p,pk,teta )
+           numvan = 2
+         ENDIF
+
+         DO iq = numvan, nq
           CALL vlsplt( q(1,1,iq), 2. ,massem,wg,pbarug,pbarvg,dtvr )
          ENDDO