Changeset 616 for LMDZ4/trunk/libf/dyn3d/caladvtrac.F

Timestamp:

Apr 13, 2005, 10:58:34 AM (19 years ago)

Author:

lmdzadmin

Message:

Mise a jour pour INCA.2.0 Anne C
MAFi+LF

File:

• LMDZ4/trunk/libf/dyn3d/caladvtrac.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3d/caladvtrac.F

@@ -4 +4 @@
 c
 c
-#ifdef INCA_CH4
+#ifdef INCA
             SUBROUTINE caladvtrac(q,pbaru,pbarv ,
      *                   p ,masse, dq ,  teta,
@@ -41 +41 @@
       REAL p( ip1jmp1,llmp1),q( ip1jmp1,llm,nqmx),dq( ip1jmp1,llm,2 )
       REAL teta( ip1jmp1,llm),pk( ip1jmp1,llm)
-#ifdef INCA_CH4
+#ifdef INCA
       INTEGER            :: hadv_flg(nqmx)
       REAL               :: mmt_adj(iip1,jjp1,llm,1)
@@ -73 +73 @@
 c   advection
 
-#ifdef INCA_CH4
+#ifdef INCA
       CALL advtrac( pbaru,pbarv, 
      *             p,  masse,q,iapptrac, teta,