include file: em_nest_interpdown_unpack.inc 2
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_interpdown_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)-(ckds)+1)*RWORDSIZE,xv)
DO k = ckds,ckde
phb(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)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
mub(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
mu0(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_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
DO k = 1,config_flags%num_soil_layers
tslb(pig,k,pjg) = xv(k)
ENDDO
CALL rsl_from_parent_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
DO k = 1,config_flags%num_soil_layers
smois(pig,k,pjg) = xv(k)
ENDDO
CALL rsl_from_parent_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
DO k = 1,config_flags%num_soil_layers
sh2o(pig,k,pjg) = xv(k)
ENDDO
CALL rsl_from_parent_msg(RWORDSIZE,xv)
xice(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
smstav(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
sfcrunoff(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
udrunoff(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
acsnow(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
acsnom(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
snow(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
snowh(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
canwat(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
sst(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
msft(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
msfu(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
msfv(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
f(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
e(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
sina(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
cosa(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
ht(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
tsk(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
tmn(pig,pjg) = xv(1)
CALL rsl_from_parent_msg(RWORDSIZE,xv)
snowc(pig,pjg) = xv(1)
CALL rsl_from_parent_info(i,j,nig,njg,cm,cn,pig,pjg,retval)
ENDDO
!ENDOFREGISTRYGENERATEDINCLUDE