HALO_INIT.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_INIT.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_INIT ) == invalid_message_value ) THEN
12 CALL wrf_debug ( 50 , 'set up halo HALO_INIT' )
13 CALL setup_halo_rsl( grid )
14 CALL reset_msgs_24pt
15 CALL add_msg_24pt_real ( grid%xb%map_factor , 1 )
16 CALL add_msg_24pt_real ( grid%xb%psac , 1 )
17 CALL add_msg_24pt_real ( grid%xb%rough , 1 )
18 CALL add_msg_24pt_real ( grid%xb%xland , 1 )
19 CALL add_msg_24pt_real ( grid%xb%landmask , 1 )
20 CALL add_msg_24pt_real ( grid%xb%tgrn , 1 )
21 CALL add_msg_24pt_real ( grid%xb%u , (glen(3)) )
22 CALL add_msg_24pt_real ( grid%xb%v , (glen(3)) )
23 CALL add_msg_24pt_real ( grid%xb%w , (glen(3)) )
24 CALL add_msg_24pt_real ( grid%xb%wh , (glen(3)) )
25 CALL add_msg_24pt_real ( grid%xb%t , (glen(3)) )
26 CALL add_msg_24pt_real ( grid%xb%p , (glen(3)) )
27 CALL add_msg_24pt_real ( grid%xb%q , (glen(3)) )
28 CALL add_msg_24pt_real ( grid%xb%qrn , (glen(3)) )
29 CALL add_msg_24pt_real ( grid%xb%qcw , (glen(3)) )
30 CALL add_msg_24pt_real ( grid%xb%qt , (glen(3)) )
31 CALL add_msg_24pt_real ( grid%xb%rho , (glen(3)) )
32 CALL add_msg_24pt_real ( grid%xb%rh , (glen(3)) )
33 CALL add_msg_24pt_real ( grid%xb%h , (glen(3)) )
34 CALL add_msg_24pt_real ( grid%xb%hf , (glen(3)) )
35 CALL add_msg_24pt_real ( grid%xb%u10 , 1 )
36 CALL add_msg_24pt_real ( grid%xb%v10 , 1 )
37 CALL add_msg_24pt_real ( grid%xb%t2 , 1 )
38 CALL add_msg_24pt_real ( grid%xb%q2 , 1 )
39 CALL add_msg_24pt_real ( grid%xb%terr , 1 )
40 CALL add_msg_24pt_real ( grid%xb%psfc , 1 )
41 CALL add_msg_24pt_real ( grid%xb%regime , 1 )
42 CALL add_msg_24pt_real ( grid%xb%tpw , 1 )
43 CALL add_msg_24pt_real ( grid%xb%speed , 1 )
44 CALL add_msg_24pt_real ( grid%xb%tb19v , 1 )
45 CALL add_msg_24pt_real ( grid%xb%tb19h , 1 )
46 CALL add_msg_24pt_real ( grid%xb%tb22v , 1 )
47 CALL add_msg_24pt_real ( grid%xb%tb37v , 1 )
48 CALL add_msg_24pt_real ( grid%xb%tb37h , 1 )
49 CALL add_msg_24pt_real ( grid%xb%tb85v , 1 )
50 CALL add_msg_24pt_real ( grid%xb%tb85h , 1 )
51 CALL add_msg_24pt_real ( grid%xb%ref , (glen(3)) )
52 CALL add_msg_24pt_real ( grid%xb%delt , (glen(3)) )
53 CALL add_msg_24pt_real ( grid%xb%slp , 1 )
54 CALL add_msg_24pt_real ( grid%xb%coefx , 1 )
55 CALL add_msg_24pt_real ( grid%xb%coefy , 1 )
56 CALL add_msg_24pt_real ( grid%xb%coefz , 1 )
57 CALL add_msg_24pt_real ( grid%xb%tsk , 1 )
58 CALL add_msg_24pt_real ( grid%xb%smois , 1 )
59 CALL add_msg_24pt_real ( grid%xb%tslb , 1 )
60 CALL add_msg_24pt_real ( grid%xb%xice , 1 )
61 CALL add_msg_24pt_integer ( grid%xb%ivgtyp , 1 )
62 CALL add_msg_24pt_integer ( grid%xb%isltyp , 1 )
63 CALL add_msg_24pt_real ( grid%xb%vegfra , 1 )
64 CALL add_msg_24pt_real ( grid%xb%snowh , 1 )
65 CALL add_msg_24pt_real ( grid%xb%snow , 1 )
66 CALL stencil_24pt ( grid%domdesc , grid%comms ( HALO_INIT ) )
67 ENDIF
68 CALL wrf_debug ( 50 , 'exchange halo HALO_INIT' )
69 CALL rsl_exch_stencil ( grid%domdesc , grid%comms( HALO_INIT ) )
70 !ENDOFREGISTRYGENERATEDINCLUDE