Changeset 231

Timestamp:

Jun 20, 2001, 3:31:30 PM (23 years ago)

Author:

lmdzadmin

Message:

Merge avec la branche principale
LF

Location:

LMDZ.3.3/branches/rel-LF/libf/filtrez

Files:

• filtreg.F (modified) (1 diff)
• jacobi.F (modified) (1 diff)
• parafilt.h (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/filtrez/filtreg.F

@@ -290 +290 @@
  100  CONTINUE
 c
-1111  FORMAT(//20x,'ERREUR dans le dimensionnement du tableau CHAMP a fil
-     *-trer, sur la grille des scalaires'/)
-2222  FORMAT(//20x,'ERREUR dans le dimensionnement du tableau CHAMP a fil
-     *-trer, sur la grille de V ou de Z'/)
+1111  FORMAT(//20x,'ERREUR dans le dimensionnement du tableau  CHAMP a 
+     *filtrer, sur la grille des scalaires'/)
+2222  FORMAT(//20x,'ERREUR dans le dimensionnement du tableau CHAMP a fi
+     *ltrer, sur la grille de V ou de Z'/)
       RETURN
       END

LMDZ.3.3/branches/rel-LF/libf/filtrez/jacobi.F

@@ -1 +1 @@
       SUBROUTINE JACOBI(A,N,NP,D,V,NROT)
-      PARAMETER (NMAX=200)
+      PARAMETER (NMAX=400)
       DIMENSION A(NP,NP),D(NP),V(NP,NP),B(NMAX),Z(NMAX)
       IF (n.gt.nmax) THEN

LMDZ.3.3/branches/rel-LF/libf/filtrez/parafilt.h

@@ -16 +16 @@
 ccc      PARAMETER (nfilun=13, nfilus=12, nfilvn=12, nfilvs=12)
 c
+c 192 143 19 non-zoom:
+c             PARAMETER (nfilun=13, nfilus=12, nfilvn=13, nfilvs=13)
+c      PARAMETER (nfilun=15, nfilus=14, nfilvn=14, nfilvs=14) !!NO fxyhyper
+c      PARAMETER (nfilun=18, nfilus=17, nfilvn=17, nfilvs=17) !!NO fxyhyper
+        PARAMETER (nfilun=30,nfilus=30,nfilvn=30,nfilvs=30)
+
 c 96 72 19 non-zoom:
       PARAMETER (nfilun=12, nfilus=11, nfilvn=12, nfilvs=12)