Changeset 3111 for trunk/LMDZ.MARS/libf/phymars/paleoclimate_mod.F90

Timestamp:

Nov 2, 2023, 6:24:46 PM (16 months ago)

Author:

llange

Message:

MARS PCM
1) Following r-3098, adding d_coeff in the OMPthreadprivate
2) Introduce a temporary "old_wsublimation_scheme": when set to true (by
default), the water frost sublimation is computed as usual. Else, it is
computed as rho Ch U (q-qsat) and not rho Cd U (q-qsat)
LL

File:

• trunk/LMDZ.MARS/libf/phymars/paleoclimate_mod.F90 (modified) (1 diff)

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

@@ -20 +20 @@
     real, save, allocatable :: d_coef(:,:)  ! Diffusion coeficent
     LOGICAL,SAVE :: lag_layer ! does lag layer is present?
-!$OMP THREADPRIVATE(h2o_ice_depth,lag_co2_ice,albedo_perenialco2)
+!$OMP THREADPRIVATE(h2o_ice_depth,d_coef,lag_co2_ice,albedo_perenialco2)
 
     CONTAINS