Changeset 1422 for trunk/LMDZ.GENERIC/libf/filtrez

Timestamp:

Apr 30, 2015, 12:33:45 PM (10 years ago)

Author:

milmd

Message:

In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).

Location:

trunk/LMDZ.GENERIC/libf/filtrez

Files:

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

trunk/LMDZ.GENERIC/libf/filtrez/filtreg_mod.F90

@@ -7 +7 @@
 !    ... H. Upadhyaya, O.Sharma   ...
 !
+      USE logic_mod, ONLY: fxyhypb,ysinus
+      USE serre_mod, ONLY: alphax
+
       IMPLICIT NONE
 !
@@ -19 +22 @@
 #include "comgeom.h"
 #include "coefils.h"
-#include "logic.h"
-#include "serre.h"
 
       REAL  dlonu(iim),dlatu(jjm)

trunk/LMDZ.GENERIC/libf/filtrez/inifgn.F

@@ -8 +8 @@
 #include "paramet.h"
 #include "comgeom.h"
-#include "serre.h"
 
 c