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