Changeset 196 for LMDZ.3.3/trunk/libf/filtrez

Timestamp:

Mar 29, 2001, 4:58:49 PM (24 years ago)

Author:

lmdz

Message:

Chgt pour surdimensionner le filtre FH
LF

Location:

LMDZ.3.3/trunk/libf/filtrez

Files:

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

LMDZ.3.3/trunk/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/trunk/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/trunk/libf/filtrez/parafilt.h

@@ -4 +4 @@
 c       PARAMETER (nfilun=30,nfilus=30,nfilvn=30,nfilvs=30)
 c        PARAMETER (nfilun=6, nfilus=5, nfilvn=5, nfilvs=5)
-         PARAMETER (nfilun=15, nfilus=8, nfilvn=14, nfilvs=8)
+c         PARAMETER (nfilun=15, nfilus=8, nfilvn=14, nfilvs=8)
 c        PARAMETER (nfilun=24, nfilus=23, nfilvn=24, nfilvs=24)
 cmaf -debug  PARAMETER (nfilun=2, nfilus=1, nfilvn=2, nfilvs=2)
@@ -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:
 ccc      PARAMETER (nfilun=12, nfilus=11, nfilvn=12, nfilvs=12)