source: LMDZ4/branches/LMDZ4_AR5/libf/filtrez/coefils.h @ 5153

Last change on this file since 5153 was 1601, checked in by Ehouarn Millour, 13 years ago

Updates and upgrades of filter:

  • add minor corrections (r1591 of trunk) in filtreg_mod.F90: some arrays were oversized and the computation of the indexes from which the filter is applied could go wrong in extreme cases.
  • adapt filtreg_p.F (r1597 of trunk) so that BLAS routine DGEMM is only used if 'BLAS' preprocessing flag is set.
  • update FFT filter routines to match current 'trunk' versions (mostly cosmetic changes, exept for the implementation of use of FFTW in mod_fft_fftw.F90).
  • update "arch-PW6_VARGAS.fcm" to enable use of FFTW

NB: implemented FFTs assume working precision to be double precision ; trying to use them when working precision is single precision will clearly end in tragedy.
EM

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 839 bytes
Line 
1!
2! $Id $
3!
4      COMMON/coefils/jfiltnu,jfiltsu,jfiltnv,jfiltsv,sddu(iim),sddv(iim)&
5     & ,unsddu(iim),unsddv(iim),coefilu(iim,jjm),coefilv(iim,jjm),      &
6     & modfrstu(jjm),modfrstv(jjm),eignfnu(iim,iim),eignfnv(iim,iim)    &
7     & ,coefilu2(iim,jjm),coefilv2(iim,jjm)
8!c
9      INTEGER jfiltnu ! index of the last lat line filtered in NH (U grid)
10      INTEGER jfiltsu ! index of the first lat line filtered in SH (U grid)
11      INTEGER jfiltnv ! index of the last lat line filtered in NH (V grid)
12      INTEGER jfiltsv ! index of the first lat line filtered in SH (V grid)
13      INTEGER modfrstu ! number of retained (ie: unfiltered) modes on U grid
14      INTEGER modfrstv ! number of retained (ie: unfiltered) modes on V grid
15      REAL    sddu,sddv,unsddu,unsddv,coefilu,coefilv,eignfnu,eignfnv
16      REAL    coefilu2,coefilv2
Note: See TracBrowser for help on using the repository browser.