Changeset 2597 for LMDZ5/trunk/libf/dyn3d_common/iniconst.F90

Timestamp:

Jul 22, 2016, 8:44:47 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: get rid of comconst.h, make it a module comconst_mod.
EM

File:

• LMDZ5/trunk/libf/dyn3d_common/iniconst.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d_common/iniconst.F90

@@ -11 +11 @@
   use ioipsl_getincom
 #endif
-
+  USE comconst_mod, ONLY: im, imp1, jm, jmp1, lllm, lllmm1, lllmp1, &
+                          unsim, pi, r, kappa, cpp, dtvr, dtphys
+  
   IMPLICIT NONE
   !
@@ -21 +23 @@
   include "dimensions.h"
   include "paramet.h"
-  include "comconst.h"
   include "temps.h"
   include "comvert.h"