Changeset 1422 for trunk/LMDZ.COMMON/libf/dyn3d_common/initdynav.F90

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

trunk/LMDZ.COMMON/libf/dyn3d_common/initdynav.F90

@@ -9 +9 @@
   use com_io_dyn_mod, only : histaveid,histvaveid,histuaveid, &
        dynhistave_file,dynhistvave_file,dynhistuave_file
+  USE comvert_mod, ONLY: presnivs
+  USE comconst_mod, ONLY: pi
+  USE temps_mod, ONLY: itau_dyn
   implicit none
 
@@ -34 +37 @@
   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"