source: lmdz_wrf/WRFV3/share/start_domain.F @ 1

Last change on this file since 1 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: 1.2 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#endif
30   END INTERFACE
31
32   CALL set_scalar_indices_from_config ( head_grid%id , idum1, idum2 )
33
34#if ((EM_CORE == 1) && (DA_CORE != 1))
35   CALL start_domain_em( grid, allowed_to_read  &
36!
37# include <actual_new_args.inc>
38!
39                         )
40#endif
41#if (NMM_CORE == 1)
42   CALL start_domain_nmm( grid, allowed_to_read   &
43!
44# include <actual_new_args.inc>
45!
46                         )
47#endif
48#if (COAMPS_CORE == 1)
49   CALL start_domain_coamps( grid, allowed_to_read   &
50!
51# include <actual_new_args.inc>
52!
53                         )
54#endif
55
56#if (DA_CORE != 1)
57   CALL calc_ts_locations( grid )
58#endif
59
60END SUBROUTINE start_domain
61
Note: See TracBrowser for help on using the repository browser.