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_t_2 , (glen(3)) )
30 CALL add_msg_80pt_real ( grid%em_a_t_2 , (glen(3)) )
31 CALL add_msg_80pt_real ( grid%em_g_t_2 , (glen(3)) )
32 CALL add_msg_80pt_real ( grid%em_mu_2 , 1 )
33 CALL add_msg_80pt_real ( grid%em_a_mu_2 , 1 )
34 CALL add_msg_80pt_real ( grid%em_g_mu_2 , 1 )
35 CALL add_msg_80pt_real ( grid%em_mub , 1 )
36 CALL add_msg_80pt_real ( grid%em_mu0 , 1 )
37 if ( P_qv .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(3) )
38 if ( P_qc .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(3) )
39 if ( P_qr .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(3) )
40 if ( P_qi .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(3) )
41 if ( P_qs .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(3) )
42 if ( P_qg .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(3) )
43 if ( P_a_qv .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qv), glen(3) )
44 if ( P_a_qc .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qc), glen(3) )
45 if ( P_g_qv .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qv), glen(3) )
46 if ( P_g_qc .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qc), glen(3) )
47 if ( P_qni .GT. 1 ) CALL add_msg_80pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qni), glen(3) )
48 if ( P_qt .GT. 1 ) CALL add_msg_80pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qt), glen(3) )
49 CALL add_msg_80pt_real ( grid%landmask , 1 )
50 CALL add_msg_80pt_real ( grid%tslb , config_flags%num_soil_layers )
51 CALL add_msg_80pt_real ( grid%smois , config_flags%num_soil_layers )
52 CALL add_msg_80pt_real ( grid%sh2o , config_flags%num_soil_layers )
53 CALL add_msg_80pt_real ( grid%xice , 1 )
54 CALL add_msg_80pt_real ( grid%sfcrunoff , 1 )
55 CALL add_msg_80pt_real ( grid%udrunoff , 1 )
56 CALL add_msg_80pt_integer ( grid%ivgtyp , 1 )
57 CALL add_msg_80pt_integer ( grid%isltyp , 1 )
58 CALL add_msg_80pt_real ( grid%vegfra , 1 )
59 CALL add_msg_80pt_real ( grid%acsnow , 1 )
60 CALL add_msg_80pt_real ( grid%acsnom , 1 )
61 CALL add_msg_80pt_real ( grid%snow , 1 )
62 CALL add_msg_80pt_real ( grid%snowh , 1 )
63 CALL add_msg_80pt_real ( grid%rhosn , 1 )
64 CALL add_msg_80pt_real ( grid%canwat , 1 )
65 CALL add_msg_80pt_real ( grid%sst , 1 )
66 CALL add_msg_80pt_real ( grid%msft , 1 )
67 CALL add_msg_80pt_real ( grid%msfu , 1 )
68 CALL add_msg_80pt_real ( grid%msfv , 1 )
69 CALL add_msg_80pt_real ( grid%f , 1 )
70 CALL add_msg_80pt_real ( grid%e , 1 )
71 CALL add_msg_80pt_real ( grid%sina , 1 )
72 CALL add_msg_80pt_real ( grid%cosa , 1 )
73 CALL add_msg_80pt_real ( grid%ht , 1 )
74 CALL add_msg_80pt_real ( grid%tsk , 1 )
75 CALL add_msg_80pt_real ( grid%rainc , 1 )
76 CALL add_msg_80pt_real ( grid%rainnc , 1 )
77 CALL add_msg_80pt_real ( grid%xlat , 1 )
78 CALL add_msg_80pt_real ( grid%xlong , 1 )
79 CALL add_msg_80pt_real ( grid%em_xlat_u , 1 )
80 CALL add_msg_80pt_real ( grid%em_xlong_u , 1 )
81 CALL add_msg_80pt_real ( grid%em_xlat_v , 1 )
82 CALL add_msg_80pt_real ( grid%em_xlong_v , 1 )
83 CALL add_msg_80pt_real ( grid%tmn , 1 )
84 CALL add_msg_80pt_real ( grid%xland , 1 )
85 CALL add_msg_80pt_real ( grid%snowc , 1 )
86 CALL stencil_80pt ( grid%domdesc , grid%comms ( HALO_EM_INTERP_DOWN ) )
87 ENDIF
88 CALL wrf_debug ( 50 , 'exchange halo HALO_EM_INTERP_DOWN' )
89 CALL rsl_exch_stencil ( grid%domdesc , grid%comms( HALO_EM_INTERP_DOWN ) )
90 !ENDOFREGISTRYGENERATEDINCLUDE