PERIOD_BDY_EM_MOIST.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/PERIOD_BDY_EM_MOIST.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_MOIST ) == 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_MOIST' )
13   CALL setup_period_rsl( grid )
14   CALL reset_period
15   if ( P_qv .GT. 1 ) CALL add_msg_period_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(3) )
16   if ( P_qc .GT. 1 ) CALL add_msg_period_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(3) )
17   if ( P_qr .GT. 1 ) CALL add_msg_period_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(3) )
18   if ( P_qi .GT. 1 ) CALL add_msg_period_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(3) )
19   if ( P_qs .GT. 1 ) CALL add_msg_period_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(3) )
20   if ( P_qg .GT. 1 ) CALL add_msg_period_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(3) )
21   CALL period_def ( grid%domdesc , grid%comms ( PERIOD_BDY_EM_MOIST ) , 3 )
22 ENDIF
23 IF ( config_flags%periodic_x ) THEN
24   CALL wrf_debug ( 50 , 'exchanging period PERIOD_BDY_EM_MOIST on x' )
25   CALL rsl_exch_period ( grid%domdesc , grid%comms( PERIOD_BDY_EM_MOIST ) , x_period_flag )
26 END IF
27 IF ( config_flags%periodic_y ) THEN
28   CALL wrf_debug ( 50 , 'exchanging period PERIOD_BDY_EM_MOIST on y' )
29   CALL rsl_exch_period ( grid%domdesc , grid%comms( PERIOD_BDY_EM_MOIST ) , y_period_flag )
30 END IF
31 !ENDOFREGISTRYGENERATEDINCLUDE