Ignore:
Timestamp:
Nov 7, 2023, 8:27:07 AM (11 months ago)
Author:
evignon
Message:

nettoyage et corrections dans les routines atke pour utilisation en 3D (terre + mars)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r4744 r4745  
    12661266
    12671267    REAL pi
     1268    REAL viscom, viscoh
    12681269    INTEGER ieru
    12691270
    … …  
    18421843       CALL wake_ini(rg,rd,rv,prt_level)
    18431844       CALL yamada_ini(klon,lunout,prt_level)
    1844        CALL atke_ini(prt_level, lunout, RG, RD, RPI, RCPD, RV)
     1845       viscom=1.46E-5
     1846       viscoh=2.06E-5
     1847       CALL atke_ini(RG, RD, RPI, RCPD, RV, viscom, viscoh)
    18451848       CALL thermcell_ini(iflag_thermals,prt_level,tau_thermals,lunout, &
    18461849   &    RG,RD,RCPD,RKAPPA,RLVTT,RETV)
Note: See TracChangeset for help on using the changeset viewer.