Changeset 2597 for LMDZ5/trunk/libf/dyn3d/groupe.F

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/groupe.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d/groupe.F

@@ -3 +3 @@
 !
       subroutine groupe(pext,pbaru,pbarv,pbarum,pbarvm,wm)
+      
+      use comconst_mod, only: ngroup
+      
       implicit none
 
@@ -16 +19 @@
 c   pas besoin de w en entree.
 
-#include "dimensions.h"
-#include "paramet.h"
-#include "comconst.h"
-#include "comgeom2.h"
-#include "comvert.h"
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+      include "comvert.h"
 
 !     integer ngroup