HALO_NODYN_INTERP_UP.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_NODYN_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 "nodyn_data_calls.inc"
9     BECAUSE IT CONTAINS AN RSL HALO OPERATION
10 #endif
11 IF ( grid%comms( HALO_NODYN_INTERP_UP ) == invalid_message_value ) THEN
12   CALL wrf_debug ( 50 , 'set up halo HALO_NODYN_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%nest_pos , 1 )
17   CALL add_msg_80pt_real ( grid%nest_mask , 1 )
18   if ( P_qv .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(3) )
19   if ( P_qc .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(3) )
20   if ( P_qr .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(3) )
21   if ( P_qi .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(3) )
22   if ( P_qs .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(3) )
23   if ( P_qg .GT. 1 ) CALL add_msg_80pt_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(3) )
24   if ( P_a_qv .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qv), glen(3) )
25   if ( P_a_qc .GT. 1 ) CALL add_msg_80pt_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qc), glen(3) )
26   if ( P_g_qv .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qv), glen(3) )
27   if ( P_g_qc .GT. 1 ) CALL add_msg_80pt_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qc), glen(3) )
28   if ( P_qni .GT. 1 ) CALL add_msg_80pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qni), glen(3) )
29   if ( P_qt .GT. 1 ) CALL add_msg_80pt_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qt), glen(3) )
30   CALL add_msg_80pt_real ( grid%landmask , 1 )
31   CALL add_msg_80pt_real ( grid%tslb , config_flags%num_soil_layers )
32   CALL add_msg_80pt_real ( grid%smois , config_flags%num_soil_layers )
33   CALL add_msg_80pt_real ( grid%sh2o , config_flags%num_soil_layers )
34   CALL add_msg_80pt_real ( grid%xice , 1 )
35   CALL add_msg_80pt_integer ( grid%ivgtyp , 1 )
36   CALL add_msg_80pt_integer ( grid%isltyp , 1 )
37   CALL add_msg_80pt_real ( grid%vegfra , 1 )
38   CALL add_msg_80pt_real ( grid%acsnow , 1 )
39   CALL add_msg_80pt_real ( grid%acsnom , 1 )
40   CALL add_msg_80pt_real ( grid%snow , 1 )
41   CALL add_msg_80pt_real ( grid%snowh , 1 )
42   CALL add_msg_80pt_real ( grid%rhosn , 1 )
43   CALL add_msg_80pt_real ( grid%canwat , 1 )
44   CALL add_msg_80pt_real ( grid%msft , 1 )
45   CALL add_msg_80pt_real ( grid%msfu , 1 )
46   CALL add_msg_80pt_real ( grid%msfv , 1 )
47   CALL add_msg_80pt_real ( grid%f , 1 )
48   CALL add_msg_80pt_real ( grid%e , 1 )
49   CALL add_msg_80pt_real ( grid%sina , 1 )
50   CALL add_msg_80pt_real ( grid%cosa , 1 )
51   CALL add_msg_80pt_real ( grid%ht , 1 )
52   CALL add_msg_80pt_real ( grid%tsk , 1 )
53   CALL add_msg_80pt_real ( grid%rainc , 1 )
54   CALL add_msg_80pt_real ( grid%rainnc , 1 )
55   CALL add_msg_80pt_real ( grid%xlat , 1 )
56   CALL add_msg_80pt_real ( grid%xlong , 1 )
57   CALL add_msg_80pt_real ( grid%tmn , 1 )
58   CALL add_msg_80pt_real ( grid%xland , 1 )
59   CALL add_msg_80pt_real ( grid%snowc , 1 )
60   CALL stencil_80pt ( grid%domdesc , grid%comms ( HALO_NODYN_INTERP_UP ) )
61 ENDIF
62   CALL wrf_debug ( 50 , 'exchange halo HALO_NODYN_INTERP_UP' )
63 CALL rsl_exch_stencil ( grid%domdesc , grid%comms( HALO_NODYN_INTERP_UP ) )
64 !ENDOFREGISTRYGENERATEDINCLUDE