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