nodyn_nest_forcedown_pack.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_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 = 20 * nlev + 0
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 IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
13 DO k = ckds,(ckde-1)
14 xv(k)= grid%moist(pig,pjg,k,P_qv)
15 ENDDO
16 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
17 ENDIF
18 IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
19 DO k = ckds,(ckde-1)
20 xv(k)= grid%moist(pig,pjg,k,P_qc)
21 ENDDO
22 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
23 ENDIF
24 IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
25 DO k = ckds,(ckde-1)
26 xv(k)= grid%moist(pig,pjg,k,P_qr)
27 ENDDO
28 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
29 ENDIF
30 IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
31 DO k = ckds,(ckde-1)
32 xv(k)= grid%moist(pig,pjg,k,P_qi)
33 ENDDO
34 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
35 ENDIF
36 IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
37 DO k = ckds,(ckde-1)
38 xv(k)= grid%moist(pig,pjg,k,P_qs)
39 ENDDO
40 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
41 ENDIF
42 IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
43 DO k = ckds,(ckde-1)
44 xv(k)= grid%moist(pig,pjg,k,P_qg)
45 ENDDO
46 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
47 ENDIF
48 IF ( P_a_qv .GE. PARAM_FIRST_SCALAR ) THEN
49 DO k = ckds,(ckde-1)
50 xv(k)= grid%a_moist(pig,pjg,k,P_a_qv)
51 ENDDO
52 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
53 ENDIF
54 IF ( P_a_qc .GE. PARAM_FIRST_SCALAR ) THEN
55 DO k = ckds,(ckde-1)
56 xv(k)= grid%a_moist(pig,pjg,k,P_a_qc)
57 ENDDO
58 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
59 ENDIF
60 IF ( P_a_qr .GE. PARAM_FIRST_SCALAR ) THEN
61 DO k = ckds,(ckde-1)
62 xv(k)= grid%a_moist(pig,pjg,k,P_a_qr)
63 ENDDO
64 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
65 ENDIF
66 IF ( P_a_qi .GE. PARAM_FIRST_SCALAR ) THEN
67 DO k = ckds,(ckde-1)
68 xv(k)= grid%a_moist(pig,pjg,k,P_a_qi)
69 ENDDO
70 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
71 ENDIF
72 IF ( P_a_qs .GE. PARAM_FIRST_SCALAR ) THEN
73 DO k = ckds,(ckde-1)
74 xv(k)= grid%a_moist(pig,pjg,k,P_a_qs)
75 ENDDO
76 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
77 ENDIF
78 IF ( P_a_qg .GE. PARAM_FIRST_SCALAR ) THEN
79 DO k = ckds,(ckde-1)
80 xv(k)= grid%a_moist(pig,pjg,k,P_a_qg)
81 ENDDO
82 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
83 ENDIF
84 IF ( P_g_qv .GE. PARAM_FIRST_SCALAR ) THEN
85 DO k = ckds,(ckde-1)
86 xv(k)= grid%g_moist(pig,pjg,k,P_g_qv)
87 ENDDO
88 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
89 ENDIF
90 IF ( P_g_qc .GE. PARAM_FIRST_SCALAR ) THEN
91 DO k = ckds,(ckde-1)
92 xv(k)= grid%g_moist(pig,pjg,k,P_g_qc)
93 ENDDO
94 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
95 ENDIF
96 IF ( P_g_qr .GE. PARAM_FIRST_SCALAR ) THEN
97 DO k = ckds,(ckde-1)
98 xv(k)= grid%g_moist(pig,pjg,k,P_g_qr)
99 ENDDO
100 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
101 ENDIF
102 IF ( P_g_qi .GE. PARAM_FIRST_SCALAR ) THEN
103 DO k = ckds,(ckde-1)
104 xv(k)= grid%g_moist(pig,pjg,k,P_g_qi)
105 ENDDO
106 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
107 ENDIF
108 IF ( P_g_qs .GE. PARAM_FIRST_SCALAR ) THEN
109 DO k = ckds,(ckde-1)
110 xv(k)= grid%g_moist(pig,pjg,k,P_g_qs)
111 ENDDO
112 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
113 ENDIF
114 IF ( P_g_qg .GE. PARAM_FIRST_SCALAR ) THEN
115 DO k = ckds,(ckde-1)
116 xv(k)= grid%g_moist(pig,pjg,k,P_g_qg)
117 ENDDO
118 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
119 ENDIF
120 IF ( P_qni .GE. PARAM_FIRST_SCALAR ) THEN
121 DO k = ckds,(ckde-1)
122 xv(k)= grid%scalar(pig,pjg,k,P_qni)
123 ENDDO
124 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
125 ENDIF
126 IF ( P_qt .GE. PARAM_FIRST_SCALAR ) THEN
127 DO k = ckds,(ckde-1)
128 xv(k)= grid%scalar(pig,k,pjg,P_qt)
129 ENDDO
130 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
131 ENDIF
132 CALL rsl_to_child_info( grid%domdesc, intermediate_grid%domdesc , &
133 msize*RWORDSIZE, &
134 i,j,pig,pjg,cm,cn,nig,njg,retval )
135 ENDDO
136 !ENDOFREGISTRYGENERATEDINCLUDE