HALO_EM_D3_5.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_D3_5.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit.  Your changes to this file will be lost.
6 !
7 #ifndef DATA_CALLS_INCLUDED
8 --- DELIBERATE SYNTAX ERROR: THIS ROUTINE SHOULD INCLUDE "em_data_calls.inc"
9     BECAUSE IT CONTAINS AN RSL HALO OPERATION
10 #endif
11 IF ( grid%comms( HALO_EM_D3_5 ) == invalid_message_value ) THEN
12   CALL wrf_debug ( 50 , 'set up halo HALO_EM_D3_5' )
13   CALL setup_halo_rsl( grid )
14   CALL reset_msgs_48pt
15   CALL add_msg_48pt_real ( grid%em_u_1 , (glen(3)) )
16   CALL add_msg_48pt_real ( grid%em_u_2 , (glen(3)) )
17   CALL add_msg_48pt_real ( grid%em_v_1 , (glen(3)) )
18   CALL add_msg_48pt_real ( grid%em_v_2 , (glen(3)) )
19   CALL add_msg_48pt_real ( grid%em_w_1 , (glen(3)) )
20   CALL add_msg_48pt_real ( grid%em_w_2 , (glen(3)) )
21   CALL add_msg_48pt_real ( grid%em_t_1 , (glen(3)) )
22   CALL add_msg_48pt_real ( grid%em_t_2 , (glen(3)) )
23   CALL add_msg_48pt_real ( grid%em_ph_1 , (glen(3)) )
24   CALL add_msg_48pt_real ( grid%em_ph_2 , (glen(3)) )
25   if ( P_qv .GT. 1 ) CALL add_msg_48pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(3) )
26   if ( P_qc .GT. 1 ) CALL add_msg_48pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(3) )
27   if ( P_qr .GT. 1 ) CALL add_msg_48pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(3) )
28   if ( P_qi .GT. 1 ) CALL add_msg_48pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(3) )
29   if ( P_qs .GT. 1 ) CALL add_msg_48pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(3) )
30   if ( P_qg .GT. 1 ) CALL add_msg_48pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(3) )
31   if ( P_qni .GT. 1 ) CALL add_msg_48pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qni), glen(3) )
32   if ( P_qt .GT. 1 ) CALL add_msg_48pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qt), glen(3) )
33   CALL add_msg_4pt_real ( grid%em_mu_1 , 1 )
34   CALL add_msg_4pt_real ( grid%em_mu_2 , 1 )
35   CALL stencil_48pt ( grid%domdesc , grid%comms ( HALO_EM_D3_5 ) )
36 ENDIF
37   CALL wrf_debug ( 50 , 'exchange halo HALO_EM_D3_5' )
38 CALL rsl_exch_stencil ( grid%domdesc , grid%comms( HALO_EM_D3_5 ) )
39 !ENDOFREGISTRYGENERATEDINCLUDE