Changeset 3007 for trunk


Ignore:
Timestamp:
Jul 21, 2023, 2:54:24 PM (16 months ago)
Author:
emillour
Message:

Mars PCM:
Fix OpenMP bug in paleoclimate_mod; saved variables should be threadprivate.
EM

Location:
trunk/LMDZ.MARS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/changelog.txt

    r3006 r3007  
    41164116include "nir_leedat.F" (reading/loading of the data) in the module.
    41174117Also turn nirco2abs.F in a module.
     4118
     4119== 21/07/2023 == EM
     4120Fix OpenMP bug in paleoclimate_mod; saved variables should be threadprivate.
     4121

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

    r2999 r3007  
    1111    IMPLICIT NONE
    1212
    13     LOGICAL :: paleoclimate                        ! False by default, is activate  for paleoclimates specific processes (e.g., lag layer)
     13    LOGICAL, SAVE :: paleoclimate    ! False by default, is activate  for paleoclimates specific processes (e.g., lag layer)
     14                                     ! is initialized in conf_phys
     15!$OMP THREADPRIVATE(paleoclimate)
     16
    1417    real, save, allocatable :: lag_h2o_ice(:,:)  ! Thickness of the lag before H2O ice [m]
    1518    real, save, allocatable :: lag_co2_ice(:,:)  ! Thickness of the lag before CO2 ice [m]
    1619    real, save :: albedo_perenialco2             ! Albedo for perenial co2 ice [1]
     20!$OMP THREADPRIVATE(lag_h2o_ice,lag_co2_ice,albedo_perenialco2)
     21
    1722    CONTAINS
    1823
Note: See TracChangeset for help on using the changeset viewer.