|
Last change
on this file since 2997 was
2994,
checked in by llange, 18 months ago
|
|
MARS PCM
Introduce paleoclimate modul which will contains all the stuff used for
the paleoclimates studies. For now, just the lag layer thicknesses (for
preliminary tests with the 1D model).
LL
|
|
File size:
1.1 KB
|
| Line | |
|---|
| 1 | MODULE paleoclimate_mod |
|---|
| 2 | !======================================================================= |
|---|
| 3 | ! subject: Module dedicated to paleoclimates studies |
|---|
| 4 | ! -------- |
|---|
| 5 | ! |
|---|
| 6 | ! author: LL, 06/2023 |
|---|
| 7 | ! ------ |
|---|
| 8 | ! |
|---|
| 9 | !======================================================================= |
|---|
| 10 | |
|---|
| 11 | IMPLICIT NONE |
|---|
| 12 | |
|---|
| 13 | LOGICAL :: paleoclimate ! False by default, is activate for paleoclimates specific processes (e.g., lag layer) |
|---|
| 14 | real, save, allocatable :: lag_h2o_ice(:,:) ! Thickness of the lag before H2O ice [m] |
|---|
| 15 | real, save, allocatable :: lag_co2_ice(:,:) ! Thickness of the lag before CO2 ice [m] |
|---|
| 16 | |
|---|
| 17 | CONTAINS |
|---|
| 18 | |
|---|
| 19 | |
|---|
| 20 | subroutine ini_paleoclimate_h(ngrid,nslope) |
|---|
| 21 | |
|---|
| 22 | implicit none |
|---|
| 23 | integer,intent(in) :: ngrid ! number of atmospheric columns |
|---|
| 24 | integer,intent(in) :: nslope ! number of slope within a mesh |
|---|
| 25 | |
|---|
| 26 | allocate(lag_h2o_ice(ngrid,nslope)) |
|---|
| 27 | allocate(lag_co2_ice(ngrid,nslope)) |
|---|
| 28 | end subroutine ini_paleoclimate_h |
|---|
| 29 | |
|---|
| 30 | subroutine end_paleoclimate_h |
|---|
| 31 | |
|---|
| 32 | implicit none |
|---|
| 33 | if (allocated(lag_h2o_ice)) deallocate(lag_h2o_ice) |
|---|
| 34 | if (allocated(lag_co2_ice)) deallocate(lag_co2_ice) |
|---|
| 35 | end subroutine end_paleoclimate_h |
|---|
| 36 | |
|---|
| 37 | |
|---|
| 38 | END MODULE paleoclimate_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
