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