Changeset 1442 for trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phyvenus/start2archive.F

Timestamp:

Jun 4, 2015, 4:23:32 PM (10 years ago)

Author:

slebonnois

Message:

SL: update of the Venus GCM, + corrections on routines used for newstart/start2archive for Titan and Venus, + some modifications on tools

File:

• trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phyvenus/start2archive.F (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phyvenus/start2archive.F

@@ -21 +21 @@
       use exner_hyb_m, only: exner_hyb
       use exner_milieu_m, only: exner_milieu
+      USE comconst_mod
+      USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig,
+     .                       aps,bps,scaleheight,pseudoalt,
+     .                       disvert_type,pressure_exner
 
       implicit none
@@ -26 +30 @@
 #include "dimensions.h"
 #include "paramet.h"
-#include "comconst.h"
 #include "comdissnew.h"
-#include "comvert.h"
 #include "comgeom.h"
 #include "logic.h"