init_modules.F

1 !WRF:MEDIATION_LAYER
2 !
3 SUBROUTINE init_modules( phase )
4  USE module_bc
5  USE module_configure
6  USE module_driver_constants
7  USE module_model_constants
8  USE module_domain
9  USE module_machine
10  USE module_nesting
11  USE module_timing
12  USE module_tiles
13  USE module_io_wrf
14  USE module_io
15 #ifdef DM_PARALLEL
16  USE module_wrf_quilt
17  USE module_dm
18 #endif
19 #ifdef INTIO
20  USE module_ext_internal
21 #endif
22 
23 ! <DESCRIPTION>
24 ! This routine USES the modules in WRF and then calls the init routines
25 ! they provide to perform module specific initializations at the
26 ! beginning of a run.  Note, this is only once per run, not once per
27 ! domain; domain specific initializations should be handled elsewhere,
28 ! such as in <a href=start_domain.html>start_domain</a>.
29 ! 
30 ! Certain framework specific module initializations in this file are
31 ! dependent on order they are called. For example, since the quilt module
32 ! relies on internal I/O, the init routine for internal I/O must be
33 ! called first.  In the case of DM_PARALLEL compiles, the quilt module
34 ! calls MPI_INIT as part of setting up and dividing communicators between
35 ! compute and I/O server tasks.  Therefore, it must be called prior to
36 ! module_dm, which will <em>also</em> try to call MPI_INIT if it sees
37 ! that MPI has not be initialized yet (implementations of module_dm
38 ! should in fact behave this way by first calling MPI_INITIALIZED before
39 ! they try to call MPI_INIT).  If MPI is already initialized before the
40 ! the quilting module is called, quilting will not work.
41 ! 
42 ! The phase argument is used to allow other superstructures like ESMF to 
43 ! place their initialization calls following the WRF initialization call 
44 ! that calls MPI_INIT().  When used with ESMF, ESMF will call wrf_init() 
45 ! which in turn will call phase 2 of this routine.  Phase 1 will be called 
46 ! earlier.  
47 !
48 ! </DESCRIPTION>
49 
50  INTEGER, INTENT(IN) :: phase    ! phase==1 means return after MPI_INIT()
51                                  ! phase==2 means resume after MPI_INIT()
52 
53 IF ( phase == 1 ) THEN
54  CALL init_module_bc
55  CALL init_module_configure
56  CALL init_module_driver_constants
57  CALL init_module_model_constants
58  CALL init_module_domain
59  CALL init_module_machine
60 
61 #ifdef INTIO
62  CALL init_module_ext_internal  !! must be called before quilt
63 #endif
64 #ifdef DM_PARALLEL
65  CALL split_communicator
66  CALL init_module_wrf_quilt    !! this *must* be called before init_module_dm
67  CALL init_module_dm
68 #endif
69 ELSE
70  CALL init_module_nesting
71  CALL init_module_timing
72  CALL init_module_tiles
73  CALL init_module_io_wrf
74  CALL init_module_io
75 
76 ! core specific initializations -- add new cores here
77 #if (EM_CORE == 1)
78 #  if ( DA_CORE != 1)
79  CALL init_modules_em
80 #  endif
81 #endif
82 #if (NMM_CORE == 1)
83  CALL init_modules_nmm
84 #endif
85 #if (COAMPS_CORE == 1)
86  CALL init_modules_coamps
87 #endif
88 ENDIF
89  
90 END SUBROUTINE init_modules
91