Ignore:
Timestamp:
Dec 10, 2024, 9:53:57 AM (13 days ago)
Author:
slebonnois
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F

    r3519 r3540  
    22     
    33      USE infotrac
    4       use control_mod, only: planet_type, day_step
     4      use control_mod, only: planet_type,day_step,cpofT
    55      USE phys_state_var_mod
    66      use chemparam_mod
     
    122122! ADAPTATION GCM POUR CP(T)
    123123! VENUS: Cp(T) = cpp*(T/T0)^nu
    124 ! avec T0=460. et nu=0.35
     124! avec cpp=1000., T0=460. et nu=0.35
     125      cpofT=.true.
    125126      cpp=1.0e3
    126 !     cpp=9.0e2      ! version constante
     127! Version Cp constant
     128!     cpofT=.false.
     129!     cpp=9.0e2
    127130      r= 8.314511E+0 *1000.E+0/mugaz
    128131      rcp= r/cpp
    129132
    130133c-----------------------------------------------------------------------
    131 c   Initialisation des traceurs
     134c   Initialisation des traceursphyven   
    132135c   ---------------------------
    133136c  Choix du nombre de traceurs et du schema pour l'advection
     
    228231      call ini_cpdet
    229232
     233
    230234c Ehouarn: iniphysiq requires arrays related to (3D) dynamics grid,
    231235c e.g. for cell boundaries, which are meaningless in 1D; so pad these
Note: See TracChangeset for help on using the changeset viewer.