Changeset 4019 for trunk


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

Mars GCM: will the real double consistency please stand up

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

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/co2cloud.F90

    r4011 r4019  
    264264     satuco2(ngrid,nlay),           &! CO2 satu ratio for output diagfi
    265265     zqsatco2(ngrid,nlay),          &! Saturation co2
     266     myT,                           &! Temperature scalar for co2 density computation
    266267     availco2,&
    267268     masslayer, &
    … …  
    288289     SatIndexmap(ngrid),            &! maxval(SatIndex(ig,12:26))
    289290! ---Misc
    290      myT,                           &! Temperature scalar for co2 density computation
    291291     tcond(ngrid,nlay)               ! CO2 condensation temperature
    292292

  • trunk/LMDZ.MARS/libf/phymars/improvedco2clouds_mod.F90

    r3902 r4019  
    183183    zt(ngrid,nlay),        &! local value of temperature (K)
    184184    zqsat(ngrid,nlay),     &! saturation vapor pressure for CO2 (K)
    185     tcond(ngrid,nlay),     &! condensation temperature of CO2 (K)
    186185    lw,                    &! Latent heat of sublimation (J.kg-1)
    187186    rdust(ngrid,nlay),     &! Dust geometric mean radius (m)
    188187    rhocloud(ngrid,nlay),  &! Cloud density (kg.m-3)
    189188    rhocloudco2(ngrid,nlay) ! Cloud density (kg.m-3)
     189
     190  double precision :: &
     191    tcond(ngrid,nlay)     ! condensation temperature of CO2 (K)
    190192
    191193  real(kind=8) :: &
Note: See TracChangeset for help on using the changeset viewer.