source: lmdz_wrf/trunk/WRFV3/main/wrf.F @ 409

Last change on this file since 409 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 951 bytes
Line 
1!WRF:DRIVER_LAYER:MAIN
2!
3
4PROGRAM 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#ifdef _OPENMP
21  CALL setfeenv()
22#endif
23
24  ! Set up WRF model. 
25  CALL wrf_init
26
27  ! Run digital filter initialization if requested.
28  CALL wrf_dfi
29
30  ! WRF model time-stepping.  Calls integrate(). 
31  CALL wrf_run
32
33  ! WRF model clean-up.  This calls MPI_FINALIZE() for DM parallel runs. 
34  CALL wrf_finalize
35
36END PROGRAM wrf
37
38
Note: See TracBrowser for help on using the repository browser.