include file: em_nest_feedbackup_unpack.inc 1
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_feedbackup_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_child_info(i,j,pig,pjg,cm,cn,nig,njg,retval)
DO while ( retval .eq. 1 )
CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .TRUE., .FALSE. ) ) THEN
DO k = ckds,(ckde-1)
u_2(pig,k,pjg) = xv(k)
ENDDO
ENDIF
CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .TRUE. ) ) THEN
DO k = ckds,(ckde-1)
v_2(pig,k,pjg) = xv(k)
ENDDO
ENDIF
CALL rsl_from_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv) ;
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
DO k = ckds,ckde
w_2(pig,k,pjg) = xv(k)
ENDDO
ENDIF
CALL rsl_from_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv) ;
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
DO k = ckds,ckde
ph_2(pig,k,pjg) = xv(k)
ENDDO
ENDIF
CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
DO k = ckds,(ckde-1)
t_2(pig,k,pjg) = xv(k)
ENDDO
ENDIF
CALL rsl_from_child_msg(RWORDSIZE,xv)
mu_2(pig,pjg) = xv(1)
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
mu_2(pig,pjg) = xv(1) ;
ENDIF
IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
DO k = ckds,(ckde-1)
moist_2(pig,k,pjg,P_qv) = xv(k)
ENDDO
ENDIF
ENDIF
IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
DO k = ckds,(ckde-1)
moist_2(pig,k,pjg,P_qc) = xv(k)
ENDDO
ENDIF
ENDIF
IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
DO k = ckds,(ckde-1)
moist_2(pig,k,pjg,P_qr) = xv(k)
ENDDO
ENDIF
ENDIF
IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
DO k = ckds,(ckde-1)
moist_2(pig,k,pjg,P_qi) = xv(k)
ENDDO
ENDIF
ENDIF
IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
DO k = ckds,(ckde-1)
moist_2(pig,k,pjg,P_qs) = xv(k)
ENDDO
ENDIF
ENDIF
IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
DO k = ckds,(ckde-1)
moist_2(pig,k,pjg,P_qg) = xv(k)
ENDDO
ENDIF
ENDIF
CALL rsl_from_child_info(i,j,pig,pjg,cm,cn,nig,njg,retval)
ENDDO
!ENDOFREGISTRYGENERATEDINCLUDE