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

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

@@ -1 @@
-C
-C $Header$
-C
        SUBROUTINE ord_coord ( nmax, xi, xo, decrois )
 
@@ -13 +10 @@
 
        INTEGER nmax
-       REAL xi(1)
-       INTEGER nscr
-       PARAMETER ( nscr = 4000 )
-       REAL xscr(nscr)
+       REAL xi(nmax)
 
 c    .....  Arguments  en sortie  .....
 c
-       REAL xo(1) 
+       REAL xo(nmax+1) 
        LOGICAL decrois
 
 c    .... Variables  locales  ....
 
+       REAL xscr(nmax)
        INTEGER i,ii
        REAL pi, degres, chmin, chmax, mult
 c
-
-       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.)