Changeset 616 for LMDZ4/trunk/libf/dyn3d/leapfrog.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/leapfrog.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3d/leapfrog.F

@@ -132 +132 @@
 
       REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)
-#ifdef INCA_CH4
+#ifdef INCA
       REAL :: flxw(ip1jmp1,llm)
 #endif
@@ -274 +274 @@
 
 c
-#ifdef INCA_CH4
+#ifdef INCA
              CALL caladvtrac(q,pbaru,pbarv,
      *                      p, masse, dq,  teta,
@@ -358 +358 @@
      $               ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,
      $               du,dv,dteta,dq,w,
-#ifdef INCA_CH4
+#ifdef INCA
      $               flxw,
 #endif