Changeset 232 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/vanleer.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/vanleer.F (modified) (4 diffs)

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

@@ -1 +1 @@
       SUBROUTINE vanleer(numvanle,iapp_tracvl,nq,q,pbaru,pbarv ,
-     *                                    p ,masse,  dq          )
+     *                     p ,masse, dq ,  iadv1, teta, pk      )
 c
       IMPLICIT NONE
 c
-c     Auteurs:   F.Hourdin , P.Le Van, F.Forget 
+c     Auteurs:   F.Hourdin , P.Le Van, F.Forget, F.Codron  
+c
+c     F.Codron (10/99) : ajout humidite specifique pour eau vapeur
 c=======================================================================
 c
@@ -18 +20 @@
 c   Arguments:
 c   ----------
-      INTEGER nq,numvanle,iapp_tracvl 
+      INTEGER nq, numvanle, iapp_tracvl, iadv1 
       REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm),masse(ip1jmp1,llm)
       REAL p( ip1jmp1,llmp1),q( ip1jmp1,llm,nq),dq( ip1jmp1,llm,nq )
-
+      REAL teta( ip1jmp1,llm),pk( ip1jmp1,llm)
 c  ..................................................................
 c
@@ -28 +30 @@
 c     numvanle est le numero du premier traceur qui appelle le
 c       shema de Van-Leer  (  1<=  numvanle <=  nqmx )  .
+c     si numvanle=1, iadv1=3 si Van-Leer seul, iadv1=4 si 
+c     Van-Leer+humidite specifique.
 c  ..................................................................
 c
@@ -61 +65 @@
 
       CALL tracvl( numvanle,iapp_tracvl,nq,pbaru,pbarv,p , masse,q  ,
-     *                                iapptrac                       )
+     *                      iapptrac, iadv1, teta ,pk              )
 
       IF( numvanle.EQ.1 ) THEN