HALO_EM_INTERP_UP.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_INTERP_UP.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_UP ) == invalid_message_value ) THEN
12 CALL wrf_debug ( 50 , 'set up halo HALO_EM_INTERP_UP' )
13 CALL setup_halo_rsl( grid )
14 CALL reset_msgs_80pt
15 CALL add_msg_80pt_real ( grid%lu_index , 1 )
16 CALL add_msg_80pt_real ( grid%em_u_2 , (glen(3)) )
17 CALL add_msg_80pt_real ( grid%em_a_u_2 , (glen(3)) )
18 CALL add_msg_80pt_real ( grid%em_g_u_2 , (glen(3)) )
19 CALL add_msg_80pt_real ( grid%em_v_2 , (glen(3)) )
20 CALL add_msg_80pt_real ( grid%em_a_v_2 , (glen(3)) )
21 CALL add_msg_80pt_real ( grid%em_g_v_2 , (glen(3)) )
22 CALL add_msg_80pt_real ( grid%em_w_2 , (glen(3)) )
23 CALL add_msg_80pt_real ( grid%em_a_w_2 , (glen(3)) )
24 CALL add_msg_80pt_real ( grid%em_g_w_2 , (glen(3)) )
25 CALL add_msg_80pt_real ( grid%em_ph_2 , (glen(3)) )
26 CALL add_msg_80pt_real ( grid%em_a_ph_2 , (glen(3)) )
27 CALL add_msg_80pt_real ( grid%em_g_ph_2 , (glen(3)) )
28 CALL add_msg_80pt_real ( grid%em_phb , (glen(3)) )
29 CALL add_msg_80pt_real ( grid%em_a_phb , (glen(3)) )
30 CALL add_msg_80pt_real ( grid%em_g_phb , (glen(3)) )
31 CALL add_msg_80pt_real ( grid%em_t_2 , (glen(3)) )
32 CALL add_msg_80pt_real ( grid%em_a_t_2 , (glen(3)) )
33 CALL add_msg_80pt_real ( grid%em_g_t_2 , (glen(3)) )
34 CALL add_msg_80pt_real ( grid%em_mu_2 , 1 )
35 CALL add_msg_80pt_real ( grid%em_a_mu_2 , 1 )
36 CALL add_msg_80pt_real ( grid%em_g_mu_2 , 1 )
37 CALL add_msg_80pt_real ( grid%em_mub , 1 )
38 CALL add_msg_80pt_real ( grid%em_a_mub , 1 )
39 CALL add_msg_80pt_real ( grid%em_g_mub , 1 )
40 CALL add_msg_80pt_real ( grid%em_mu0 , 1 )
41 CALL add_msg_80pt_real ( grid%em_muu , 1 )
42 CALL add_msg_80pt_real ( grid%em_a_muu , 1 )
43 CALL add_msg_80pt_real ( grid%em_g_muu , 1 )
44 CALL add_msg_80pt_real ( grid%em_muv , 1 )
45 CALL add_msg_80pt_real ( grid%em_a_muv , 1 )
46 CALL add_msg_80pt_real ( grid%em_g_muv , 1 )
47 CALL add_msg_80pt_real ( grid%em_mut , 1 )
48 CALL add_msg_80pt_real ( grid%em_a_mut , 1 )
49 CALL add_msg_80pt_real ( grid%em_g_mut , 1 )
50 CALL add_msg_80pt_real ( grid%em_muts , 1 )
51 CALL add_msg_80pt_real ( grid%em_a_muts , 1 )
52 CALL add_msg_80pt_real ( grid%em_g_muts , 1 )
53 CALL add_msg_80pt_real ( grid%nest_pos , 1 )
54 CALL add_msg_80pt_real ( grid%nest_mask , 1 )
55 CALL add_msg_80pt_real ( grid%em_alb , (glen(3)) )
56 CALL add_msg_80pt_real ( grid%em_pb , (glen(3)) )
57 if ( P_qv .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(3) )
58 if ( P_qc .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(3) )
59 if ( P_qr .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(3) )
60 if ( P_qi .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(3) )
61 if ( P_qs .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(3) )
62 if ( P_qg .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(3) )
63 if ( P_a_qv .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qv), glen(3) )
64 if ( P_a_qc .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qc), glen(3) )
65 if ( P_a_qr .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qr), glen(3) )
66 if ( P_a_qi .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qi), glen(3) )
67 if ( P_a_qs .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qs), glen(3) )
68 if ( P_a_qg .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qg), glen(3) )
69 if ( P_g_qv .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qv), glen(3) )
70 if ( P_g_qc .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qc), glen(3) )
71 if ( P_g_qr .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qr), glen(3) )
72 if ( P_g_qi .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qi), glen(3) )
73 if ( P_g_qs .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qs), glen(3) )
74 if ( P_g_qg .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qg), glen(3) )
75 if ( P_qni .GT. 1 ) CALL add_msg_80pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qni), glen(3) )
76 if ( P_qt .GT. 1 ) CALL add_msg_80pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qt), glen(3) )
77 CALL add_msg_80pt_real ( grid%landmask , 1 )
78 CALL add_msg_80pt_real ( grid%tslb , config_flags%num_soil_layers )
79 CALL add_msg_80pt_real ( grid%smois , config_flags%num_soil_layers )
80 CALL add_msg_80pt_real ( grid%sh2o , config_flags%num_soil_layers )
81 CALL add_msg_80pt_real ( grid%xice , 1 )
82 CALL add_msg_80pt_integer ( grid%ivgtyp , 1 )
83 CALL add_msg_80pt_integer ( grid%isltyp , 1 )
84 CALL add_msg_80pt_real ( grid%vegfra , 1 )
85 CALL add_msg_80pt_real ( grid%acsnow , 1 )
86 CALL add_msg_80pt_real ( grid%acsnom , 1 )
87 CALL add_msg_80pt_real ( grid%snow , 1 )
88 CALL add_msg_80pt_real ( grid%snowh , 1 )
89 CALL add_msg_80pt_real ( grid%rhosn , 1 )
90 CALL add_msg_80pt_real ( grid%canwat , 1 )
91 CALL add_msg_80pt_real ( grid%msft , 1 )
92 CALL add_msg_80pt_real ( grid%msfu , 1 )
93 CALL add_msg_80pt_real ( grid%msfv , 1 )
94 CALL add_msg_80pt_real ( grid%f , 1 )
95 CALL add_msg_80pt_real ( grid%e , 1 )
96 CALL add_msg_80pt_real ( grid%sina , 1 )
97 CALL add_msg_80pt_real ( grid%cosa , 1 )
98 CALL add_msg_80pt_real ( grid%ht , 1 )
99 CALL add_msg_80pt_real ( grid%tsk , 1 )
100 CALL add_msg_80pt_real ( grid%rainc , 1 )
101 CALL add_msg_80pt_real ( grid%rainnc , 1 )
102 CALL add_msg_80pt_real ( grid%snownc , 1 )
103 CALL add_msg_80pt_real ( grid%graupelnc , 1 )
104 CALL add_msg_80pt_real ( grid%xlat , 1 )
105 CALL add_msg_80pt_real ( grid%xlong , 1 )
106 CALL add_msg_80pt_real ( grid%em_xlat_u , 1 )
107 CALL add_msg_80pt_real ( grid%em_xlong_u , 1 )
108 CALL add_msg_80pt_real ( grid%em_xlat_v , 1 )
109 CALL add_msg_80pt_real ( grid%em_xlong_v , 1 )
110 CALL add_msg_80pt_real ( grid%tmn , 1 )
111 CALL add_msg_80pt_real ( grid%xland , 1 )
112 CALL add_msg_80pt_real ( grid%snowc , 1 )
113 CALL stencil_80pt ( grid%domdesc , grid%comms ( HALO_EM_INTERP_UP ) )
114 ENDIF
115 CALL wrf_debug ( 50 , 'exchange halo HALO_EM_INTERP_UP' )
116 CALL rsl_exch_stencil ( grid%domdesc , grid%comms( HALO_EM_INTERP_UP ) )
117 !ENDOFREGISTRYGENERATEDINCLUDE