Changeset 2597 for LMDZ5/trunk/libf/dyn3dmem/initfluxsto_p.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/dyn3dmem/initfluxsto_p.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dmem/initfluxsto_p.F

@@ -13 +13 @@
        use Write_field
        use misc_mod
+       USE comconst_mod, ONLY: pi
        
       implicit none
@@ -43 +44 @@
 C
 C   Declarations
-#include "dimensions.h"
-#include "paramet.h"
-#include "comconst.h"
-#include "comvert.h"
-#include "comgeom.h"
-#include "temps.h"
-#include "ener.h"
-#include "logic.h"
-#include "description.h"
-#include "serre.h"
-#include "iniprint.h"
+      include "dimensions.h"
+      include "paramet.h"
+      include "comvert.h"
+      include "comgeom.h"
+      include "temps.h"
+      include "ener.h"
+      include "logic.h"
+      include "description.h"
+      include "serre.h"
+      include "iniprint.h"
 
 C   Arguments
@@ -166 +166 @@
      .             filevid,dynv_domain_id)
         
-      rl(1,1) = 1.      
+      rl(1,1) = 1.
       
       if (mpi_rank==0) then