Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/filtrez/filtreg.F

    r2 r196  
    290290 100  CONTINUE
    291291c
    292 1111  FORMAT(//20x,'ERREUR dans le dimensionnement du tableau CHAMP a fil
    293      *-trer, sur la grille des scalaires'/)
    294 2222  FORMAT(//20x,'ERREUR dans le dimensionnement du tableau CHAMP a fil
    295      *-trer, sur la grille de V ou de Z'/)
     2921111  FORMAT(//20x,'ERREUR dans le dimensionnement du tableau  CHAMP a
     293     *filtrer, sur la grille des scalaires'/)
     2942222  FORMAT(//20x,'ERREUR dans le dimensionnement du tableau CHAMP a fi
     295     *ltrer, sur la grille de V ou de Z'/)
    296296      RETURN
    297297      END
  • LMDZ.3.3/trunk/libf/filtrez/jacobi.F

    r2 r196  
    11      SUBROUTINE JACOBI(A,N,NP,D,V,NROT)
    2       PARAMETER (NMAX=200)
     2      PARAMETER (NMAX=400)
    33      DIMENSION A(NP,NP),D(NP),V(NP,NP),B(NMAX),Z(NMAX)
    44      IF (n.gt.nmax) THEN
  • LMDZ.3.3/trunk/libf/filtrez/parafilt.h

    r2 r196  
    44c       PARAMETER (nfilun=30,nfilus=30,nfilvn=30,nfilvs=30)
    55c        PARAMETER (nfilun=6, nfilus=5, nfilvn=5, nfilvs=5)
    6          PARAMETER (nfilun=15, nfilus=8, nfilvn=14, nfilvs=8)
     6c         PARAMETER (nfilun=15, nfilus=8, nfilvn=14, nfilvs=8)
    77c        PARAMETER (nfilun=24, nfilus=23, nfilvn=24, nfilvs=24)
    88cmaf -debug  PARAMETER (nfilun=2, nfilus=1, nfilvn=2, nfilvs=2)
     
    1616ccc      PARAMETER (nfilun=13, nfilus=12, nfilvn=12, nfilvs=12)
    1717c
     18c 192 143 19 non-zoom:
     19c             PARAMETER (nfilun=13, nfilus=12, nfilvn=13, nfilvs=13)
     20c      PARAMETER (nfilun=15, nfilus=14, nfilvn=14, nfilvs=14) !!NO fxyhyper
     21c      PARAMETER (nfilun=18, nfilus=17, nfilvn=17, nfilvs=17) !!NO fxyhyper
     22        PARAMETER (nfilun=30,nfilus=30,nfilvn=30,nfilvs=30)
     23
    1824c 96 72 19 non-zoom:
    1925ccc      PARAMETER (nfilun=12, nfilus=11, nfilvn=12, nfilvs=12)
Note: See TracChangeset for help on using the changeset viewer.