em_nest_forcedown_unpack.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_forcedown_unpack.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit.  Your changes to this file will be lost.
6 !
7 CALL rsl_from_parent_info(i,j,nig,njg,cm,cn,pig,pjg,retval)
8 DO while ( retval .eq. 1 )
9 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
10 DO k = ckds,(ckde-1)
11 grid%em_u_2(pig,pjg,k) = xv(k)
12 ENDDO
13 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
14 DO k = ckds,(ckde-1)
15 grid%em_a_u_2(pig,pjg,k) = xv(k)
16 ENDDO
17 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
18 DO k = ckds,(ckde-1)
19 grid%em_g_u_2(pig,pjg,k) = xv(k)
20 ENDDO
21 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
22 DO k = ckds,(ckde-1)
23 grid%em_v_2(pig,pjg,k) = xv(k)
24 ENDDO
25 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
26 DO k = ckds,(ckde-1)
27 grid%em_a_v_2(pig,pjg,k) = xv(k)
28 ENDDO
29 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
30 DO k = ckds,(ckde-1)
31 grid%em_g_v_2(pig,pjg,k) = xv(k)
32 ENDDO
33 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
34 DO k = ckds,ckde
35 grid%em_w_2(pig,pjg,k) = xv(k)
36 ENDDO
37 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
38 DO k = ckds,ckde
39 grid%em_a_w_2(pig,pjg,k) = xv(k)
40 ENDDO
41 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
42 DO k = ckds,ckde
43 grid%em_g_w_2(pig,pjg,k) = xv(k)
44 ENDDO
45 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
46 DO k = ckds,ckde
47 grid%em_ph_2(pig,pjg,k) = xv(k)
48 ENDDO
49 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
50 DO k = ckds,ckde
51 grid%em_a_ph_2(pig,pjg,k) = xv(k)
52 ENDDO
53 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
54 DO k = ckds,ckde
55 grid%em_g_ph_2(pig,pjg,k) = xv(k)
56 ENDDO
57 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
58 DO k = ckds,(ckde-1)
59 grid%em_t_2(pig,pjg,k) = xv(k)
60 ENDDO
61 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
62 DO k = ckds,(ckde-1)
63 grid%em_a_t_2(pig,pjg,k) = xv(k)
64 ENDDO
65 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
66 DO k = ckds,(ckde-1)
67 grid%em_g_t_2(pig,pjg,k) = xv(k)
68 ENDDO
69 CALL rsl_from_parent_msg(RWORDSIZE,xv)
70 grid%em_mu_2(pig,pjg) = xv(1)
71 CALL rsl_from_parent_msg(RWORDSIZE,xv)
72 grid%em_a_mu_2(pig,pjg) = xv(1)
73 CALL rsl_from_parent_msg(RWORDSIZE,xv)
74 grid%em_g_mu_2(pig,pjg) = xv(1)
75 IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
76 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
77 DO k = ckds,(ckde-1)
78 grid%moist(pig,pjg,k,P_qv) = xv(k)
79 ENDDO
80 ENDIF
81 IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
82 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
83 DO k = ckds,(ckde-1)
84 grid%moist(pig,pjg,k,P_qc) = xv(k)
85 ENDDO
86 ENDIF
87 IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
88 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
89 DO k = ckds,(ckde-1)
90 grid%moist(pig,pjg,k,P_qr) = xv(k)
91 ENDDO
92 ENDIF
93 IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
94 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
95 DO k = ckds,(ckde-1)
96 grid%moist(pig,pjg,k,P_qi) = xv(k)
97 ENDDO
98 ENDIF
99 IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
100 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
101 DO k = ckds,(ckde-1)
102 grid%moist(pig,pjg,k,P_qs) = xv(k)
103 ENDDO
104 ENDIF
105 IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
106 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
107 DO k = ckds,(ckde-1)
108 grid%moist(pig,pjg,k,P_qg) = xv(k)
109 ENDDO
110 ENDIF
111 IF ( P_a_qv .GE. PARAM_FIRST_SCALAR ) THEN
112 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
113 DO k = ckds,(ckde-1)
114 grid%a_moist(pig,pjg,k,P_a_qv) = xv(k)
115 ENDDO
116 ENDIF
117 IF ( P_a_qc .GE. PARAM_FIRST_SCALAR ) THEN
118 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
119 DO k = ckds,(ckde-1)
120 grid%a_moist(pig,pjg,k,P_a_qc) = xv(k)
121 ENDDO
122 ENDIF
123 IF ( P_g_qv .GE. PARAM_FIRST_SCALAR ) THEN
124 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
125 DO k = ckds,(ckde-1)
126 grid%g_moist(pig,pjg,k,P_g_qv) = xv(k)
127 ENDDO
128 ENDIF
129 IF ( P_g_qc .GE. PARAM_FIRST_SCALAR ) THEN
130 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
131 DO k = ckds,(ckde-1)
132 grid%g_moist(pig,pjg,k,P_g_qc) = xv(k)
133 ENDDO
134 ENDIF
135 IF ( P_qni .GE. PARAM_FIRST_SCALAR ) THEN
136 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
137 DO k = ckds,(ckde-1)
138 grid%scalar(pig,pjg,k,P_qni) = xv(k)
139 ENDDO
140 ENDIF
141 IF ( P_qt .GE. PARAM_FIRST_SCALAR ) THEN
142 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
143 DO k = ckds,(ckde-1)
144 grid%scalar(pig,k,pjg,P_qt) = xv(k)
145 ENDDO
146 ENDIF
147 CALL rsl_from_parent_info(i,j,nig,njg,cm,cn,pig,pjg,retval)
148 ENDDO
149 !ENDOFREGISTRYGENERATEDINCLUDE