Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/filtrez

Timestamp:

Jul 24, 2024, 4:23:34 PM (11 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/filtrez/lmdz_filtreg.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90

@@ -78 +78 @@
     INTEGER :: sdd1_type, sdd2_type
 
-    if (iim == 1) return ! no filtre in 2D y-z
+    IF (iim == 1) return ! no filtre in 2D y-z
 
     IF (first) THEN
@@ -89 +89 @@
     ENDIF
 
-    IF(ifiltre==1.or.ifiltre==-1) &
+    IF(ifiltre==1.OR.ifiltre==-1) &
             stop 'Pas de transformee simple dans cette version'
 
@@ -425 +425 @@
     IMPLICIT NONE
     ! Arguments:
-    integer, intent(in) :: N
-    integer, intent(in) :: NP
-    integer, intent(out) :: NROT
-    real, intent(inout) :: A(NP, NP)
-    real, intent(out) :: D(NP)
-    real, intent(out) :: V(NP, NP)
+    INTEGER, INTENT(IN) :: N
+    INTEGER, INTENT(IN) :: NP
+    INTEGER, INTENT(OUT) :: NROT
+    REAL, INTENT(INOUT) :: A(NP, NP)
+    REAL, INTENT(OUT) :: D(NP)
+    REAL, INTENT(OUT) :: V(NP, NP)
 
     ! local variables:
@@ -562 +562 @@
     INTEGER :: i, j
     REAL :: sum
-    real, external :: ssum
+    REAL, external :: ssum
     do j = 1, im
       do i = 1, im
@@ -631 +631 @@
     !-----------------------------------------------------------
 
-    if (iim == 1) return ! No filtre in 2D y-z
+    IF (iim == 1) return ! No filtre in 2D y-z
 
     pi = 2. * ASIN(1.)