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

Timestamp:

Jul 26, 2024, 5:56:37 PM (8 weeks ago)

Author:

abarral

Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

Location:

LMDZ6/branches/Amaury_dev/libf/filtrez

Files:

• lmdz_fft_fftw.F90 (modified) (3 diffs)
• lmdz_filtre_fft.F90 (modified) (2 diffs)
• lmdz_filtre_fft_loc.F90 (modified) (2 diffs)
• lmdz_filtreg.F90 (modified) (2 diffs)

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

@@ -17 +17 @@
   SUBROUTINE Init_fft(iim,nvectmax)
   IMPLICIT NONE
-#include <fftw3.f>
+#INCLUDE <fftw3.f>
     INTEGER :: iim
     INTEGER :: nvectmax
@@ -85 +85 @@
   SUBROUTINE fft_forward(vect,TF_vect,nb_vect)
     IMPLICIT NONE
-#include <fftw3.f>
+#INCLUDE <fftw3.f>
     INTEGER,INTENT(IN)     :: nb_vect
     REAL,INTENT(IN)        :: vect(vsize+inc,nb_vect)
@@ -98 +98 @@
   SUBROUTINE fft_backward(TF_vect,vect,nb_vect)
     IMPLICIT NONE
-#include <fftw3.f>
+#INCLUDE <fftw3.f>
     INTEGER,INTENT(IN)     :: nb_vect
     REAL,INTENT(OUT)       :: vect(vsize+inc,nb_vect)

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

@@ -17 +17 @@
     USE lmdz_fft
     IMPLICIT NONE
-    include 'dimensions.h'
+    INCLUDE 'dimensions.h'
     REAL,   INTENT(IN) :: coeffu(iim,jjm)
     INTEGER,INTENT(IN) :: modfrstu(jjm)
@@ -123 +123 @@
 #endif
     IMPLICIT NONE
-    include 'dimensions.h'
+    INCLUDE 'dimensions.h'
     INTEGER,INTENT(IN) :: nlat
     INTEGER,INTENT(IN) :: jj_begin

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

@@ -14 +14 @@
     USE lmdz_fft
     IMPLICIT NONE
-    include 'dimensions.h'
+    INCLUDE 'dimensions.h'
     REAL, INTENT(IN) :: coeffu(iim, jjm)
     INTEGER, INTENT(IN) :: modfrstu(jjm)
@@ -111 +111 @@
 #endif
     IMPLICIT NONE
-    include 'dimensions.h'
+    INCLUDE 'dimensions.h'
     INTEGER, INTENT(IN) :: jjb
     INTEGER, INTENT(IN) :: jje

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

@@ -333 +333 @@
     IMPLICIT NONE
     !
-    include "dimensions.h"
-    include "paramet.h"
-    include "comgeom.h"
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "comgeom.h"
     !
     REAL :: vec(iim, iim), vec1(iim, iim)
@@ -593 +593 @@
     !     Correction  le 28/10/97    P. Le Van .
     !  -------------------------------------------------------------------
-    include "dimensions.h"
-    include "paramet.h"
-    include "comgeom.h"
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "comgeom.h"
 
     REAL  dlonu(iim), dlatu(jjm)