Changeset 3336 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

May 21, 2024, 1:32:02 PM (21 months ago)

Author:

jbclement

Message:

Mars PCM:
Addition of the paleoclimate variables in the change the number of slopes by "newtart.F" + some simplifications of the way it is done.
JBC

File:

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

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

@@ -15 +15 @@
 
 !$OMP THREADPRIVATE(paleoclimate)
-    real,    save, allocatable, dimension(:,:) :: h2o_ice_depth           ! Thickness of the lag before H2O ice [m]
-    real,    save, allocatable, dimension(:,:) :: lag_co2_ice             ! Thickness of the lag before CO2 ice [m]
-    real,    save, allocatable, dimension(:,:) :: d_coef                  ! Diffusion coeficent
-    real,    save                              :: albedo_perennialco2     ! Albedo for perennial co2 ice [1]
-    logical, save                              :: lag_layer               ! Does lag layer is present?
-    logical, save                              :: include_waterbuoyancy   ! Include the effect of water buoyancy when computing the sublimation of water ice ?
+    real,    save, allocatable, dimension(:,:) :: h2o_ice_depth         ! Thickness of the lag before H2O ice [m]
+    real,    save, allocatable, dimension(:,:) :: lag_co2_ice           ! Thickness of the lag before CO2 ice [m]
+    real,    save, allocatable, dimension(:,:) :: d_coef                ! Diffusion coefficent
+    real,    save                              :: albedo_perennialco2   ! Albedo for perennial co2 ice [1]
+    logical, save                              :: lag_layer             ! Does lag layer is present?
+    logical, save                              :: include_waterbuoyancy ! Include the effect of water buoyancy when computing the sublimation of water ice ?
 !$OMP THREADPRIVATE(h2o_ice_depth,lag_co2_ice,d_coef,albedo_perennialco2,lag_layer,include_waterbuoyancy)