include file: EM_SHIFT_HALO_Y.inc,9
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/EM_SHIFT_HALO_Y.inc'
!
! WARNING This file is generated automatically by use_registry
! using the data base in the file named Registry.
! Do not edit. Your changes to this file will be lost.
!
IF ( grid%comms( EM_SHIFT_HALO_Y ) == invalid_message_value ) THEN
CALL wrf_debug
( 50 , 'set up halo EM_SHIFT_HALO_Y' )
CALL setup_halo_rsl
( grid )
CALL reset_msgs_48pt
CALL add_msg_48pt_integer
( imask , 1 )
CALL add_msg_48pt_real
( u_2 , (glen(2)) )
CALL add_msg_48pt_real
( v_2 , (glen(2)) )
CALL add_msg_48pt_real
( t_2 , (glen(2)) )
CALL stencil_48pt
( grid%domdesc , grid%comms ( EM_SHIFT_HALO_Y ) )
ENDIF
CALL wrf_debug
( 50 , 'exchange halo EM_SHIFT_HALO_Y' )
CALL rsl_exch_stencil ( grid%domdesc , grid%comms( EM_SHIFT_HALO_Y ) )
!ENDOFREGISTRYGENERATEDINCLUDE