include file: em_nest_feedbackup_pack.inc 1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_feedbackup_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 = 11 * nlev + 1 CALL rsl_to_parent_info( grid%domdesc, intermediate_grid%domdesc , & msize*RWORDSIZE, & i,j,nig,njg,cm,cn,pig,pjg,retval ) DO while ( retval .eq. 1 ) DO k = ckds,(ckde-1) xv(k)= intermediate_grid%em_u_2(pig,k,pjg) ENDDO CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) DO k = ckds,(ckde-1) xv(k)= intermediate_grid%em_v_2(pig,k,pjg) ENDDO CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) DO k = ckds,ckde xv(k)= intermediate_grid%em_w_2(pig,k,pjg) ENDDO CALL rsl_to_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv) DO k = ckds,ckde xv(k)= intermediate_grid%em_ph_2(pig,k,pjg) ENDDO CALL rsl_to_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv) DO k = ckds,(ckde-1) xv(k)= intermediate_grid%em_t_2(pig,k,pjg) ENDDO CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) xv(1)= intermediate_grid%em_mu_2(pig,pjg) CALL rsl_to_parent_msg(RWORDSIZE,xv) IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN DO k = ckds,(ckde-1) xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qv) ENDDO CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ENDIF IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN DO k = ckds,(ckde-1) xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qc) ENDDO CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ENDIF IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN DO k = ckds,(ckde-1) xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qr) ENDDO CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ENDIF IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN DO k = ckds,(ckde-1) xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qi) ENDDO CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ENDIF IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN DO k = ckds,(ckde-1) xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qs) ENDDO CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ENDIF IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN DO k = ckds,(ckde-1) xv(k)= intermediate_grid%moist_2(pig,k,pjg,P_qg) ENDDO CALL rsl_to_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ENDIF CALL rsl_to_parent_info( grid%domdesc, intermediate_grid%domdesc , & msize*RWORDSIZE, & i,j,nig,njg,cm,cn,pig,pjg,retval ) ENDDO !ENDOFREGISTRYGENERATEDINCLUDE