Changeset 1422 for trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.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/leapfrog.F (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F

@@ -25 +25 @@
       use sponge_mod, only: callsponge,mode_sponge,sponge
        use comuforc_h
+      USE comvert_mod, ONLY: ap,bp,pressure_exner,presnivs
+      USE comconst_mod, ONLY: daysec,dtvr,dtphys,dtdiss,
+     .                  cpp,ihf,iflag_top_bound,pi
+      USE logic_mod, ONLY: iflag_phys,ok_guide,forward,leapf,apphys,
+     .                  statcl,conser,apdiss,purmats,tidal,ok_strato
+      USE temps_mod, ONLY: jD_ref,jH_ref,itaufin,day_ini,day_ref,
+     .                  start_time,dt
 
       IMPLICIT NONE
@@ -61 +68 @@
 #include "dimensions.h"
 #include "paramet.h"
-#include "comconst.h"
 #include "comdissnew.h"
-#include "comvert.h"
 #include "comgeom.h"
-#include "logic.h"
-#include "temps.h"
-#include "ener.h"
-#include "description.h"
-#include "serre.h"
 !#include "com_io_dyn.h"
 #include "iniprint.h"