Changeset 2438 for LMDZ5/trunk/libf/dyn3d

Timestamp:

Feb 3, 2016, 9:45:25 PM (9 years ago)

Author:

lguez

Message:

Bug fix

File:

• LMDZ5/trunk/libf/dyn3d/gcm.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/gcm.F90

@@ -157 +157 @@
   use_filtre_fft=.FALSE.
   CALL getin('use_filtre_fft',use_filtre_fft)
-  IF (use_filtre_fft) call abort_gcm('FFT filter is not available in the ' &
-          // 'sequential version of the dynamics.', 1)
+  IF (use_filtre_fft) call abort_gcm("gcm", 'FFT filter is not available in ' &
+          // 'the sequential version of the dynamics.', 1)
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!