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

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/newstart.F

@@ -35 +35 @@
       use comgeomfi_h, only: ini_fillgeom
       use filtreg_mod, only: inifilr
+      USE comvert_mod, ONLY: ap,bp,pa,preff
+      USE comconst_mod, ONLY: lllm,daysec,dtphys,dtvr,
+     .                  cpp,kappa,rad,omeg,g,r,pi
+      USE serre_mod, ONLY: alphax
+      USE temps_mod, ONLY: day_ini,hour_ini
+      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
 
       implicit none
@@ -41 +47 @@
       integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm) 
 #include "paramet.h"
-#include "comconst.h"
-#include "comvert.h"
 #include "comgeom2.h"
-#include "logic.h"
-#include "description.h"
-#include "ener.h"
-#include "temps.h"
 #include "comdissnew.h"
 #include "clesph0.h"
-#include "serre.h"
 #include "netcdf.inc"
 #include "datafile.h"