|
Last change
on this file since 2850 was
2835,
checked in by romain.vande, 3 years ago
|
|
Mars PEM:
Introduction of the possibility to follow an orbital forcing.
Introduction of new control parameters.
Cleaning of the PEM (removing unused files, add comments and new files)
A file named run_PEM.def can be added to the run.def. It contains the following variables:
_ evol_orbit_pem: Boolean. Do you want to follow an orbital forcing predefined (read in ob_ex_lsp.asc for example)? (default=false)
_ year_bp_ini: Integer. Number of year before present to start the pem run if evol_orbit_pem=.true. , default=0
_ Max_iter_pem: Integer. Maximal number of iteration if none of the stopping criterion is reached and if evol_orbit_pem=.false., default=99999999
_ dt_pem: Integer. Time step of the PEM in year, default=1
_ alpha_criterion: Real. Acceptance rate of sublimating ice surface change, default=0.2
_ soil_pem: Boolean. Do you want to run with subsurface physical processes in the PEM? default=.true.
RV
|
|
File size:
784 bytes
|
| Line | |
|---|
| 1 | module lask_param_mod |
|---|
| 2 | |
|---|
| 3 | implicit none |
|---|
| 4 | |
|---|
| 5 | real,save,allocatable :: yearlask(:) |
|---|
| 6 | real,save,allocatable :: oblask(:) |
|---|
| 7 | real,save,allocatable :: exlask(:) |
|---|
| 8 | real,save,allocatable :: lsplask(:) |
|---|
| 9 | integer, save :: last_ilask |
|---|
| 10 | |
|---|
| 11 | contains |
|---|
| 12 | |
|---|
| 13 | subroutine ini_lask_param_mod(nlask) |
|---|
| 14 | |
|---|
| 15 | implicit none |
|---|
| 16 | integer,intent(in) :: nlask ! number of line |
|---|
| 17 | |
|---|
| 18 | allocate(yearlask(nlask)) |
|---|
| 19 | allocate(oblask(nlask)) |
|---|
| 20 | allocate(exlask(nlask)) |
|---|
| 21 | allocate(lsplask(nlask)) |
|---|
| 22 | |
|---|
| 23 | end subroutine ini_lask_param_mod |
|---|
| 24 | |
|---|
| 25 | |
|---|
| 26 | subroutine end_lask_param_mod |
|---|
| 27 | |
|---|
| 28 | implicit none |
|---|
| 29 | |
|---|
| 30 | if (allocated(yearlask)) deallocate(yearlask) |
|---|
| 31 | if (allocated(oblask)) deallocate(oblask) |
|---|
| 32 | if (allocated(exlask)) deallocate(exlask) |
|---|
| 33 | if (allocated(lsplask)) deallocate(lsplask) |
|---|
| 34 | |
|---|
| 35 | end subroutine end_lask_param_mod |
|---|
| 36 | |
|---|
| 37 | end module lask_param_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
