PERIOD_EM_COUPLE_A.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/PERIOD_EM_COUPLE_A.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_EM_COUPLE_A ) == invalid_message_value .AND. (config_flags%periodic_x .OR. config_flags%periodic_y )) THEN
12   CALL wrf_debug ( 50 , 'setting up period PERIOD_EM_COUPLE_A' )
13   CALL setup_period_rsl( grid )
14   CALL reset_period
15   CALL add_msg_period_real ( grid%em_mub , 1 )
16   CALL add_msg_period_real ( grid%em_mu_1 , 1 )
17   CALL add_msg_period_real ( grid%em_mu_2 , 1 )
18   CALL period_def ( grid%domdesc , grid%comms ( PERIOD_EM_COUPLE_A ) , 2 )
19 ENDIF
20 IF ( config_flags%periodic_x ) THEN
21   CALL wrf_debug ( 50 , 'exchanging period PERIOD_EM_COUPLE_A on x' )
22   CALL rsl_exch_period ( grid%domdesc , grid%comms( PERIOD_EM_COUPLE_A ) , x_period_flag )
23 END IF
24 IF ( config_flags%periodic_y ) THEN
25   CALL wrf_debug ( 50 , 'exchanging period PERIOD_EM_COUPLE_A on y' )
26   CALL rsl_exch_period ( grid%domdesc , grid%comms( PERIOD_EM_COUPLE_A ) , y_period_flag )
27 END IF
28 !ENDOFREGISTRYGENERATEDINCLUDE