include file: PERIOD_BDY_EM_INIT.inc 1,4
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/PERIOD_BDY_EM_INIT.inc'
!
! WARNING This file is generated automatically by use_registry
! using the data base in the file named Registry.
! Do not edit. Your changes to this file will be lost.
!
IF ( grid%comms( PERIOD_BDY_EM_INIT ) == invalid_message_value .AND. (config_flags%periodic_x .OR. config_flags%periodic_y )) THEN
CALL wrf_debug
( 50 , 'setting up period PERIOD_BDY_EM_INIT' )
CALL setup_period_rsl
( grid )
CALL rsl_create_message ( msg )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
u_1 , 3 , decompx , glenx , llenx )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
u_2 , 3 , decompx , glenx , llenx )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
v_1 , 3 , decompy , gleny , lleny )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
v_2 , 3 , decompy , gleny , lleny )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
w_1 , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
w_2 , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
t_1 , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
t_2 , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
ph_1 , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
ph_2 , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
t_init , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
phb , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
ph0 , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
php , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
pb , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
al , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
alt , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
alb , 3 , decomp , glen , llen )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
mu_1 , 2 , decomp2d , glen2d , llen2d )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
mu_2 , 2 , decomp2d , glen2d , llen2d )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
mub , 2 , decomp2d , glen2d , llen2d )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
mu0 , 2 , decomp2d , glen2d , llen2d )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
ht , 2 , decomp2d , glen2d , llen2d )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
msft , 2 , decomp2d , glen2d , llen2d )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
msfu , 2 , decompx2d , glenx2d , llenx2d )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
msfv , 2 , decompy2d , gleny2d , lleny2d )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
sina , 2 , decomp2d , glen2d , llen2d )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
cosa , 2 , decomp2d , glen2d , llen2d )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
e , 2 , decomp2d , glen2d , llen2d )
CALL rsl_build_message ( msg, RSL_REAL_F90 , &
f , 2 , decomp2d , glen2d , llen2d )
CALL rsl_create_period ( grid%comms ( PERIOD_BDY_EM_INIT ) )
CALL rsl_describe_period ( grid%domdesc , grid%comms ( PERIOD_BDY_EM_INIT ) , 3 , msg )
ENDIF
IF ( config_flags%periodic_x ) THEN
CALL wrf_debug
( 50 , 'exchanging period PERIOD_BDY_EM_INIT on x' )
CALL rsl_exch_period ( grid%domdesc , grid%comms( PERIOD_BDY_EM_INIT ) , x_period_flag )
END IF
IF ( config_flags%periodic_y ) THEN
CALL wrf_debug
( 50 , 'exchanging period PERIOD_BDY_EM_INIT on y' )
CALL rsl_exch_period ( grid%domdesc , grid%comms( PERIOD_BDY_EM_INIT ) , y_period_flag )
END IF
!ENDOFREGISTRYGENERATEDINCLUDE