Changeset 1226 for trunk/LMDZ.MARS/libf/phymars/iniwritesoil.F90

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/iniwritesoil.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/iniwritesoil.F90

@@ -6 +6 @@
 
 use comsoil_h, only: mlayer, inertiedat, nsoilmx
+USE comcstfi_h
 
 implicit none
@@ -12 +13 @@
 !#include"dimphys.h"
 #include"paramet.h"
-#include"comcstfi.h"
 #include"comgeom.h"
 !#include"comsoil.h"