Changeset 4103 for trunk


Ignore:
Timestamp:
Mar 5, 2026, 2:59:01 PM (2 days ago)
Author:
jbclement
Message:

Mars PCM:
Deletion of unused and redundant declaration of coefficient 'dryness' in "tracer_mod.F90".
JBC

Location:
trunk/LMDZ.MARS
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/changelog.txt

    r4102 r4103  
    50955095- Incompatibility check for dustscaling_mode = 2 and iaervar = 1.
    50965096- Move "start1D.txt" from "deftank/" to "startfiles/".
     5097
     5098== 05/03/2026 == JBC
     5099Deletion of unused and redundant declaration of coefficient 'dryness' in "tracer_mod.F90".

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

    r3996 r4103  
    99  logical              :: TESicealbedo ! use TES ice cap albedoes (if set to .true.)
    1010  logical, allocatable :: watercaptag(:) ! flag for water ice surface
    11   real,    allocatable :: dryness(:)
     11  real,    allocatable :: dryness(:) ! "Dryness coefficient" for ground water ice sublimation
    1212
    1313!$OMP THREADPRIVATE(albedodat, phisfi,albedice,emisice,emissiv,TESicealbedo,     &

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

    r2832 r4103  
    3737
    3838      INTEGER,ALLOCATABLE,SAVE :: nqdust(:) ! to store the indexes of dust tracers (cf aeropacity)
    39       real,allocatable,save :: dryness(:)!"Dryness coefficient" for grnd water ice sublimation
    40 
    41 !$OMP THREADPRIVATE(nqdust,dryness) 
     39
     40!$OMP THREADPRIVATE(nqdust) 
    4241
    4342
Note: See TracChangeset for help on using the changeset viewer.