Changeset 1442 for trunk/LMDZ.TITAN/libf

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

Location:

trunk/LMDZ.TITAN/libf/phytitan/dyn1d

Files:

• comconst.h (deleted)
• comconst_mod.F90 (added)
• comvert.h (deleted)
• comvert_mod.F90 (added)
• rcm1d.F (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F

@@ -7 +7 @@
       use cpdet_mod, only: ini_cpdet
       use moyzon_mod, only: plevmoy
+      USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig,
+     .                       aps,bps,scaleheight,pseudoalt,
+     .                       disvert_type,pressure_exner
       IMPLICIT NONE
 
@@ -28 +31 @@
 #include "dimsoil.h"
 #include "comcstfi.h"
-#include "comvert.h"
 #include "netcdf.inc"
 #include "logic.h"
@@ -75 +77 @@
       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