Changeset 1226 for trunk/LMDZ.MARS/libf/phymars/physiq.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/physiq.F (modified) (2 diffs)

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

@@ -33 +33 @@
      &                          dtrad, fluxrad_sky, fluxrad, albedo
       use turb_mod, only: q2, wstar, hfmax_th
+      use planete_h
+      USE comcstfi_h
 #ifdef MESOSCALE
       use comsoil_h, only: mlayer,layer
@@ -148 +150 @@
 !#include "comdiurn.h"
 #include "callkeys.h"
-#include "comcstfi.h"
-#include "planete.h"
 !#include "comsaison.h"
 !#include "control.h"