Changeset 1422 for trunk/LMDZ.MARS/libf/dyn3d/disvert.F

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.MARS/libf/dyn3d/disvert.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/dyn3d/disvert.F

@@ -4 +4 @@
 c    Nouvelle version 100% Mars !!
 
+      USE comvert_mod, ONLY: ap,bp,sig,nivsigs,nivsig,pa,preff,
+     .                  aps,bps,presnivs,pseudoalt
+      USE comconst_mod, ONLY: kappa,pi
+      USE logic_mod, ONLY: hybrid
+
       IMPLICIT NONE
 
 #include "dimensions.h"
 #include "paramet.h"
-#include "comvert.h"
-#include "comconst.h"
-#include "logic.h"
 c
 c=======================================================================