include file: em_nest_forcedown_pack.inc
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_forcedown_pack.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.
!
msize = 11 * nlev + 1
CALL rsl_to_child_info( grid%domdesc, intermediate_grid%domdesc ,  &
                        msize*RWORDSIZE,                             &
                        i,j,pig,pjg,cm,cn,nig,njg,retval )
DO while ( retval .eq. 1 )
DO k = ckds,(ckde-1)
xv(k)= u_2(pig,k,pjg)
ENDDO
CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
DO k = ckds,(ckde-1)
xv(k)= v_2(pig,k,pjg)
ENDDO
CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
DO k = ckds,ckde
xv(k)= w_2(pig,k,pjg)
ENDDO
CALL rsl_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
DO k = ckds,ckde
xv(k)= ph_2(pig,k,pjg)
ENDDO
CALL rsl_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
DO k = ckds,(ckde-1)
xv(k)= t_2(pig,k,pjg)
ENDDO
CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
xv(1)=mu_2(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= moist_2(pig,k,pjg,P_qv)
ENDDO
CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= moist_2(pig,k,pjg,P_qc)
ENDDO
CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= moist_2(pig,k,pjg,P_qr)
ENDDO
CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= moist_2(pig,k,pjg,P_qi)
ENDDO
CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= moist_2(pig,k,pjg,P_qs)
ENDDO
CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= moist_2(pig,k,pjg,P_qg)
ENDDO
CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
CALL rsl_to_child_info( grid%domdesc, intermediate_grid%domdesc ,  &
                        msize*RWORDSIZE,                             &
                        i,j,pig,pjg,cm,cn,nig,njg,retval )
ENDDO
!ENDOFREGISTRYGENERATEDINCLUDE