include file: em_nest_feedbackup_pack.inc 1
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_feedbackup_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_parent_info( grid%domdesc, intermediate_grid%domdesc ,  &
                        msize*RWORDSIZE,                             &
                        i,j,nig,njg,cm,cn,pig,pjg,retval )
DO while ( retval .eq. 1 )
DO k = ckds,(ckde-1)
xv(k)= intermediate_grid%em_u_2(pig,k,pjg)
ENDDO
CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
DO k = ckds,(ckde-1)
xv(k)= intermediate_grid%em_v_2(pig,k,pjg)
ENDDO
CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
DO k = ckds,ckde
xv(k)= intermediate_grid%em_w_2(pig,k,pjg)
ENDDO
CALL rsl_to_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
DO k = ckds,ckde
xv(k)= intermediate_grid%em_ph_2(pig,k,pjg)
ENDDO
CALL rsl_to_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
DO k = ckds,(ckde-1)
xv(k)= intermediate_grid%em_t_2(pig,k,pjg)
ENDDO
CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
xv(1)= intermediate_grid%em_mu_2(pig,pjg)
CALL rsl_to_parent_msg(RWORDSIZE,xv)
IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qv)
ENDDO
CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qc)
ENDDO
CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qr)
ENDDO
CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qi)
ENDDO
CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qs)
ENDDO
CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
DO k = ckds,(ckde-1)
xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qg)
ENDDO
CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
ENDIF
CALL rsl_to_parent_info( grid%domdesc, intermediate_grid%domdesc ,  &
                         msize*RWORDSIZE,                             &
                         i,j,nig,njg,cm,cn,pig,pjg,retval )
ENDDO
!ENDOFREGISTRYGENERATEDINCLUDE