Changeset 1226 for trunk/LMDZ.MARS/libf/phymars/dustdevil.F

Timestamp:

Apr 15, 2014, 11:46:48 PM (11 years ago)

Author:

aslmd

Message:

LMDZ.MARS : Replaced comcstfi and planete includes by modules.

File:

• trunk/LMDZ.MARS/libf/phymars/dustdevil.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/dustdevil.F

@@ -4 +4 @@
       use tracer_mod, only: alpha_devil
       use surfdat_h, only: z0_default
+      USE comcstfi_h
       IMPLICIT NONE
 
@@ -31 +32 @@
 !#include "dimensions.h"
 !#include "dimphys.h"
-#include "comcstfi.h"      
 c#include "comconst.h"        ! TEMPORAIRE AVEC ANLDEVIL !!!!
 !#include "surfdat.h"