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