Ignore:
Timestamp:
May 3, 2019, 1:10:27 PM (6 years ago)
Author:
slebonnois
Message:

SL, Venus: new keys for flexibility cp0/cp(T) and Held-Suarez type physics

Location:
trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/iniphysiq_mod.F90

    r1682 r2135  
    7676
    7777  ! Initialize some physical constants
    78   call suphec
     78  call suphec(pcpp)
    7979
    8080  ! Initialize cpdet_phy module

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/newstart.F

    r2049 r2135  
    10411041c-----------------------------------------------------------------------
    10421042
     1043       IF ( notopo ) THEN
     1044        ps=9.2e6
     1045       ELSE
    10431046c  Extrapolation la pression dans la nouvelle grille
    10441047      call interp_horiz(psold,ps,imold,jmold,iim,jjm,1,
    10451048     &                   rlonuold,rlatvold,rlonu,rlatv)
     1049       ENDIF
    10461050
    10471051c       On assure la conservation de la masse de l'atmosphere
Note: See TracChangeset for help on using the changeset viewer.