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

Timestamp:

Jul 23, 2016, 7:45:38 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn comvert.h into module comvert_mod.F90
EM

File:

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

LMDZ5/trunk/libf/dyn3d_common/iniconst.F90

@@ -13 +13 @@
   USE comconst_mod, ONLY: im, imp1, jm, jmp1, lllm, lllmm1, lllmp1, &
                           unsim, pi, r, kappa, cpp, dtvr, dtphys
+  USE comvert_mod, ONLY: disvert_type, pressure_exner
   
   IMPLICIT NONE
@@ -24 +25 @@
   include "paramet.h"
   include "temps.h"
-  include "comvert.h"
   include "iniprint.h"