Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/lmdz_filtreg_p.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/lmdz_filtreg_p.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/lmdz_filtreg_p.F90

@@ -102 +102 @@
     !-------------------------------------------------------c
 
-    IF(ifiltre==1.or.ifiltre==-1) &
+    IF(ifiltre==1.OR.ifiltre==-1) &
             CALL abort_gcm("lmdz_filtreg_p", 'Pas de transformee&
                     &simple dans cette version', 1)