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/euvheat.F90

    r3726 r4023  
    6868      INTEGER :: l,ig,n
    6969      integer,save :: euvmod
    70       real, allocatable, save :: rm(:,:)   ! number density (cm-3)
     70      double precision, allocatable, save :: rm(:,:)   ! number density (cm-3)
    7171
    7272!$OMP THREADPRIVATE(euvmod,rm)
Note: See TracChangeset for help on using the changeset viewer.