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

Timestamp:

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

Author:

lmdz

Message:

Remplacement des allocates par des dimensionnements classiques. LeVan?
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/inter_barxy.F (modified) (4 diffs)

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

@@ -1 @@
-C
-C $Header$
-C
        SUBROUTINE inter_barxy ( interfd,jnterfd,dlonid,dlatid ,
      ,        champ,imod,jmod,rlonimod,rlatimod, jsort,champint )
@@ -16 +13 @@
 #include "comgeom2.h"
 
-       REAL champx(iip1),chpn(iip1),chps(iip1)
+       REAL champx(imod),champy(jnterfd +1,imod),chpn(imod),chps(imod)
        REAL chhpn,chhps
        REAL fmody(jjp1)
-       INTEGER jmp1
-    
-       REAL,ALLOCATABLE :: champy(:,:)
-       ALLOCATE(champy(jnterfd+1,iip1))
 c
 
+         print *,' NEEEEE BY ** '
        DO j = 1, jnterfd + 1
         CALL inter_barx( interfd, dlonid, champ( 1,j ),
      ,                       imod, rlonimod , champx )
-        
          DO i = 1,imod
            champy(j,i) = champx(i)
@@ -36 +29 @@
        DO i = 1, imod
         CALL inter_bary( jjm,jnterfd,dlatid,champy(1,i),
-     ,                        jmod ,rlatimod,  fmody     )
+     ,                     jmod ,rlatimod,  fmody     )
           DO j = 1, jsort
            champint(i,j) = fmody(j)
@@ -60 +53 @@
        ENDIF
 
-         DEALLOCATE(champy)
-
        RETURN
        END