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