HALO_EM_INTERP_SMOOTH.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_INTERP_SMOOTH.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_INTERP_SMOOTH ) == invalid_message_value ) THEN
12 CALL wrf_debug ( 50 , 'set up halo HALO_EM_INTERP_SMOOTH' )
13 CALL setup_halo_rsl( grid )
14 CALL reset_msgs_80pt
15 CALL add_msg_80pt_real ( grid%em_u_2 , (glen(3)) )
16 CALL add_msg_80pt_real ( grid%em_a_u_2 , (glen(3)) )
17 CALL add_msg_80pt_real ( grid%em_g_u_2 , (glen(3)) )
18 CALL add_msg_80pt_real ( grid%em_v_2 , (glen(3)) )
19 CALL add_msg_80pt_real ( grid%em_a_v_2 , (glen(3)) )
20 CALL add_msg_80pt_real ( grid%em_g_v_2 , (glen(3)) )
21 CALL add_msg_80pt_real ( grid%em_w_2 , (glen(3)) )
22 CALL add_msg_80pt_real ( grid%em_a_w_2 , (glen(3)) )
23 CALL add_msg_80pt_real ( grid%em_g_w_2 , (glen(3)) )
24 CALL add_msg_80pt_real ( grid%em_ph_2 , (glen(3)) )
25 CALL add_msg_80pt_real ( grid%em_a_ph_2 , (glen(3)) )
26 CALL add_msg_80pt_real ( grid%em_g_ph_2 , (glen(3)) )
27 CALL add_msg_80pt_real ( grid%em_phb , (glen(3)) )
28 CALL add_msg_80pt_real ( grid%em_t_2 , (glen(3)) )
29 CALL add_msg_80pt_real ( grid%em_a_t_2 , (glen(3)) )
30 CALL add_msg_80pt_real ( grid%em_g_t_2 , (glen(3)) )
31 CALL add_msg_80pt_real ( grid%em_mu_2 , 1 )
32 CALL add_msg_80pt_real ( grid%em_a_mu_2 , 1 )
33 CALL add_msg_80pt_real ( grid%em_g_mu_2 , 1 )
34 CALL add_msg_80pt_real ( grid%em_mub , 1 )
35 if ( P_qv .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(3) )
36 if ( P_qc .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(3) )
37 if ( P_qr .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(3) )
38 if ( P_qi .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(3) )
39 if ( P_qs .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(3) )
40 if ( P_qg .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(3) )
41 if ( P_a_qv .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qv), glen(3) )
42 if ( P_a_qc .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qc), glen(3) )
43 if ( P_g_qv .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qv), glen(3) )
44 if ( P_g_qc .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qc), glen(3) )
45 if ( P_qni .GT. 1 ) CALL add_msg_80pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qni), glen(3) )
46 if ( P_qt .GT. 1 ) CALL add_msg_80pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qt), glen(3) )
47 CALL add_msg_80pt_real ( grid%ht , 1 )
48 CALL stencil_80pt ( grid%domdesc , grid%comms ( HALO_EM_INTERP_SMOOTH ) )
49 ENDIF
50 CALL wrf_debug ( 50 , 'exchange halo HALO_EM_INTERP_SMOOTH' )
51 CALL rsl_exch_stencil ( grid%domdesc , grid%comms( HALO_EM_INTERP_SMOOTH ) )
52 !ENDOFREGISTRYGENERATEDINCLUDE