Changeset 1422 for trunk/LMDZ.GENERIC/libf/dyn3d/sponge_mod.F90

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).

File:

• trunk/LMDZ.GENERIC/libf/dyn3d/sponge_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/dyn3d/sponge_mod.F90

@@ -1 +1 @@
 module sponge_mod
+
+USE comvert_mod, ONLY: ap,bp,preff
 
 implicit none
@@ -34 +36 @@
 #include "paramet.h"
 #include "comdissip.h"
-#include "comvert.h"
 #include "comgeom2.h"