Changeset 1111 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar

Timestamp:

Mar 2, 2009, 5:34:53 PM (16 years ago)

Author:

yann meurdesoif

Message:

Desactivation du filtre FFT (version parallèle uniquement) si le zoom est activé (bis, un oubli...).

YM

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/conf_gcm.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/conf_gcm.F

@@ -693 +693 @@
       CALL getin('use_filtre_fft',use_filtre_fft)
 
-      IF (grossismx /= 1.0) THEN
+      IF (use_filtre_fft .AND. grossismx /= 1.0) THEN
         write(lunout,*)'WARNING !!! '
         write(lunout,*)"Le zoom en longitude est incompatible",
      &                 " avec l'utilisation du filtre FFT ",
      &                 "---> filtre FFT désactivé "
+       use_filtre_fft=.FALSE.
       ENDIF