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