|
Last change
on this file since 3810 was
11,
checked in by aslmd, 15 years ago
|
|
spiga@svn-planeto:ajoute le modele meso-echelle martien
|
|
File size:
803 bytes
|
| Line | |
|---|
| 1 | !WRF:DRIVER_LAYER:MAIN |
|---|
| 2 | ! |
|---|
| 3 | |
|---|
| 4 | PROGRAM wrf |
|---|
| 5 | |
|---|
| 6 | USE module_wrf_top |
|---|
| 7 | |
|---|
| 8 | !<DESCRIPTION> |
|---|
| 9 | ! Main program of WRF model. Responsible for starting up the model, reading in (and |
|---|
| 10 | ! broadcasting for distributed memory) configuration data, defining and initializing |
|---|
| 11 | ! the top-level domain, either from initial or restart data, setting up time-keeping, and |
|---|
| 12 | ! then calling the <a href=integrate.html>integrate</a> routine to advance the domain |
|---|
| 13 | ! to the ending time of the simulation. After the integration is completed, the model |
|---|
| 14 | ! is properly shut down. |
|---|
| 15 | ! |
|---|
| 16 | !</DESCRIPTION> |
|---|
| 17 | |
|---|
| 18 | IMPLICIT NONE |
|---|
| 19 | |
|---|
| 20 | ! Initialize WRF model. |
|---|
| 21 | CALL wrf_init |
|---|
| 22 | |
|---|
| 23 | ! WRF model time-stepping. Calls integrate(). |
|---|
| 24 | CALL wrf_run |
|---|
| 25 | |
|---|
| 26 | ! WRF model clean-up. This calls MPI_FINALIZE() for DM parallel runs. |
|---|
| 27 | CALL wrf_finalize |
|---|
| 28 | |
|---|
| 29 | END PROGRAM wrf |
|---|
| 30 | |
|---|
| 31 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
