Changeset 709 for LMDZ4/branches/V3_test/libf/dyn3dpar/caladvtrac_p.F

Timestamp:

Sep 20, 2006, 12:12:39 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Nouvelles versions de la dynamique YM
LF

File:

• LMDZ4/branches/V3_test/libf/dyn3dpar/caladvtrac_p.F (modified) (3 diffs)

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

@@ -4 +4 @@
 c
 c
-#ifdef INCA_CH4
+#ifdef INCA
             SUBROUTINE caladvtrac_p(q,pbaru,pbarv ,
      *                   p ,masse, dq ,  teta,
@@ -58 +58 @@
 c   ------
 
-      EXTERNAL  advtrac,minmaxq, qminimum
       INTEGER ij,l, iq, iapptrac
       REAL finmasse(ip1jmp1,llm), dtvrtrac
@@ -77 +76 @@
 
 c   advection
+c      print *,'appel a advtrac'
 
 #ifdef INCA_CH4