Changeset 359 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/ord_coord.F

Timestamp:

May 24, 2002, 3:44:47 PM (22 years ago)

Author:

lmdzadmin

Message:

Menage sur les etats initiaux
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/ord_coord.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/ord_coord.F

@@ -81 +81 @@
         
        IF( decrois )  THEN
-         CALL sort(nmax+1,xo(1))
+c         CALL sort(nmax+1,xo(1))
+        CALL sort(nmax+1,xo)
        ENDIF