em_nest_forcedown_pack.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_forcedown_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 = 27 * nlev + 3
8 CALL rsl_lite_to_child_info( local_communicator, msize*RWORDSIZE &
9 ,cips,cipe,cjps,cjpe &
10 ,iids,iide,ijds,ijde &
11 ,nids,nide,njds,njde &
12 ,pgr , sw &
13 ,ntasks_x,ntasks_y &
14 ,icoord,jcoord &
15 ,idim_cd,jdim_cd &
16 ,pig,pjg,retval )
17 DO while ( retval .eq. 1 )
18 DO k = ckds,(ckde-1)
19 xv(k)= grid%em_u_2(pig,pjg,k)
20 ENDDO
21 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
22 DO k = ckds,(ckde-1)
23 xv(k)= grid%a_u_2(pig,pjg,k)
24 ENDDO
25 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
26 DO k = ckds,(ckde-1)
27 xv(k)= grid%g_u_2(pig,pjg,k)
28 ENDDO
29 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
30 DO k = ckds,(ckde-1)
31 xv(k)= grid%em_v_2(pig,pjg,k)
32 ENDDO
33 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
34 DO k = ckds,(ckde-1)
35 xv(k)= grid%a_v_2(pig,pjg,k)
36 ENDDO
37 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
38 DO k = ckds,(ckde-1)
39 xv(k)= grid%g_v_2(pig,pjg,k)
40 ENDDO
41 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
42 DO k = ckds,ckde
43 xv(k)= grid%em_w_2(pig,pjg,k)
44 ENDDO
45 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
46 DO k = ckds,ckde
47 xv(k)= grid%a_w_2(pig,pjg,k)
48 ENDDO
49 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
50 DO k = ckds,ckde
51 xv(k)= grid%g_w_2(pig,pjg,k)
52 ENDDO
53 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
54 DO k = ckds,ckde
55 xv(k)= grid%em_ph_2(pig,pjg,k)
56 ENDDO
57 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
58 DO k = ckds,ckde
59 xv(k)= grid%a_ph_2(pig,pjg,k)
60 ENDDO
61 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
62 DO k = ckds,ckde
63 xv(k)= grid%g_ph_2(pig,pjg,k)
64 ENDDO
65 CALL rsl_lite_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
66 DO k = ckds,(ckde-1)
67 xv(k)= grid%em_t_2(pig,pjg,k)
68 ENDDO
69 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
70 DO k = ckds,(ckde-1)
71 xv(k)= grid%a_t_2(pig,pjg,k)
72 ENDDO
73 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
74 DO k = ckds,(ckde-1)
75 xv(k)= grid%g_t_2(pig,pjg,k)
76 ENDDO
77 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
78 xv(1)=grid%em_mu_2(pig,pjg)
79 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
80 xv(1)=grid%a_mu_2(pig,pjg)
81 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
82 xv(1)=grid%g_mu_2(pig,pjg)
83 CALL rsl_lite_to_child_msg(RWORDSIZE,xv)
84 DO itrace = PARAM_FIRST_SCALAR, num_moist
85 DO k = ckds,(ckde-1)
86 xv(k)= moist(pig,pjg,k,itrace)
87 ENDDO
88 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
89 ENDDO
90 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
91 DO k = ckds,(ckde-1)
92 xv(k)= a_moist(pig,pjg,k,itrace)
93 ENDDO
94 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
95 ENDDO
96 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
97 DO k = ckds,(ckde-1)
98 xv(k)= g_moist(pig,pjg,k,itrace)
99 ENDDO
100 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
101 ENDDO
102 DO itrace = PARAM_FIRST_SCALAR, num_scalar
103 DO k = ckds,(ckde-1)
104 xv(k)= scalar(pig,pjg,k,itrace)
105 ENDDO
106 CALL rsl_lite_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
107 ENDDO
108 CALL rsl_lite_to_child_info( local_communicator, msize*RWORDSIZE &
109 ,cips,cipe,cjps,cjpe &
110 ,iids,iide,ijds,ijde &
111 ,nids,nide,njds,njde &
112 ,pgr , sw &
113 ,ntasks_x,ntasks_y &
114 ,icoord,jcoord &
115 ,idim_cd,jdim_cd &
116 ,pig,pjg,retval )
117 ENDDO
118 !ENDOFREGISTRYGENERATEDINCLUDE