XPOSE_V1_y2z.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/XPOSE_V1_y2z.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 TRANSPOSE OPERATION
10 #endif
11 IF ( grid%comms( XPOSE_V1 ) == invalid_message_value ) THEN
12   CALL wrf_debug ( 50 , 'setting up xpose XPOSE_V1' )
13   CALL setup_xpose_rsl( grid )
14   CALL reset_msgs_xpose
15  CALL add_msg_xpose_real ( grid%xp%v1z , grid%xp%v1x , grid%xp%v1y , 3 )
16   CALL define_xpose ( grid%domdesc , grid%comms ( XPOSE_V1 ) )
17 ENDIF
18 CALL wrf_debug ( 50 , 'calling wrf_dm_xpose_y2z for XPOSE_V1')
19 CALL wrf_dm_xpose_y2z ( grid%domdesc , grid%comms, XPOSE_V1 )
20 !ENDOFREGISTRYGENERATEDINCLUDE