include file: em_nest_interpdown_pack.inc 1
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_interpdown_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 = 15 * nlev + 24
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
xv(k)= phb(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)
xv(1)=mub(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=mu0(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
DO k = 1,config_flags%num_soil_layers
xv(k)= tslb(pig,k,pjg)
ENDDO
CALL rsl_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
DO k = 1,config_flags%num_soil_layers
xv(k)= smois(pig,k,pjg)
ENDDO
CALL rsl_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
DO k = 1,config_flags%num_soil_layers
xv(k)= sh2o(pig,k,pjg)
ENDDO
CALL rsl_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
xv(1)=xice(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=smstav(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=sfcrunoff(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=udrunoff(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=acsnow(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=acsnom(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=snow(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=snowh(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=canwat(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=sst(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=msft(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=msfu(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=msfv(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=f(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=e(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=sina(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=cosa(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=ht(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=tsk(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=tmn(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
xv(1)=snowc(pig,pjg)
CALL rsl_to_child_msg(RWORDSIZE,xv)
CALL rsl_to_child_info( grid%domdesc, intermediate_grid%domdesc ,  &
                        msize*RWORDSIZE,                             &
                        i,j,pig,pjg,cm,cn,nig,njg,retval )
ENDDO
!ENDOFREGISTRYGENERATEDINCLUDE