Last change
on this file since 1959 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.