Changeset 2598 for LMDZ5/trunk/libf/filtrez

Timestamp:

Jul 22, 2016, 11:28:39 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn serre.h into module serre_mod.F90
EM

Location:

LMDZ5/trunk/libf/filtrez

Files:

• filtreg_mod.F90 (modified) (2 diffs)
• inifgn.F (modified) (2 diffs)

LMDZ5/trunk/libf/filtrez/filtreg_mod.F90

@@ -14 +14 @@
   USE mod_filtre_fft_loc, ONLY : Init_filtre_fft_loc=>Init_filtre_fft    !
 #endif
+  USE serre_mod, ONLY: alphax
     !    ... H. Upadhyaya, O.Sharma   ...
     !
@@ -22 +23 @@
     !     Correction  le 28/10/97    P. Le Van .
     !  -------------------------------------------------------------------
-#include "dimensions.h"
-#include "paramet.h"
+    include "dimensions.h"
+    include "paramet.h"
     !  -------------------------------------------------------------------
-#include "comgeom.h"
-#include "coefils.h"
-#include "logic.h"
-#include "serre.h"
+    include "comgeom.h"
+    include "coefils.h"
+    include "logic.h"
 
     REAL  dlonu(iim),dlatu(jjm)

LMDZ5/trunk/libf/filtrez/inifgn.F

@@ -8 +8 @@
       IMPLICIT NONE
 c
-#include "dimensions.h"
-#include "paramet.h"
-#include "comgeom.h"
-#include "serre.h"
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
 
 c
@@ -20 +19 @@
       INTEGER i,j,k,imm1,nrot
 C
-#include "coefils.h"
+      include "coefils.h"
 c
       EXTERNAL SSUM, acc,eigen,jacobi