Changeset 269 for LMDZ.3.3/trunk/libf/dyn3d/ord_coordm.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/ord_coordm.F (modified) (4 diffs)

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

@@ -1 @@
-C
-C $Header$
-C
        SUBROUTINE ord_coordm ( nmax, xi, xo, jjm, jmods, decrois )
 
@@ -12 +9 @@
 c    .....  Arguments  en entree  .....
 
-       INTEGER nmax
-       REAL xi(1)
-       INTEGER nscr
-       PARAMETER ( nscr = 4000 )
-       REAL xscr(nscr)
+       INTEGER nmax,jjm
+       REAL xi(nmax)
 
 c    .....  Arguments  en sortie  .....
 c
-       REAL xo(1) 
+       REAL xo(nmax+1) 
        LOGICAL decrois
        INTEGER jmods
@@ -26 +20 @@
 c    .... Variables  locales  ....
 
-       INTEGER i,jjm
+       REAL xscr(nmax)
+       INTEGER i
        REAL pi, degres, chmin, chmax,mult
 c
@@ -38 +33 @@
        IF( nmax.EQ.jjm +1 ) jmods = nmax -1 
      
-       IF( nmax.GT.nscr )   THEN
-         PRINT *,' Dans ord_coord  , nmax = ',nmax, 'est plus grand que'
-     ,, ' nscr !  Mettre nscr a la valeur de nmax et repasser ! '  
-         CALL ABORT
-       ENDIF
-
        pi     = 2.*ASIN(1.)
        degres = 180./pi