interp_domain_em.F

1 #ifdef DM_PARALLEL
2 
3 subroutine dummy_interp_em
4 ! these routines will be provided the module_dm from the appropriate external package
5 ! this dummy routine is just here for compilers that complain if they do not see 
6 ! some fortran
7 end
8 
9 #else
10 
11 ! Note: since nesting is not supported single-processor except with
12 ! the non-MPI configurations using RSL, this is basically dead-code.
13 ! Needs to be here for linking purposes only.
14 
15 SUBROUTINE interp_domain_em_part1 ( grid, ngrid, config_flags   &
16 !
17 #include "em_dummy_new_args.inc"
18 !
19                  )
20          USE module_domain
21          USE module_configure
22          TYPE(domain), POINTER :: grid , ngrid
23 #include <em_dummy_new_decl.inc>
24 
25       INTEGER nlev
26       INTEGER i,j,pig,pjg,cm,cn,nig,njg,k
27       TYPE (grid_config_rec_type)            :: config_flags
28       INTEGER       ::          cids, cide, cjds, cjde, ckds, ckde,    &
29                                 cims, cime, cjms, cjme, ckms, ckme,    &
30                                 cips, cipe, cjps, cjpe, ckps, ckpe
31       INTEGER       ::          nids, nide, njds, njde, nkds, nkde,    &
32                                 nims, nime, njms, njme, nkms, nkme,    &
33                                 nips, nipe, njps, njpe, nkps, nkpe
34 
35       CALL get_ijk_from_grid (  grid ,                   &
36                                 cids, cide, cjds, cjde, ckds, ckde,    &
37                                 cims, cime, cjms, cjme, ckms, ckme,    &
38                                 cips, cipe, cjps, cjpe, ckps, ckpe    )
39       CALL get_ijk_from_grid (  ngrid ,              &
40                                 nids, nide, njds, njde, nkds, nkde,    &
41                                 nims, nime, njms, njme, nkms, nkme,    &
42                                 nips, nipe, njps, njpe, nkps, nkpe    )
43 
44       nlev  = ckde - ckds + 1
45 
46       ! code here to interpolate the data into the nested domain
47 #  include "em_nest_interpdown_interp.inc"
48 
49       RETURN
50 
51 END SUBROUTINE interp_domain_em_part1
52 
53 ! Stub ... not used in serial code
54 SUBROUTINE interp_domain_em_part2
55 END SUBROUTINE interp_domain_em_part2
56 
57 #endif
58 
59