|
Last change
on this file since 5501 was
5501,
checked in by aclsce, 4 years ago
|
|
First import of IPSLCM6.5_work_ENSEMBLES working configuration
|
|
File size:
490 bytes
|
| Line | |
|---|
| 1 | ! ========================================================================== |
|---|
| 2 | |
|---|
| 3 | program scripinterp |
|---|
| 4 | |
|---|
| 5 | use scripinterp_mod |
|---|
| 6 | |
|---|
| 7 | character (char_len) :: nm_in |
|---|
| 8 | #if defined ARGC |
|---|
| 9 | integer :: iargc |
|---|
| 10 | external iargc |
|---|
| 11 | |
|---|
| 12 | if (iargc() == 1) then |
|---|
| 13 | call getarg(1, nm_in) |
|---|
| 14 | call process_grid(nm_in) |
|---|
| 15 | else |
|---|
| 16 | write(6,*) 'need the name of an input namelist' |
|---|
| 17 | endif |
|---|
| 18 | #else |
|---|
| 19 | write(6,*) 'enter the name of an input namelist' |
|---|
| 20 | read(5,*) nm_in |
|---|
| 21 | call process_grid(nm_in) |
|---|
| 22 | #endif |
|---|
| 23 | |
|---|
| 24 | end program scripinterp |
|---|
Note: See
TracBrowser
for help on using the repository browser.
