|
Last change
on this file since 3567 was
2759,
checked in by aslmd, 2 years ago
|
|
adding unmodified code from WRFV3.0.1.1, expurged from useless data +1M size
|
|
File size:
918 bytes
|
| Line | |
|---|
| 1 | !WRF:DRIVER_LAYER:MAIN |
|---|
| 2 | ! |
|---|
| 3 | |
|---|
| 4 | PROGRAM wrf |
|---|
| 5 | |
|---|
| 6 | USE module_wrf_top, only : wrf_init, wrf_dfi, wrf_run, wrf_finalize |
|---|
| 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 | ! Set up WRF model. |
|---|
| 21 | CALL wrf_init |
|---|
| 22 | |
|---|
| 23 | ! Run digital filter initialization if requested. |
|---|
| 24 | CALL wrf_dfi |
|---|
| 25 | |
|---|
| 26 | ! WRF model time-stepping. Calls integrate(). |
|---|
| 27 | CALL wrf_run |
|---|
| 28 | |
|---|
| 29 | ! WRF model clean-up. This calls MPI_FINALIZE() for DM parallel runs. |
|---|
| 30 | CALL wrf_finalize |
|---|
| 31 | |
|---|
| 32 | END PROGRAM wrf |
|---|
| 33 | |
|---|
| 34 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
