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

LMDZ5/trunk/libf/dyn3d_common/initfluxsto.F

@@ -9 +9 @@
        USE IOIPSL
 #endif
+      USE comconst_mod, ONLY: pi
       implicit none
 
@@ -38 +39 @@
 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
@@ -114 +114 @@
      .             tau0, zjulian, tstep, vhoriid, filevid)
         
-        rl(1,1) = 1.    
+        rl(1,1) = 1.
       call histbeg('defstoke.nc', 1, rl, 1, rl,
      .             1, 1, 1, 1,