nodyn_nest_forcedown_unpack.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_nest_forcedown_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((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
10 DO k = ckds,(ckde-1)
11 grid%a_u_2(pig,pjg,k) = xv(k)
12 ENDDO
13 CALL rsl_lite_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
14 DO k = ckds,(ckde-1)
15 grid%g_u_2(pig,pjg,k) = xv(k)
16 ENDDO
17 CALL rsl_lite_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
18 DO k = ckds,(ckde-1)
19 grid%a_v_2(pig,pjg,k) = xv(k)
20 ENDDO
21 CALL rsl_lite_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
22 DO k = ckds,(ckde-1)
23 grid%g_v_2(pig,pjg,k) = xv(k)
24 ENDDO
25 CALL rsl_lite_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
26 DO k = ckds,ckde
27 grid%a_w_2(pig,pjg,k) = xv(k)
28 ENDDO
29 CALL rsl_lite_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
30 DO k = ckds,ckde
31 grid%g_w_2(pig,pjg,k) = xv(k)
32 ENDDO
33 CALL rsl_lite_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
34 DO k = ckds,ckde
35 grid%a_ph_2(pig,pjg,k) = xv(k)
36 ENDDO
37 CALL rsl_lite_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
38 DO k = ckds,ckde
39 grid%g_ph_2(pig,pjg,k) = xv(k)
40 ENDDO
41 CALL rsl_lite_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
42 DO k = ckds,(ckde-1)
43 grid%a_t_2(pig,pjg,k) = xv(k)
44 ENDDO
45 CALL rsl_lite_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
46 DO k = ckds,(ckde-1)
47 grid%g_t_2(pig,pjg,k) = xv(k)
48 ENDDO
49 CALL rsl_lite_from_parent_msg(RWORDSIZE,xv)
50 grid%a_mu_2(pig,pjg) = xv(1)
51 CALL rsl_lite_from_parent_msg(RWORDSIZE,xv)
52 grid%g_mu_2(pig,pjg) = xv(1)
53 DO itrace =  PARAM_FIRST_SCALAR, num_moist
54 CALL rsl_lite_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
55 DO k = ckds,(ckde-1)
56 moist(pig,pjg,k,itrace) = xv(k)
57 ENDDO
58 ENDDO
59 DO itrace =  PARAM_FIRST_SCALAR, num_a_moist
60 CALL rsl_lite_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
61 DO k = ckds,(ckde-1)
62 a_moist(pig,pjg,k,itrace) = xv(k)
63 ENDDO
64 ENDDO
65 DO itrace =  PARAM_FIRST_SCALAR, num_g_moist
66 CALL rsl_lite_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
67 DO k = ckds,(ckde-1)
68 g_moist(pig,pjg,k,itrace) = xv(k)
69 ENDDO
70 ENDDO
71 DO itrace =  PARAM_FIRST_SCALAR, num_scalar
72 CALL rsl_lite_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
73 DO k = ckds,(ckde-1)
74 scalar(pig,pjg,k,itrace) = xv(k)
75 ENDDO
76 ENDDO
77 CALL rsl_lite_from_parent_info(pig,pjg,retval)
78 ENDDO
79 !ENDOFREGISTRYGENERATEDINCLUDE