|
Last change
on this file since 3000 was
2980,
checked in by romain.vande, 18 months ago
|
|
Mars PEM :
Adapt PEM to 1d runs.
Cleaning of names and unused variables.
Correct minor errors.
Adapt and correct reshape_xios_output utilitary for 1d diagfi output.
RV
|
|
File size:
782 bytes
|
| Line | |
|---|
| 1 | SUBROUTINE info_run_PEM(year_iter, criterion_stop) |
|---|
| 2 | |
|---|
| 3 | !======================================================================= |
|---|
| 4 | ! |
|---|
| 5 | ! Purpose: Write in a file called info_run_PEM.txt the reason why the PEM did stop and the number of extrapolation year done |
|---|
| 6 | ! |
|---|
| 7 | ! Author: RV |
|---|
| 8 | !======================================================================= |
|---|
| 9 | |
|---|
| 10 | IMPLICIT NONE |
|---|
| 11 | |
|---|
| 12 | INTEGER, intent(in) :: year_iter, criterion_stop ! # of year and reason to stop |
|---|
| 13 | |
|---|
| 14 | logical :: exist |
|---|
| 15 | |
|---|
| 16 | inquire(file='info_run_PEM.txt', exist=exist) |
|---|
| 17 | if (exist) then |
|---|
| 18 | open(12, file='info_run_PEM.txt', status="old", position="append", action="write") |
|---|
| 19 | else |
|---|
| 20 | open(12, file='info_run_PEM.txt', status="new", action="write") |
|---|
| 21 | end if |
|---|
| 22 | write(12, *) year_iter, criterion_stop |
|---|
| 23 | close(12) |
|---|
| 24 | |
|---|
| 25 | END SUBROUTINE info_run_PEM |
|---|
Note: See
TracBrowser
for help on using the repository browser.
