Changeset 1840 for LMDZ5/trunk

Timestamp:

Aug 9, 2013, 3:53:19 PM (11 years ago)

Author:

lguez

Message:

Allow not to compile FFT files for the sequential version.

File:

• LMDZ5/trunk/libf/filtrez/filtreg_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/filtrez/filtreg_mod.F90

@@ -10 +10 @@
 
   SUBROUTINE inifilr
+#ifdef CPP_PARA
   USE mod_filtre_fft, ONLY : use_filtre_fft,Init_filtre_fft
   USE mod_filtre_fft_loc, ONLY : Init_filtre_fft_loc=>Init_filtre_fft    !
+#endif
     !    ... H. Upadhyaya, O.Sharma   ...
     !
@@ -538 +540 @@
     ENDDO ! of DO j = jfiltsu, jjm
 
+#ifdef CPP_PARA
     IF (use_filtre_fft) THEN
        CALL Init_filtre_fft(coefilu,modfrstu,jfiltnu,jfiltsu,  &
@@ -544 +547 @@
                            coefilv,modfrstv,jfiltnv,jfiltsv)
     ENDIF
-
+#endif
     !   ...................................................................