Changeset 4023


Ignore:
Timestamp:
Jan 20, 2026, 1:09:10 AM (3 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

Location:
trunk/LMDZ.MARS/libf/aeronomars
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/aeronomars/chemthermos.F90

    r3726 r4023  
    6060      integer :: l
    6161      integer,save :: nesptherm
    62       real,allocatable :: rm(:,:)               !number density (cm-3)
     62      double precision,allocatable :: rm(:,:)           !number density (cm-3)
    6363      logical,save :: firstcall=.true.
    6464

  • 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)

  • 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

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

    r3726 r4023  
    2626      real zenit
    2727      real zx(nlayer)
    28       real rm(nlayer,nesptherm)
     28      real*8 rm(nlayer,nesptherm)
    2929      real timestep
    3030
Note: See TracChangeset for help on using the changeset viewer.