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