HALO_EM_INTERP_DOWN.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_INTERP_DOWN.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_DOWN ) == invalid_message_value ) THEN
12 CALL wrf_debug ( 50 , 'set up halo HALO_EM_INTERP_DOWN' )
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_alb , (glen(3)) )
42 CALL add_msg_80pt_real ( grid%em_pb , (glen(3)) )
43 if ( P_qv .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(3) )
44 if ( P_qc .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(3) )
45 if ( P_qr .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(3) )
46 if ( P_qi .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(3) )
47 if ( P_qs .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(3) )
48 if ( P_qg .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(3) )
49 if ( P_a_qv .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qv), glen(3) )
50 if ( P_a_qc .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qc), glen(3) )
51 if ( P_a_qr .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qr), glen(3) )
52 if ( P_a_qi .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qi), glen(3) )
53 if ( P_a_qs .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qs), glen(3) )
54 if ( P_a_qg .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qg), glen(3) )
55 if ( P_g_qv .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qv), glen(3) )
56 if ( P_g_qc .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qc), glen(3) )
57 if ( P_g_qr .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qr), glen(3) )
58 if ( P_g_qi .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qi), glen(3) )
59 if ( P_g_qs .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qs), glen(3) )
60 if ( P_g_qg .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qg), glen(3) )
61 if ( P_qni .GT. 1 ) CALL add_msg_80pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qni), glen(3) )
62 if ( P_qt .GT. 1 ) CALL add_msg_80pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qt), glen(3) )
63 CALL add_msg_80pt_real ( grid%landmask , 1 )
64 CALL add_msg_80pt_real ( grid%tslb , config_flags%num_soil_layers )
65 CALL add_msg_80pt_real ( grid%smois , config_flags%num_soil_layers )
66 CALL add_msg_80pt_real ( grid%sh2o , config_flags%num_soil_layers )
67 CALL add_msg_80pt_real ( grid%xice , 1 )
68 CALL add_msg_80pt_real ( grid%sfcrunoff , 1 )
69 CALL add_msg_80pt_real ( grid%udrunoff , 1 )
70 CALL add_msg_80pt_integer ( grid%ivgtyp , 1 )
71 CALL add_msg_80pt_integer ( grid%isltyp , 1 )
72 CALL add_msg_80pt_real ( grid%vegfra , 1 )
73 CALL add_msg_80pt_real ( grid%acsnow , 1 )
74 CALL add_msg_80pt_real ( grid%acsnom , 1 )
75 CALL add_msg_80pt_real ( grid%snow , 1 )
76 CALL add_msg_80pt_real ( grid%snowh , 1 )
77 CALL add_msg_80pt_real ( grid%rhosn , 1 )
78 CALL add_msg_80pt_real ( grid%canwat , 1 )
79 CALL add_msg_80pt_real ( grid%sst , 1 )
80 CALL add_msg_80pt_real ( grid%msft , 1 )
81 CALL add_msg_80pt_real ( grid%msfu , 1 )
82 CALL add_msg_80pt_real ( grid%msfv , 1 )
83 CALL add_msg_80pt_real ( grid%f , 1 )
84 CALL add_msg_80pt_real ( grid%e , 1 )
85 CALL add_msg_80pt_real ( grid%sina , 1 )
86 CALL add_msg_80pt_real ( grid%cosa , 1 )
87 CALL add_msg_80pt_real ( grid%ht , 1 )
88 CALL add_msg_80pt_real ( grid%tsk , 1 )
89 CALL add_msg_80pt_real ( grid%rainc , 1 )
90 CALL add_msg_80pt_real ( grid%rainnc , 1 )
91 CALL add_msg_80pt_real ( grid%snownc , 1 )
92 CALL add_msg_80pt_real ( grid%graupelnc , 1 )
93 CALL add_msg_80pt_real ( grid%xlat , 1 )
94 CALL add_msg_80pt_real ( grid%xlong , 1 )
95 CALL add_msg_80pt_real ( grid%em_xlat_u , 1 )
96 CALL add_msg_80pt_real ( grid%em_xlong_u , 1 )
97 CALL add_msg_80pt_real ( grid%em_xlat_v , 1 )
98 CALL add_msg_80pt_real ( grid%em_xlong_v , 1 )
99 CALL add_msg_80pt_real ( grid%tmn , 1 )
100 CALL add_msg_80pt_real ( grid%xland , 1 )
101 CALL add_msg_80pt_real ( grid%snowc , 1 )
102 CALL stencil_80pt ( grid%domdesc , grid%comms ( HALO_EM_INTERP_DOWN ) )
103 ENDIF
104 CALL wrf_debug ( 50 , 'exchange halo HALO_EM_INTERP_DOWN' )
105 CALL rsl_exch_stencil ( grid%domdesc , grid%comms( HALO_EM_INTERP_DOWN ) )
106 !ENDOFREGISTRYGENERATEDINCLUDE