Ignore:
Timestamp:
Nov 7, 2023, 8:27:07 AM (8 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/phylmdiso/physiq_mod.F90

    r4742 r4745  
    13421342
    13431343    REAL pi
     1344    REAL viscom, viscoh
    13441345    INTEGER ieru
    13451346
    … …  
    19321933       CALL wake_ini(rg,rd,rv,prt_level)
    19331934       CALL yamada_ini(klon,lunout,prt_level)
    1934        CALL atke_ini(prt_level, lunout, RG, RD, RPI, RCPD, RV)
     1935       viscom=1.46E-5
     1936       viscoh=2.06E-5
     1937       CALL atke_ini(RG, RD, RPI, RCPD, RV, viscom, viscoh)
    19351938       CALL thermcell_ini(iflag_thermals,prt_level,tau_thermals,lunout, &
    19361939   &    RG,RD,RCPD,RKAPPA,RLVTT,RETV)
Note: See TracChangeset for help on using the changeset viewer.