wrfv2_fire/main/wrf.F

   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 #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
  36 END PROGRAM wrf
  37
  38