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

Timestamp:

Dec 10, 2024, 9:53:57 AM (2 weeks ago)

Author:

slebonnois

Message:

SL: bug for 1D (was using constant Cp since cpofT keyword not defined)

File:

• trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F (modified) (3 diffs)

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

@@ -2 +2 @@
       
       USE infotrac
-      use control_mod, only: planet_type, day_step
+      use control_mod, only: planet_type,day_step,cpofT
       USE phys_state_var_mod
       use chemparam_mod
@@ -122 +122 @@
 ! ADAPTATION GCM POUR CP(T)
 ! VENUS: Cp(T) = cpp*(T/T0)^nu 
-! avec T0=460. et nu=0.35
+! avec cpp=1000., T0=460. et nu=0.35
+      cpofT=.true.
       cpp=1.0e3
-!     cpp=9.0e2      ! version constante
+! Version Cp constant
+!     cpofT=.false.
+!     cpp=9.0e2
       r= 8.314511E+0 *1000.E+0/mugaz
       rcp= r/cpp
 
 c-----------------------------------------------------------------------
-c   Initialisation des traceurs
+c   Initialisation des traceursphyven   
 c   ---------------------------
 c  Choix du nombre de traceurs et du schema pour l'advection
@@ -228 +231 @@
       call ini_cpdet
 
+
 c Ehouarn: iniphysiq requires arrays related to (3D) dynamics grid,
 c e.g. for cell boundaries, which are meaningless in 1D; so pad these