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