Changeset 986 for LMDZ4/trunk

Timestamp:

Jul 30, 2008, 5:50:56 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Inclusion du filtre FFT YM
LF

Location:

LMDZ4/trunk/libf/filtrez

Files:

• filtre_fft.F90 (added)
• inifilr.F (modified) (2 diffs)
• mod_fft.F90 (added)
• mod_fft_fftw.F90 (added)
• mod_fft_mathkeisan.F90 (added)
• mod_fft_mkl.F90 (added)
• mod_fft_wrapper.F90 (added)
• timer_filtre.F90 (added)

LMDZ4/trunk/libf/filtrez/inifilr.F

@@ -6 +6 @@
 c    ... H. Upadhyaya, O.Sharma   ...
 c
+      USE mod_filtre_fft
       IMPLICIT NONE
 c
@@ -585 +586 @@
 
 c
+       IF (use_filtre_fft) THEN
+       CALL Init_filtre_fft(coefilu,modfrstu,jfiltnu,jfiltsu,
+     &                      coefilv,modfrstv,jfiltnv,jfiltsv)
+       ENDIF
+       
 334    FORMAT(1x,24i3)
 755    FORMAT(1x,6f10.3,i3)