external/RSL_LITE/interp_domain_em_part3.F

   1 !------------------------------------------------------------------
   2
   3 #if ( EM_CORE == 1 && DA_CORE != 1 )
   4
   5 !------------------------------------------------------------------
   6
   7    SUBROUTINE interp_domain_em_part3 ( grid, ngrid, pgrid, config_flags    &
   8 !
   9 #include "dummy_new_args.inc"
  10 !
  11                  )
  12       USE module_state_description
  13       USE module_domain, ONLY : domain, get_ijk_from_grid
  14       USE module_configure, ONLY : grid_config_rec_type
  15       USE module_dm, ONLY : ntasks, ntasks_x, ntasks_y, itrace, local_communicator, &
  16                             mytask, get_dm_max_halo_width, which_kid
  17                             ! push_communicators_for_domain,pop_communicators_for_domain
  18       USE module_comm_nesting_dm, ONLY : halo_interp_down_sub
  19       IMPLICIT NONE
  20 !
  21       TYPE(domain), POINTER :: grid          ! name of the grid being dereferenced (must be "grid")
  22       TYPE(domain), POINTER :: ngrid
  23       TYPE(domain), POINTER :: pgrid         !KAL added for vertical nesting
  24 #include "dummy_new_decl.inc"
  25       INTEGER nlev, msize
  26       INTEGER i,j,pig,pjg,cm,cn,nig,njg,retval,k
  27       TYPE (grid_config_rec_type)            :: config_flags
  28       REAL xv(2000)
  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       INTEGER       ::          ids, ide, jds, jde, kds, kde,    &
  36                                 ims, ime, jms, jme, kms, kme,    &
  37                                 ips, ipe, jps, jpe, kps, kpe
  38
  39       INTEGER idim1,idim2,idim3,idim4,idim5,idim6,idim7
  40
  41       INTEGER myproc
  42       INTEGER ierr
  43       INTEGER thisdomain_max_halo_width
  44
  45       CALL get_ijk_from_grid (  grid ,                   &
  46                                 cids, cide, cjds, cjde, ckds, ckde,    &
  47                                 cims, cime, cjms, cjme, ckms, ckme,    &
  48                                 cips, cipe, cjps, cjpe, ckps, ckpe    )
  49
  50       CALL get_ijk_from_grid (  ngrid ,              &
  51                                 nids, nide, njds, njde, nkds, nkde,    &
  52                                 nims, nime, njms, njme, nkms, nkme,    &
  53                                 nips, nipe, njps, njpe, nkps, nkpe    )
  54
  55 # include "nest_interpdown_interp.inc"
  56
  57       RETURN
  58    END SUBROUTINE interp_domain_em_part3
  59 #endif