<HTML> <BODY BGCOLOR=#eeddee LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<HTML> <BODY BGCOLOR=#eeddee LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE><a name='1'>
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<a name='2'>
!! W A R N I N G<a name='3'>
!!<a name='4'>
!! This is a temporary version of module_dm.F<a name='5'>
!! It has been compied from somewhere else<a name='6'>
!! (If not DM_PARALLEL then this is module_dm_stubs.F;<a name='7'>
!! otherwise, it is from one of the external package<a name='8'>
!! directories.)<a name='9'>
!!<a name='10'>
!! B E A D V I S E D<a name='11'>
!!<a name='12'>
!! Changes to this file are liable to be LOST.<a name='13'>
!!<a name='14'>
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<a name='15'>
!WRF:PACKAGE:NODM<a name='16'>
!<a name='17'>
<A NAME='MODULE_DM'><A href='../../html_code/frame/module_dm.F.html#MODULE_DM' TARGET='top_target'><IMG SRC="../../gif/bar_purple.gif" border=0></A><a name='18'>
<font color=#993300>MODULE </font><font color=#cc0000>module_dm</font> <A href='../../call_to/MODULE_DM.html' TARGET='index'>36</A><a name='19'>
<a name='20'>
CONTAINS<a name='21'>
<A NAME='INIT_MODULE_DM'><A href='../../html_code/frame/module_dm.F.html#INIT_MODULE_DM' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='22'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>init_module_dm</font> <A href='../../call_to/INIT_MODULE_DM.html' TARGET='index'>1</A><a name='23'>
END SUBROUTINE init_module_dm<a name='24'>
<a name='25'>
<A NAME='WRF_DM_MAX_REAL'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_MAX_REAL' TARGET='top_target'><IMG SRC="../../gif/bar_green.gif" border=0></A><a name='26'>
REAL <font color=#993300>FUNCTION </font><font color=#cc0000>wrf_dm_max_real</font> ( inval )<a name='27'>
IMPLICIT NONE<a name='28'>
REAL inval<a name='29'>
wrf_dm_max_real = inval<a name='30'>
END FUNCTION wrf_dm_max_real<a name='31'>
<a name='32'>
<A NAME='WRF_DM_MIN_REAL'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_MIN_REAL' TARGET='top_target'><IMG SRC="../../gif/bar_green.gif" border=0></A><a name='33'>
REAL <font color=#993300>FUNCTION </font><font color=#cc0000>wrf_dm_min_real</font> ( inval )<a name='34'>
IMPLICIT NONE<a name='35'>
REAL inval<a name='36'>
wrf_dm_min_real = inval<a name='37'>
END FUNCTION wrf_dm_min_real<a name='38'>
<a name='39'>
<A NAME='WRF_DM_SUM_REAL'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_SUM_REAL' TARGET='top_target'><IMG SRC="../../gif/bar_green.gif" border=0></A><a name='40'>
REAL <font color=#993300>FUNCTION </font><font color=#cc0000>wrf_dm_sum_real</font> ( inval )<a name='41'>
IMPLICIT NONE<a name='42'>
REAL inval<a name='43'>
wrf_dm_sum_real = inval<a name='44'>
END FUNCTION wrf_dm_sum_real<a name='45'>
<a name='46'>
<A NAME='WRF_DM_SUM_INTEGER'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_SUM_INTEGER' TARGET='top_target'><IMG SRC="../../gif/bar_green.gif" border=0></A><a name='47'>
INTEGER <font color=#993300>FUNCTION </font><font color=#cc0000>wrf_dm_sum_integer</font> ( inval )<a name='48'>
IMPLICIT NONE<a name='49'>
INTEGER inval<a name='50'>
wrf_dm_sum_integer = inval<a name='51'>
END FUNCTION wrf_dm_sum_integer<a name='52'>
<a name='53'>
<A NAME='WRF_DM_MAXVAL'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_MAXVAL' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='54'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_maxval</font> ( val, idex, jdex ) <A href='../../call_to/WRF_DM_MAXVAL.html' TARGET='index'>1</A><a name='55'>
IMPLICIT NONE<a name='56'>
REAL val<a name='57'>
INTEGER idex, jdex<a name='58'>
RETURN<a name='59'>
END SUBROUTINE wrf_dm_maxval<a name='60'>
<a name='61'>
! stub<a name='62'>
<A NAME='WRF_DM_MOVE_NEST'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_MOVE_NEST' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='63'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_move_nest</font> ( parent, nest, dx, dy ) <A href='../../call_to/WRF_DM_MOVE_NEST.html' TARGET='index'>2</A>,<A href='../../call_from/WRF_DM_MOVE_NEST.html' TARGET='index'>2</A><a name='64'>
USE <A href='../../html_code/frame/module_domain.F.html#MODULE_DOMAIN'>module_domain</A><A href='../../html_code/frame/module_dm_stubs.F.html#WRF_DM_MOVE_NEST' TARGET='bottom_target'><IMG SRC="../../gif/cyan.gif" border=0></a><A NAME="MODULE_DOMAIN_25"><a name='65'>
TYPE (domain), INTENT(INOUT) :: parent, nest<a name='66'>
INTEGER, INTENT(IN) :: dx,dy<a name='67'>
RETURN<a name='68'>
END SUBROUTINE wrf_dm_move_nest<a name='69'>
<a name='70'>
END MODULE module_dm<a name='71'>
<a name='72'>
!=========================================================================<a name='73'>
<a name='74'>
! These are stub functions that do the right thing (usually nothing)<a name='75'>
! in case DM_PARALLEL is not compiled for.<a name='76'>
! This file, src/module_dm_stubs.F is copied to src/module_dm.F when<a name='77'>
! the code is built.<a name='78'>
! If, on the other hand, a DM package is specified, the module_dm.F <a name='79'>
! provided with that package (e.g. RSL) is copied from /external/RSL/module_dm.F<a name='80'>
! into src/module_dm.F.<a name='81'>
! It is important to recognize this, because changes directly to src/module_dm.F<a name='82'>
! will be lost!<a name='83'>
<a name='84'>
<A NAME='WRF_DM_ON_MONITOR'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_ON_MONITOR' TARGET='top_target'><IMG SRC="../../gif/bar_green.gif" border=0></A><a name='85'>
LOGICAL <font color=#993300>FUNCTION </font><font color=#cc0000>wrf_dm_on_monitor</font>()<a name='86'>
wrf_dm_on_monitor = .true.<a name='87'>
END FUNCTION wrf_dm_on_monitor<a name='88'>
<a name='89'>
<A NAME='WRF_GET_MYPROC'><A href='../../html_code/frame/module_dm.F.html#WRF_GET_MYPROC' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='90'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_get_myproc</font>( myproc ) <A href='../../call_to/WRF_GET_MYPROC.html' TARGET='index'>19</A><a name='91'>
IMPLICIT NONE<a name='92'>
INTEGER myproc<a name='93'>
myproc = 0<a name='94'>
RETURN<a name='95'>
END SUBROUTINE wrf_get_myproc<a name='96'>
<a name='97'>
<A NAME='WRF_GET_NPROC'><A href='../../html_code/frame/module_dm.F.html#WRF_GET_NPROC' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='98'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_get_nproc</font>( nprocs ) <A href='../../call_to/WRF_GET_NPROC.html' TARGET='index'>5</A><a name='99'>
IMPLICIT NONE<a name='100'>
INTEGER nprocs<a name='101'>
nprocs = 1<a name='102'>
RETURN<a name='103'>
END SUBROUTINE wrf_get_nproc<a name='104'>
<a name='105'>
<A NAME='WRF_GET_NPROCX'><A href='../../html_code/frame/module_dm.F.html#WRF_GET_NPROCX' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='106'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_get_nprocx</font>( nprocs ) <A href='../../call_to/WRF_GET_NPROCX.html' TARGET='index'>2</A><a name='107'>
IMPLICIT NONE<a name='108'>
INTEGER nprocs<a name='109'>
nprocs = 1<a name='110'>
RETURN<a name='111'>
END SUBROUTINE wrf_get_nprocx<a name='112'>
<a name='113'>
<A NAME='WRF_GET_NPROCY'><A href='../../html_code/frame/module_dm.F.html#WRF_GET_NPROCY' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='114'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_get_nprocy</font>( nprocs ) <A href='../../call_to/WRF_GET_NPROCY.html' TARGET='index'>1</A><a name='115'>
IMPLICIT NONE<a name='116'>
INTEGER nprocs<a name='117'>
nprocs = 1<a name='118'>
RETURN<a name='119'>
END SUBROUTINE wrf_get_nprocy<a name='120'>
<a name='121'>
<A NAME='WRF_DM_BCAST_STRING'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_BCAST_STRING' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='122'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_bcast_string</font> ( buf , size ) <A href='../../call_to/WRF_DM_BCAST_STRING.html' TARGET='index'>14</A><a name='123'>
IMPLICIT NONE<a name='124'>
INTEGER size<a name='125'>
INTEGER BUF(*)<a name='126'>
RETURN<a name='127'>
END SUBROUTINE wrf_dm_bcast_string<a name='128'>
<a name='129'>
<A NAME='WRF_DM_BCAST_BYTES'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_BCAST_BYTES' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='130'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_bcast_bytes</font> ( buf , size ) <A href='../../call_to/WRF_DM_BCAST_BYTES.html' TARGET='index'>150</A><a name='131'>
IMPLICIT NONE<a name='132'>
INTEGER size<a name='133'>
INTEGER BUF(*)<a name='134'>
RETURN<a name='135'>
END SUBROUTINE wrf_dm_bcast_bytes<a name='136'>
<a name='137'>
<A NAME='WRF_DM_BCAST_INTEGER'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_BCAST_INTEGER' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='138'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_bcast_integer</font>( BUF, N1 ) <A href='../../call_to/WRF_DM_BCAST_INTEGER.html' TARGET='index'>13</A><a name='139'>
IMPLICIT NONE<a name='140'>
INTEGER n1<a name='141'>
INTEGER buf(*)<a name='142'>
RETURN<a name='143'>
END SUBROUTINE wrf_dm_bcast_integer<a name='144'>
<a name='145'>
<A NAME='WRF_DM_BCAST_REAL'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_BCAST_REAL' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='146'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_bcast_real</font>( BUF, N1 ) <A href='../../call_to/WRF_DM_BCAST_REAL.html' TARGET='index'>58</A><a name='147'>
IMPLICIT NONE<a name='148'>
INTEGER n1<a name='149'>
REAL buf(*)<a name='150'>
RETURN<a name='151'>
END SUBROUTINE wrf_dm_bcast_real<a name='152'>
<a name='153'>
<A NAME='WRF_DM_BCAST_LOGICAL'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_BCAST_LOGICAL' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='154'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_bcast_logical</font>( BUF, N1 )<a name='155'>
IMPLICIT NONE<a name='156'>
INTEGER n1<a name='157'>
LOGICAL buf(*)<a name='158'>
RETURN<a name='159'>
END SUBROUTINE wrf_dm_bcast_logical<a name='160'>
<a name='161'>
<A NAME='WRF_DM_HALO'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_HALO' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='162'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_halo</font> ( domdesc , comms , stencil_id )<a name='163'>
IMPLICIT NONE<a name='164'>
INTEGER domdesc , comms(*) , stencil_id<a name='165'>
RETURN<a name='166'>
END SUBROUTINE wrf_dm_halo<a name='167'>
<a name='168'>
<A NAME='WRF_DM_BOUNDARY'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_BOUNDARY' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='169'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_boundary</font> ( domdesc , comms , period_id , &amp;<a name='170'>
periodic_x , periodic_y )<a name='171'>
IMPLICIT NONE<a name='172'>
INTEGER domdesc , comms(*) , period_id<a name='173'>
LOGICAL , INTENT(IN) :: periodic_x, periodic_y<a name='174'>
RETURN<a name='175'>
END SUBROUTINE wrf_dm_boundary<a name='176'>
<a name='177'>
<A NAME='WRF_DM_XPOSE_Z2X'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_XPOSE_Z2X' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='178'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_xpose_z2x</font> ( domdesc , comms , xpose_id )<a name='179'>
IMPLICIT NONE<a name='180'>
INTEGER domdesc , comms(*), xpose_id<a name='181'>
RETURN<a name='182'>
END SUBROUTINE wrf_dm_xpose_z2x<a name='183'>
<A NAME='WRF_DM_XPOSE_X2Y'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_XPOSE_X2Y' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='184'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_xpose_x2y</font> ( domdesc , comms , xpose_id )<a name='185'>
IMPLICIT NONE<a name='186'>
INTEGER domdesc , comms(*), xpose_id<a name='187'>
RETURN<a name='188'>
END SUBROUTINE wrf_dm_xpose_x2y<a name='189'>
<A NAME='WRF_DM_XPOSE_Y2Z'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_XPOSE_Y2Z' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='190'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_xpose_y2z</font> ( domdesc , comms , xpose_id )<a name='191'>
IMPLICIT NONE<a name='192'>
INTEGER domdesc , comms(*), xpose_id<a name='193'>
RETURN<a name='194'>
END SUBROUTINE wrf_dm_xpose_y2z<a name='195'>
<a name='196'>
<A NAME='WRF_DM_DEFINE_COMMS'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_DEFINE_COMMS' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='197'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_define_comms</font> ( grid ) <A href='../../call_to/WRF_DM_DEFINE_COMMS.html' TARGET='index'>1</A>,<A href='../../call_from/WRF_DM_DEFINE_COMMS.html' TARGET='index'>2</A><a name='198'>
USE <A href='../../html_code/frame/module_domain.F.html#MODULE_DOMAIN'>module_domain</A><A href='../../html_code/frame/module_dm_stubs.F.html#WRF_DM_DEFINE_COMMS' TARGET='bottom_target'><IMG SRC="../../gif/cyan.gif" border=0></a><A NAME="MODULE_DOMAIN_26"><a name='199'>
IMPLICIT NONE<a name='200'>
TYPE(domain) , INTENT (INOUT) :: grid<a name='201'>
RETURN<a name='202'>
END SUBROUTINE wrf_dm_define_comms<a name='203'>
<a name='204'>
<A NAME='WRF_GET_DM_COMMUNICATOR'><A href='../../html_code/frame/module_dm.F.html#WRF_GET_DM_COMMUNICATOR' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='205'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_get_dm_communicator</font> ( communicator ) <A href='../../call_to/WRF_GET_DM_COMMUNICATOR.html' TARGET='index'>6</A><a name='206'>
IMPLICIT NONE<a name='207'>
INTEGER , INTENT(OUT) :: communicator<a name='208'>
communicator = 0<a name='209'>
RETURN<a name='210'>
END SUBROUTINE wrf_get_dm_communicator<a name='211'>
<a name='212'>
<A NAME='WRF_GET_DM_IOCOMMUNICATOR'><A href='../../html_code/frame/module_dm.F.html#WRF_GET_DM_IOCOMMUNICATOR' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='213'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_get_dm_iocommunicator</font> ( iocommunicator )<a name='214'>
IMPLICIT NONE<a name='215'>
INTEGER , INTENT(OUT) :: iocommunicator<a name='216'>
iocommunicator = 0<a name='217'>
RETURN<a name='218'>
END SUBROUTINE wrf_get_dm_iocommunicator<a name='219'>
<a name='220'>
<A NAME='WRF_DM_SHUTDOWN'><A href='../../html_code/frame/module_dm.F.html#WRF_DM_SHUTDOWN' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='221'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_dm_shutdown</font> <A href='../../call_to/WRF_DM_SHUTDOWN.html' TARGET='index'>2</A><a name='222'>
RETURN<a name='223'>
END SUBROUTINE wrf_dm_shutdown<a name='224'>
<A NAME='WRF_ABORT'><A href='../../html_code/frame/module_dm.F.html#WRF_ABORT' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='225'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_abort</font> <A href='../../call_to/WRF_ABORT.html' TARGET='index'>1</A><a name='226'>
STOP 'wrf_abort'<a name='227'>
END SUBROUTINE wrf_abort<a name='228'>
<a name='229'>
<A NAME='WRF_PATCH_TO_GLOBAL_REAL'><A href='../../html_code/frame/module_dm.F.html#WRF_PATCH_TO_GLOBAL_REAL' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='230'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_patch_to_global_real</font> (buf,globbuf,domdesc,ndim,&amp; <A href='../../call_to/WRF_PATCH_TO_GLOBAL_REAL.html' TARGET='index'>10</A><a name='231'>
ids,ide,jds,jde,kds,kde,&amp;<a name='232'>
ims,ime,jms,jme,kms,kme,&amp;<a name='233'>
ips,ipe,jps,jpe,kps,kpe )<a name='234'>
IMPLICIT NONE<a name='235'>
INTEGER ids,ide,jds,jde,kds,kde,&amp;<a name='236'>
ims,ime,jms,jme,kms,kme,&amp;<a name='237'>
ips,ipe,jps,jpe,kps,kpe<a name='238'>
INTEGER fid,domdesc,ndim,glen(3),llen(3)<a name='239'>
REAL globbuf(*)<a name='240'>
REAL buf(*)<a name='241'>
RETURN<a name='242'>
END SUBROUTINE wrf_patch_to_global_real<a name='243'>
<a name='244'>
<A NAME='WRF_GLOBAL_TO_PATCH_REAL'><A href='../../html_code/frame/module_dm.F.html#WRF_GLOBAL_TO_PATCH_REAL' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='245'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_global_to_patch_real</font> (globbuf,buf,domdesc,ndim,&amp; <A href='../../call_to/WRF_GLOBAL_TO_PATCH_REAL.html' TARGET='index'>3</A><a name='246'>
ids,ide,jds,jde,kds,kde,&amp;<a name='247'>
ims,ime,jms,jme,kms,kme,&amp;<a name='248'>
ips,ipe,jps,jpe,kps,kpe )<a name='249'>
IMPLICIT NONE<a name='250'>
INTEGER ids,ide,jds,jde,kds,kde,&amp;<a name='251'>
ims,ime,jms,jme,kms,kme,&amp;<a name='252'>
ips,ipe,jps,jpe,kps,kpe<a name='253'>
INTEGER fid,domdesc,ndim,glen(3),llen(3)<a name='254'>
REAL globbuf(*)<a name='255'>
REAL buf(*)<a name='256'>
RETURN<a name='257'>
END SUBROUTINE wrf_global_to_patch_real<a name='258'>
<a name='259'>
<a name='260'>
<A NAME='WRF_PATCH_TO_GLOBAL_DOUBLE'><A href='../../html_code/frame/module_dm.F.html#WRF_PATCH_TO_GLOBAL_DOUBLE' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='261'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_patch_to_global_double</font> (buf,globbuf,domdesc,ndim,&amp; <A href='../../call_to/WRF_PATCH_TO_GLOBAL_DOUBLE.html' TARGET='index'>2</A><a name='262'>
ids,ide,jds,jde,kds,kde,&amp;<a name='263'>
ims,ime,jms,jme,kms,kme,&amp;<a name='264'>
ips,ipe,jps,jpe,kps,kpe )<a name='265'>
IMPLICIT NONE<a name='266'>
INTEGER ids,ide,jds,jde,kds,kde,&amp;<a name='267'>
ims,ime,jms,jme,kms,kme,&amp;<a name='268'>
ips,ipe,jps,jpe,kps,kpe<a name='269'>
INTEGER fid,domdesc,ndim,glen(3),llen(3)<a name='270'>
DOUBLE PRECISION globbuf(*)<a name='271'>
DOUBLE PRECISION buf(*)<a name='272'>
RETURN<a name='273'>
END SUBROUTINE wrf_patch_to_global_double<a name='274'>
<a name='275'>
<A NAME='WRF_GLOBAL_TO_PATCH_DOUBLE'><A href='../../html_code/frame/module_dm.F.html#WRF_GLOBAL_TO_PATCH_DOUBLE' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='276'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_global_to_patch_double</font> (globbuf,buf,domdesc,ndim,&amp; <A href='../../call_to/WRF_GLOBAL_TO_PATCH_DOUBLE.html' TARGET='index'>2</A><a name='277'>
ids,ide,jds,jde,kds,kde,&amp;<a name='278'>
ims,ime,jms,jme,kms,kme,&amp;<a name='279'>
ips,ipe,jps,jpe,kps,kpe )<a name='280'>
IMPLICIT NONE<a name='281'>
INTEGER ids,ide,jds,jde,kds,kde,&amp;<a name='282'>
ims,ime,jms,jme,kms,kme,&amp;<a name='283'>
ips,ipe,jps,jpe,kps,kpe<a name='284'>
INTEGER fid,domdesc,ndim,glen(3),llen(3)<a name='285'>
DOUBLE PRECISION globbuf(*)<a name='286'>
DOUBLE PRECISION buf(*)<a name='287'>
RETURN<a name='288'>
END SUBROUTINE wrf_global_to_patch_double<a name='289'>
<a name='290'>
<A NAME='WRF_PATCH_TO_GLOBAL_INTEGER'><A href='../../html_code/frame/module_dm.F.html#WRF_PATCH_TO_GLOBAL_INTEGER' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='291'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_patch_to_global_integer</font> (buf,globbuf,domdesc,ndim,&amp; <A href='../../call_to/WRF_PATCH_TO_GLOBAL_INTEGER.html' TARGET='index'>2</A><a name='292'>
ids,ide,jds,jde,kds,kde,&amp;<a name='293'>
ims,ime,jms,jme,kms,kme,&amp;<a name='294'>
ips,ipe,jps,jpe,kps,kpe )<a name='295'>
IMPLICIT NONE<a name='296'>
INTEGER ids,ide,jds,jde,kds,kde,&amp;<a name='297'>
ims,ime,jms,jme,kms,kme,&amp;<a name='298'>
ips,ipe,jps,jpe,kps,kpe<a name='299'>
INTEGER fid,domdesc,ndim,glen(3),llen(3)<a name='300'>
INTEGER globbuf(*)<a name='301'>
INTEGER buf(*)<a name='302'>
RETURN<a name='303'>
END SUBROUTINE wrf_patch_to_global_integer<a name='304'>
<a name='305'>
<A NAME='WRF_GLOBAL_TO_PATCH_INTEGER'><A href='../../html_code/frame/module_dm.F.html#WRF_GLOBAL_TO_PATCH_INTEGER' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='306'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_global_to_patch_integer</font> (globbuf,buf,domdesc,ndim,&amp; <A href='../../call_to/WRF_GLOBAL_TO_PATCH_INTEGER.html' TARGET='index'>2</A><a name='307'>
ids,ide,jds,jde,kds,kde,&amp;<a name='308'>
ims,ime,jms,jme,kms,kme,&amp;<a name='309'>
ips,ipe,jps,jpe,kps,kpe )<a name='310'>
IMPLICIT NONE<a name='311'>
INTEGER ids,ide,jds,jde,kds,kde,&amp;<a name='312'>
ims,ime,jms,jme,kms,kme,&amp;<a name='313'>
ips,ipe,jps,jpe,kps,kpe<a name='314'>
INTEGER fid,domdesc,ndim,glen(3),llen(3)<a name='315'>
INTEGER globbuf(*)<a name='316'>
INTEGER buf(*)<a name='317'>
RETURN<a name='318'>
END SUBROUTINE wrf_global_to_patch_integer<a name='319'>
<a name='320'>
<A NAME='WRF_PATCH_TO_GLOBAL_LOGICAL'><A href='../../html_code/frame/module_dm.F.html#WRF_PATCH_TO_GLOBAL_LOGICAL' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='321'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_patch_to_global_logical</font> (buf,globbuf,domdesc,ndim,&amp; <A href='../../call_to/WRF_PATCH_TO_GLOBAL_LOGICAL.html' TARGET='index'>2</A><a name='322'>
ids,ide,jds,jde,kds,kde,&amp;<a name='323'>
ims,ime,jms,jme,kms,kme,&amp;<a name='324'>
ips,ipe,jps,jpe,kps,kpe )<a name='325'>
IMPLICIT NONE<a name='326'>
INTEGER ids,ide,jds,jde,kds,kde,&amp;<a name='327'>
ims,ime,jms,jme,kms,kme,&amp;<a name='328'>
ips,ipe,jps,jpe,kps,kpe<a name='329'>
INTEGER fid,domdesc,ndim,glen(3),llen(3)<a name='330'>
LOGICAL globbuf(*)<a name='331'>
LOGICAL buf(*)<a name='332'>
RETURN<a name='333'>
END SUBROUTINE wrf_patch_to_global_logical<a name='334'>
<a name='335'>
<A NAME='WRF_GLOBAL_TO_PATCH_LOGICAL'><A href='../../html_code/frame/module_dm.F.html#WRF_GLOBAL_TO_PATCH_LOGICAL' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A><a name='336'>
<font color=#993300>SUBROUTINE </font><font color=#cc0000>wrf_global_to_patch_LOGICAL</font> (globbuf,buf,domdesc,ndim,&amp; <A href='../../call_to/WRF_GLOBAL_TO_PATCH_LOGICAL.html' TARGET='index'>2</A><a name='337'>
ids,ide,jds,jde,kds,kde,&amp;<a name='338'>
ims,ime,jms,jme,kms,kme,&amp;<a name='339'>
ips,ipe,jps,jpe,kps,kpe )<a name='340'>
IMPLICIT NONE<a name='341'>
INTEGER ids,ide,jds,jde,kds,kde,&amp;<a name='342'>
ims,ime,jms,jme,kms,kme,&amp;<a name='343'>
ips,ipe,jps,jpe,kps,kpe<a name='344'>
INTEGER fid,domdesc,ndim,glen(3),llen(3)<a name='345'>
LOGICAL globbuf(*)<a name='346'>
LOGICAL buf(*)<a name='347'>
RETURN<a name='348'>
END SUBROUTINE wrf_global_to_patch_LOGICAL<a name='349'>
<a name='350'>
<a name='351'>
</pre></body></html>