Changeset 727

Timestamp:

Nov 7, 2006, 8:02:35 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Modif pour rendre KLDZ et INCA plus indépendants ACo
LF

File:

• LMDZ4/branches/V3_test/libf/dyn3dpar/advtrac_p.F (modified) (4 diffs)

LMDZ4/branches/V3_test/libf/dyn3dpar/advtrac_p.F

@@ -8 +8 @@
      *                   p,  masse,q,iapptrac,teta,
      *                  flxw,
-     *                  pk,
-     *                  mmt_adj,
-     *                  hadv_flg)
+     *                  pk   )
 #else
       SUBROUTINE advtrac_p(pbaru,pbarv ,
@@ -58 +56 @@
       REAL pk(ip1jmp1,llm)
 #ifdef INCA
-cym      INTEGER            :: hadv_flg(nq)
-         INTEGER            :: hadv_flg(nqmx)
-cym      REAL               :: mmt_adj(ip1jmp1,llm)
-       REAL               :: mmt_adj(ip1jmp1,llm,1)
        REAL               :: flxw(ip1jmp1,llm)
 #endif
@@ -335 +329 @@
 #ifdef INCA
        do iiq = iq+1, iq+3
-         q(:,:,iiq)=q(:,:,iiq)*mmt_adj(:,:,1)
+         q(:,:,iiq)=q(:,:,iiq)*1
        enddo
 #endif
@@ -354 +348 @@
 #ifdef INCA
        do iiq = iq+1, iq+9
-         q(:,:,iiq)=q(:,:,iiq)*mmt_adj(:,:,1)
+         q(:,:,iiq)=q(:,:,iiq)*1
        enddo
 #endif