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