Changeset 4017


Ignore:
Timestamp:
Jan 20, 2026, 12:11:52 AM (5 days ago)
Author:
aslmd
Message:

Mars GCM: harder, better, faster, double precision (for real: simply fixing argument mismatch)

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

Legend:

Unmodified
Added
Removed

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

    r4007 r4017  
    3535      integer,intent(in) :: chemthermod
    3636      integer,intent(in) :: nesptherm          !Number of species considered
    37       real,intent(in) :: rm(nlayer,nesptherm)  !Densities (cm-3)
     37      real*8,intent(in) :: rm(nlayer,nesptherm)  !Densities (cm-3)
    3838      real,intent(in) :: tx(nlayer)            !temperature
    3939      real,intent(in) :: zenit         !SZA

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

    r3726 r4017  
    3434      integer    chemthermod
    3535      integer    nesptherm                      !# of species undergoing chemistry, input
    36       real       rm(nlayer,nesptherm)         !densities (cm-3), input
     36      real*8     rm(nlayer,nesptherm)         !densities (cm-3), input
    3737      real       tx(nlayer)                   !temperature profile, input
    3838      real       iz(nlayer+1)                 !height profile, input
Note: See TracChangeset for help on using the changeset viewer.