nodyn_nest_interpdown_pack.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_nest_interpdown_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 = 25 * nlev + 33
8 CALL rsl_lite_to_child_info( local_communicator, msize*RWORDSIZE &
9 ,cips,cipe,cjps,cjpe &
10 ,iids,iide,ijds,ijde &
11 ,nids,nide,njds,njde &
12 ,pgr , sw &
13 ,ntasks_x,ntasks_y &
14 ,icoord,jcoord &
15 ,idim_cd,jdim_cd &
16 ,pig,pjg,retval )
17 DO while ( retval .eq. 1 )
18 xv(1)=grid%lu_index(pig,pjg)
19 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
20 DO k = ckds,(ckde-1)
21 xv(k)= grid%a_u_2(pig,pjg,k)
22 ENDDO
23 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
24 DO k = ckds,(ckde-1)
25 xv(k)= grid%g_u_2(pig,pjg,k)
26 ENDDO
27 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
28 DO k = ckds,(ckde-1)
29 xv(k)= grid%a_v_2(pig,pjg,k)
30 ENDDO
31 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
32 DO k = ckds,(ckde-1)
33 xv(k)= grid%g_v_2(pig,pjg,k)
34 ENDDO
35 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
36 DO k = ckds,ckde
37 xv(k)= grid%a_w_2(pig,pjg,k)
38 ENDDO
39 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
40 DO k = ckds,ckde
41 xv(k)= grid%g_w_2(pig,pjg,k)
42 ENDDO
43 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
44 DO k = ckds,ckde
45 xv(k)= grid%a_ph_2(pig,pjg,k)
46 ENDDO
47 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
48 DO k = ckds,ckde
49 xv(k)= grid%g_ph_2(pig,pjg,k)
50 ENDDO
51 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
52 DO k = ckds,(ckde-1)
53 xv(k)= grid%a_t_2(pig,pjg,k)
54 ENDDO
55 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
56 DO k = ckds,(ckde-1)
57 xv(k)= grid%g_t_2(pig,pjg,k)
58 ENDDO
59 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
60 xv(1)=grid%a_mu_2(pig,pjg)
61 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
62 xv(1)=grid%g_mu_2(pig,pjg)
63 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
64 DO itrace = PARAM_FIRST_SCALAR, num_moist
65 DO k = ckds,(ckde-1)
66 xv(k)= moist(pig,pjg,k,itrace)
67 ENDDO
68 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
69 ENDDO
70 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
71 DO k = ckds,(ckde-1)
72 xv(k)= a_moist(pig,pjg,k,itrace)
73 ENDDO
74 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
75 ENDDO
76 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
77 DO k = ckds,(ckde-1)
78 xv(k)= g_moist(pig,pjg,k,itrace)
79 ENDDO
80 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
81 ENDDO
82 DO itrace = PARAM_FIRST_SCALAR, num_scalar
83 DO k = ckds,(ckde-1)
84 xv(k)= scalar(pig,pjg,k,itrace)
85 ENDDO
86 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
87 ENDDO
88 xv(1)=grid%landmask(pig,pjg)
89 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
90 DO k = 1,config_flags%num_soil_layers
91 xv(k)= grid%tslb(pig,pjg,k)
92 ENDDO
93 CALL rsl_lite_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
94 DO k = 1,config_flags%num_soil_layers
95 xv(k)= grid%smois(pig,pjg,k)
96 ENDDO
97 CALL rsl_lite_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
98 DO k = 1,config_flags%num_soil_layers
99 xv(k)= grid%sh2o(pig,pjg,k)
100 ENDDO
101 CALL rsl_lite_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
102 xv(1)=grid%xice(pig,pjg)
103 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
104 xv(1)=grid%sfcrunoff(pig,pjg)
105 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
106 xv(1)=grid%udrunoff(pig,pjg)
107 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
108 xv(1)=grid%ivgtyp(pig,pjg)
109 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
110 xv(1)=grid%isltyp(pig,pjg)
111 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
112 xv(1)=grid%vegfra(pig,pjg)
113 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
114 xv(1)=grid%acsnow(pig,pjg)
115 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
116 xv(1)=grid%acsnom(pig,pjg)
117 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
118 xv(1)=grid%snow(pig,pjg)
119 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
120 xv(1)=grid%snowh(pig,pjg)
121 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
122 xv(1)=grid%rhosn(pig,pjg)
123 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
124 xv(1)=grid%canwat(pig,pjg)
125 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
126 xv(1)=grid%sst(pig,pjg)
127 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
128 xv(1)=grid%msft(pig,pjg)
129 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
130 xv(1)=grid%msfu(pig,pjg)
131 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
132 xv(1)=grid%msfv(pig,pjg)
133 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
134 xv(1)=grid%f(pig,pjg)
135 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
136 xv(1)=grid%e(pig,pjg)
137 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
138 xv(1)=grid%sina(pig,pjg)
139 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
140 xv(1)=grid%cosa(pig,pjg)
141 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
142 xv(1)=grid%ht(pig,pjg)
143 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
144 xv(1)=grid%tsk(pig,pjg)
145 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
146 xv(1)=grid%rainc(pig,pjg)
147 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
148 xv(1)=grid%rainnc(pig,pjg)
149 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
150 xv(1)=grid%xlat(pig,pjg)
151 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
152 xv(1)=grid%xlong(pig,pjg)
153 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
154 xv(1)=grid%tmn(pig,pjg)
155 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
156 xv(1)=grid%xland(pig,pjg)
157 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
158 xv(1)=grid%snowc(pig,pjg)
159 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
160 CALL rsl_lite_to_child_info( local_communicator, msize*RWORDSIZE &
161 ,cips,cipe,cjps,cjpe &
162 ,iids,iide,ijds,ijde &
163 ,nids,nide,njds,njde &
164 ,pgr , sw &
165 ,ntasks_x,ntasks_y &
166 ,icoord,jcoord &
167 ,idim_cd,jdim_cd &
168 ,pig,pjg,retval )
169 ENDDO
170 !ENDOFREGISTRYGENERATEDINCLUDE