Changeset 1352 for trunk/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

Oct 4, 2014, 6:38:40 PM (10 years ago)

Author:

emillour

Message:

Common dynamics:

• Added MESU arch files
• Bug fix in conf_gcm to enable using FFT filter

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/conf_gcm.F (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3dpar/conf_gcm.F

@@ -569 +569 @@
       CALL getin('use_filtre_fft',use_filtre_fft)
 
-      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 ",
-     &                 "---> FFT filter not active"
-       use_filtre_fft=.FALSE.
-      ENDIF
+! Ehouarn: at this point grossismx is undefined...
+!      IF (use_filtre_fft .AND. grossismx /= 1.0) THEN
+!        write(lunout,*)'WARNING !!! '
+!        write(lunout,*)"the zoom in longitude grossismx=",grossismx,
+!     &                 " is not compatible with an FFT filter",
+!     &                 "---> FFT filter not active"
+!       use_filtre_fft=.FALSE.
+!      ENDIF
 
 !Config  Key  = use_mpi_alloc
@@ -674 +675 @@
        grossismx = 1.0
        CALL getin('grossismx',grossismx)
+       IF (use_filtre_fft .AND. grossismx /= 1.0) THEN
+         write(lunout,*)'WARNING !!! '
+         write(lunout,*)"the zoom in longitude grossismx=",grossismx,
+     &                  " is not compatible with an FFT filter",
+     &                  "---> FFT filter not active"
+         use_filtre_fft=.FALSE.
+       ENDIF
 
 !Config  Key  = grossismy