Changeset 1422 for trunk/LMDZ.COMMON/libf/dyn3d_common/inithist.F

Timestamp:

Apr 30, 2015, 12:33:45 PM (10 years ago)

Author:

milmd

Message:

In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/inithist.F (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d_common/inithist.F

@@ -10 +10 @@
        use com_io_dyn_mod, only : histid,histvid,histuid,               &
      &                        dynhist_file,dynhistv_file,dynhistu_file
+       USE comvert_mod, ONLY: presnivs
+       USE comconst_mod, ONLY: pi
+       USE temps_mod, ONLY: itau_dyn
 
       implicit none
@@ -40 +43 @@
 #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"