|
Last change
on this file since 16 was
11,
checked in by aslmd, 14 years ago
|
|
spiga@svn-planeto:ajoute le modele meso-echelle martien
|
|
File size:
860 bytes
|
| Line | |
|---|
| 1 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 2 | ! PROGRAM ARWpost |
|---|
| 3 | ! |
|---|
| 4 | ! First version: Cindy Bruyere - November 2006 |
|---|
| 5 | ! |
|---|
| 6 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 7 | PROGRAM ARWpost |
|---|
| 8 | |
|---|
| 9 | USE gridinfo_module |
|---|
| 10 | USE module_debug |
|---|
| 11 | USE process_domain_module |
|---|
| 12 | |
|---|
| 13 | |
|---|
| 14 | ! Get info about how many nests there are to process, etc. |
|---|
| 15 | CALL get_namelist_params() |
|---|
| 16 | |
|---|
| 17 | ! Now begin the processing work |
|---|
| 18 | CALL mprintf(.true.,STDOUT,'START PROCESSING DATA') |
|---|
| 19 | CALL process_domain() |
|---|
| 20 | |
|---|
| 21 | ! If we are back here - all went well |
|---|
| 22 | CALL mprintf(.true.,STDOUT,' ') |
|---|
| 23 | CALL mprintf(.true.,STDOUT,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!') |
|---|
| 24 | CALL mprintf(.true.,STDOUT,'! Successful completion of ARWpost. !') |
|---|
| 25 | CALL mprintf(.true.,STDOUT,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!') |
|---|
| 26 | |
|---|
| 27 | STOP |
|---|
| 28 | |
|---|
| 29 | END PROGRAM ARWpost |
|---|
Note: See
TracBrowser
for help on using the repository browser.
