Ignore:
Timestamp:
Jan 20, 2026, 1:09:10 AM (4 days ago)
Author:
aslmd
Message:

Mars PCM: additional work on double consistency. NB: a lot of compilers with the right options do not care so much about it and do type conversion between real and double behind your back

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/aeronomars/hrtherm.F

    r3726 r4023  
    3434      integer    ig  ,euvmod,nlayer
    3535      integer    nespeuv
    36       real       rm(nlayer,nespeuv)              !density matrix (cm^-3)
     36      double precision  rm(nlayer,nespeuv)              !density matrix (cm^-3)
    3737      real       jtot(nlayer)                    !output: heating rate(erg/s)
    3838      real       tx(nlayer)                      !temperature
Note: See TracChangeset for help on using the changeset viewer.