Changeset 1442 for trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F

Timestamp:

Jun 4, 2015, 4:23:32 PM (9 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.VENUS/libf/phyvenus/dyn1d/rcm1d.F (modified) (3 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F

@@ -8 +8 @@
       use cpdet_mod, only: ini_cpdet
       use moyzon_mod, only: tmoy
+      USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig,
+     .                       aps,bps,scaleheight,pseudoalt,
+     .                       disvert_type,pressure_exner
 
       IMPLICIT NONE
@@ -30 +33 @@
 #include "dimsoil.h"
 #include "comcstfi.h"
-#include "comvert.h"
 #include "netcdf.inc"
 #include "logic.h"
@@ -77 +79 @@
       character*2 str2
 
-c normalement dans dyn3d/comconst.h
+c normalement dans dyn3d/comconst_mod.F90
       COMMON/cpdetvenus/cppdyn,nu_venus,t0_venus
       REAL cppdyn,nu_venus,t0_venus