source: lmdz_wrf/branches/LMDZ_WRFmeas/WRFV3/share/start_domain.F @ 1577

Last change on this file since 1577 was 415, checked in by lfita, 10 years ago

Getting only the necessary files
File size: 1.5 KB
Line 
1!WRF:MEDIATION_LAYER:ADT_BARRIER
2!
3
4SUBROUTINE start_domain ( grid , allowed_to_read )
5
6   USE module_domain
7   USE module_configure
8
9   IMPLICIT NONE
10
11   !  Input Arguments.
12   TYPE (domain)          :: grid
13   LOGICAL, INTENT(IN)    :: allowed_to_read
14   !  Local data.
15   INTEGER :: idum1, idum2
16
17   INTERFACE
18#if ((EM_CORE == 1) && (DA_CORE != 1))
19#    include "start_domain_em.int"
20#endif
21#if (NMM_CORE == 1)
22#    include "start_domain_nmm.int"
23#endif
24#if (DA_CORE != 1)
25      SUBROUTINE calc_ts_locations( grid )
26         USE module_domain
27         TYPE (domain) :: grid
28      END SUBROUTINE calc_ts_locations
29#if WRFMEAS
30! L. Fita, LMD. May 2014
31      SUBROUTINE calc_lidar_locations( grid )
32         USE module_domain
33         TYPE (domain) :: grid
34      END SUBROUTINE calc_lidar_locations
35#endif
36#endif
37   END INTERFACE
38
39   CALL set_scalar_indices_from_config ( head_grid%id , idum1, idum2 )
40
41#if ((EM_CORE == 1) && (DA_CORE != 1))
42   CALL start_domain_em( grid, allowed_to_read  &
43!
44# include <actual_new_args.inc>
45!
46                         )
47#endif
48#if (NMM_CORE == 1)
49   CALL start_domain_nmm( grid, allowed_to_read   &
50!
51# include <actual_new_args.inc>
52!
53                         )
54#endif
55#if (COAMPS_CORE == 1)
56   CALL start_domain_coamps( grid, allowed_to_read   &
57!
58# include <actual_new_args.inc>
59!
60                         )
61#endif
62
63#if (DA_CORE != 1)
64   CALL calc_ts_locations( grid )
65#if WRFMEAS
66! L. Fita, LMD. May 2014
67   CALL calc_lidar_locations( grid )
68#endif
69#endif
70
71END SUBROUTINE start_domain
72
Note: See TracBrowser for help on using the repository browser.