Changeset 269 for LMDZ.3.3/trunk/libf/dyn3d/inter_barx.F

Timestamp:

Sep 5, 2001, 3:28:02 PM (23 years ago)

Author:

lmdz

Message:

Remplacement des allocates par des dimensionnements classiques. LeVan?
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/inter_barx.F (modified) (2 diffs)

LMDZ.3.3/trunk/libf/dyn3d/inter_barx.F

@@ -1 @@
-C
-C $Header$
-C
        SUBROUTINE inter_barx ( idatmax,xidat,fdat,imodmax,ximod,fmod ) 
 
@@ -24 +21 @@
       INTEGER idatmax, imodmax
       REAL xidat(idatmax),fdat(idatmax),ximod(imodmax),fmod(imodmax)
-      INTEGER imod,idat,i,ichang,id0,id1,nid,idatmax1
+
+c    ...  Variables locales ... 
+    
+      REAL xxid(idatmax+1), xxd(idatmax+1), fdd(idatmax+1)
+      REAL  fxd(idatmax+1), xchan(idatmax+1), fdchan(idatmax+1) 
+      REAL  xxim(imodmax)
+
       REAL x0,xim0,dx,dxm
       REAL chmin,chmax,pi
 
-    
-      REAL,ALLOCATABLE :: xxid(:)
-      REAL,ALLOCATABLE :: xxd(:)
-      REAL,ALLOCATABLE :: fdd(:)
-      REAL,ALLOCATABLE :: fxd(:)
-      REAL,ALLOCATABLE :: xchan(:)
-      REAL,ALLOCATABLE :: fdchan(:)
-      REAL,ALLOCATABLE :: xxim(:)
-
-      ALLOCATE( xxid(idatmax+1))
-      ALLOCATE( xxd(idatmax+1))
-      ALLOCATE( fdd(idatmax+1))
-      ALLOCATE( fxd(idatmax+1))
-      ALLOCATE( xchan(idatmax+1))
-      ALLOCATE( fdchan(idatmax+1))
-      ALLOCATE( xxim(imodmax))
-
+      INTEGER imod,idat,i,ichang,id0,id1,nid,idatmax1
       
       pi = 2. * ASIN(1.)