HALO_XB.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_XB.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_XB ) == invalid_message_value ) THEN
12   CALL wrf_debug ( 50 , 'set up halo HALO_XB' )
13   CALL setup_halo_rsl( grid )
14   CALL reset_msgs_24pt
15   CALL add_msg_24pt_real ( grid%xb%u , (glen(3)) )
16   CALL add_msg_24pt_real ( grid%xb%v , (glen(3)) )
17   CALL add_msg_24pt_real ( grid%xb%w , (glen(3)) )
18   CALL add_msg_24pt_real ( grid%xb%wh , (glen(3)) )
19   CALL add_msg_24pt_real ( grid%xb%q , (glen(3)) )
20   CALL add_msg_24pt_real ( grid%xb%p , (glen(3)) )
21   CALL add_msg_24pt_real ( grid%xb%t , (glen(3)) )
22   CALL add_msg_24pt_real ( grid%xb%rho , (glen(3)) )
23   CALL add_msg_24pt_real ( grid%xb%rh , (glen(3)) )
24   CALL add_msg_24pt_real ( grid%xb%psfc , 1 )
25   CALL add_msg_24pt_real ( grid%xb%qcw , (glen(3)) )
26   CALL add_msg_24pt_real ( grid%xb%qrn , (glen(3)) )
27   CALL add_msg_24pt_real ( grid%xb%qt , (glen(3)) )
28   CALL add_msg_24pt_real ( grid%xb%slp , 1 )
29   CALL stencil_24pt ( grid%domdesc , grid%comms ( HALO_XB ) )
30 ENDIF
31   CALL wrf_debug ( 50 , 'exchange halo HALO_XB' )
32 CALL rsl_exch_stencil ( grid%domdesc , grid%comms( HALO_XB ) )
33 !ENDOFREGISTRYGENERATEDINCLUDE