include file: HALO_EM_INIT.inc 5,52
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_INIT.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( HALO_EM_INIT ) == invalid_message_value ) THEN
CALL wrf_debug
( 50 , 'set up halo HALO_EM_INIT' )
CALL setup_halo_rsl
( grid )
CALL reset_msgs_48pt
CALL add_msg_48pt_real
( u_1 , (glen(2)) )
CALL add_msg_48pt_real
( u_2 , (glen(2)) )
CALL add_msg_48pt_real
( v_1 , (glen(2)) )
CALL add_msg_48pt_real
( v_2 , (glen(2)) )
CALL add_msg_48pt_real
( w_1 , (glen(2)) )
CALL add_msg_48pt_real
( w_2 , (glen(2)) )
CALL add_msg_48pt_real
( ph_1 , (glen(2)) )
CALL add_msg_48pt_real
( ph_2 , (glen(2)) )
CALL add_msg_48pt_real
( t_1 , (glen(2)) )
CALL add_msg_48pt_real
( t_2 , (glen(2)) )
CALL add_msg_48pt_real
( mu_1 , 1 )
CALL add_msg_48pt_real
( mu_2 , 1 )
CALL add_msg_48pt_real
( tke_1 , (glen(2)) )
CALL add_msg_48pt_real
( tke_2 , (glen(2)) )
CALL add_msg_48pt_real
( ww , (glen(2)) )
CALL add_msg_48pt_real
( phb , (glen(2)) )
CALL add_msg_48pt_real
( ph0 , (glen(2)) )
CALL add_msg_48pt_real
( php , (glen(2)) )
CALL add_msg_48pt_real
( t_init , (glen(2)) )
CALL add_msg_48pt_real
( mub , 1 )
CALL add_msg_48pt_real
( mu0 , 1 )
CALL add_msg_48pt_real
( p , (glen(2)) )
CALL add_msg_48pt_real
( al , (glen(2)) )
CALL add_msg_48pt_real
( alt , (glen(2)) )
CALL add_msg_48pt_real
( alb , (glen(2)) )
CALL add_msg_48pt_real
( pb , (glen(2)) )
CALL add_msg_48pt_real
( h_diabatic , (glen(2)) )
CALL add_msg_48pt_real
( msft , 1 )
CALL add_msg_48pt_real
( msfu , 1 )
CALL add_msg_48pt_real
( msfv , 1 )
CALL add_msg_48pt_real
( f , 1 )
CALL add_msg_48pt_real
( e , 1 )
CALL add_msg_48pt_real
( sina , 1 )
CALL add_msg_48pt_real
( cosa , 1 )
CALL add_msg_48pt_real
( ht , 1 )
if ( P_qv .GT. 1 ) CALL add_msg_48pt_real
( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(2) )
if ( P_qc .GT. 1 ) CALL add_msg_48pt_real
( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(2) )
if ( P_qr .GT. 1 ) CALL add_msg_48pt_real
( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(2) )
if ( P_qi .GT. 1 ) CALL add_msg_48pt_real
( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(2) )
if ( P_qs .GT. 1 ) CALL add_msg_48pt_real
( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(2) )
if ( P_qg .GT. 1 ) CALL add_msg_48pt_real
( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(2) )
if ( P_qv .GT. 1 ) CALL add_msg_48pt_real
( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(2) )
if ( P_qc .GT. 1 ) CALL add_msg_48pt_real
( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(2) )
if ( P_qr .GT. 1 ) CALL add_msg_48pt_real
( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(2) )
if ( P_qi .GT. 1 ) CALL add_msg_48pt_real
( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(2) )
if ( P_qs .GT. 1 ) CALL add_msg_48pt_real
( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(2) )
if ( P_qg .GT. 1 ) CALL add_msg_48pt_real
( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(2) )
CALL stencil_48pt
( grid%domdesc , grid%comms ( HALO_EM_INIT ) )
ENDIF
CALL wrf_debug
( 50 , 'exchange halo HALO_EM_INIT' )
CALL rsl_exch_stencil ( grid%domdesc , grid%comms( HALO_EM_INIT ) )
!ENDOFREGISTRYGENERATEDINCLUDE