nodyn_nest_interpdown_unpack.inc

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