dyn_em/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 "dummy_new_args.inc"
  18 !
  19                  )
  20          USE module_state_description
  21          USE module_domain, ONLY : domain, get_ijk_from_grid
  22          USE module_configure, ONLY : grid_config_rec_type
  23          TYPE(domain), POINTER :: grid , ngrid
  24 #include "dummy_new_decl.inc"
  25
  26       INTEGER nlev
  27       INTEGER i,j,pig,pjg,cm,cn,nig,njg,k
  28       TYPE (grid_config_rec_type)            :: config_flags
  29       INTEGER       ::          cids, cide, cjds, cjde, ckds, ckde,    &
  30                                 cims, cime, cjms, cjme, ckms, ckme,    &
  31                                 cips, cipe, cjps, cjpe, ckps, ckpe
  32       INTEGER       ::          nids, nide, njds, njde, nkds, nkde,    &
  33                                 nims, nime, njms, njme, nkms, nkme,    &
  34                                 nips, nipe, njps, njpe, nkps, nkpe
  35
  36       CALL get_ijk_from_grid (  grid ,                   &
  37                                 cids, cide, cjds, cjde, ckds, ckde,    &
  38                                 cims, cime, cjms, cjme, ckms, ckme,    &
  39                                 cips, cipe, cjps, cjpe, ckps, ckpe    )
  40       CALL get_ijk_from_grid (  ngrid ,              &
  41                                 nids, nide, njds, njde, nkds, nkde,    &
  42                                 nims, nime, njms, njme, nkms, nkme,    &
  43                                 nips, nipe, njps, njpe, nkps, nkpe    )
  44
  45       nlev  = ckde - ckds + 1
  46
  47       ! code here to interpolate the data into the nested domain
  48 #  include "nest_interpdown_interp.inc"
  49
  50       RETURN
  51
  52 END SUBROUTINE interp_domain_em_part1
  53
  54 ! Stub ... not used in serial code
  55 SUBROUTINE interp_domain_em_part2
  56 END SUBROUTINE interp_domain_em_part2
  57
  58 #endif
  59
  60