Changeset 73

Timestamp:

Mar 7, 2000, 4:55:35 PM (25 years ago)

Author:

lmdz

Message:

Petit menage suggere par El Gringo pour le 1d
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/paramet.h (modified) (1 diff)

LMDZ.3.3/trunk/libf/dyn3d/paramet.h

@@ -7 +7 @@
       INTEGER jcfil,jcfllm
 
-      PARAMETER( iip1= iim+1, iip2= iim+2, iip3= iim+3, jjp1= jjm+1 )
+      PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3
+     s    ,jjp1=jjm+1-1/jjm)
       PARAMETER( llmp1 = llm+1,  llmp2 = llm+2, llmm1 = llm-1 )
       PARAMETER( kftd  = iim/2 -ndm )