Changeset 2597 for LMDZ5/trunk/libf/dyn3d_common/inter_barxy_m.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/inter_barxy_m.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d_common/inter_barxy_m.F90

@@ -374 +374 @@
 
     use assert_eq_m, only: assert_eq
+    use comconst_mod, only: pi
 
     IMPLICIT NONE
-
-    include "comconst.h"
-    ! (for "pi")
 
     REAL, intent(in):: xi(:)
@@ -431 +429 @@
     ! order.
 
+    use comconst_mod, only: pi
+
     IMPLICIT NONE
-
-    include "comconst.h"
-    ! (for "pi")
 
     REAL, intent(in):: xi(:) ! angle, in rad or degrees