PERIOD_BDY_EM_INIT.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/PERIOD_BDY_EM_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 PERIOD OPERATION
10 #endif
11 IF ( grid%comms( PERIOD_BDY_EM_INIT ) == invalid_message_value .AND. (config_flags%periodic_x .OR. config_flags%periodic_y )) THEN
12   CALL wrf_debug ( 50 , 'setting up period PERIOD_BDY_EM_INIT' )
13   CALL setup_period_rsl( grid )
14   CALL reset_period
15   CALL add_msg_period_real ( grid%em_u_1 , (glen(3)) )
16   CALL add_msg_period_real ( grid%em_u_2 , (glen(3)) )
17   CALL add_msg_period_real ( grid%em_v_1 , (glen(3)) )
18   CALL add_msg_period_real ( grid%em_v_2 , (glen(3)) )
19   CALL add_msg_period_real ( grid%em_w_1 , (glen(3)) )
20   CALL add_msg_period_real ( grid%em_w_2 , (glen(3)) )
21   CALL add_msg_period_real ( grid%em_t_1 , (glen(3)) )
22   CALL add_msg_period_real ( grid%em_t_2 , (glen(3)) )
23   CALL add_msg_period_real ( grid%em_ph_1 , (glen(3)) )
24   CALL add_msg_period_real ( grid%em_ph_2 , (glen(3)) )
25   CALL add_msg_period_real ( grid%em_t_init , (glen(3)) )
26   CALL add_msg_period_real ( grid%em_phb , (glen(3)) )
27   CALL add_msg_period_real ( grid%em_ph0 , (glen(3)) )
28   CALL add_msg_period_real ( grid%em_php , (glen(3)) )
29   CALL add_msg_period_real ( grid%em_pb , (glen(3)) )
30   CALL add_msg_period_real ( grid%em_al , (glen(3)) )
31   CALL add_msg_period_real ( grid%em_alt , (glen(3)) )
32   CALL add_msg_period_real ( grid%em_alb , (glen(3)) )
33   CALL add_msg_period_real ( grid%em_mu_1 , 1 )
34   CALL add_msg_period_real ( grid%em_mu_2 , 1 )
35   CALL add_msg_period_real ( grid%em_mub , 1 )
36   CALL add_msg_period_real ( grid%em_mu0 , 1 )
37   CALL add_msg_period_real ( grid%ht , 1 )
38   CALL add_msg_period_real ( grid%msft , 1 )
39   CALL add_msg_period_real ( grid%msfu , 1 )
40   CALL add_msg_period_real ( grid%msfv , 1 )
41   CALL add_msg_period_real ( grid%sina , 1 )
42   CALL add_msg_period_real ( grid%cosa , 1 )
43   CALL add_msg_period_real ( grid%e , 1 )
44   CALL add_msg_period_real ( grid%f , 1 )
45   CALL period_def ( grid%domdesc , grid%comms ( PERIOD_BDY_EM_INIT ) , 3 )
46 ENDIF
47 IF ( config_flags%periodic_x ) THEN
48   CALL wrf_debug ( 50 , 'exchanging period PERIOD_BDY_EM_INIT on x' )
49   CALL rsl_exch_period ( grid%domdesc , grid%comms( PERIOD_BDY_EM_INIT ) , x_period_flag )
50 END IF
51 IF ( config_flags%periodic_y ) THEN
52   CALL wrf_debug ( 50 , 'exchanging period PERIOD_BDY_EM_INIT on y' )
53   CALL rsl_exch_period ( grid%domdesc , grid%comms( PERIOD_BDY_EM_INIT ) , y_period_flag )
54 END IF
55 !ENDOFREGISTRYGENERATEDINCLUDE