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_from_parent_info(i,j,nig,njg,cm,cn,pig,pjg,retval)
8 DO while ( retval .eq. 1 )
9 IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
10 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
11 DO k = ckds,(ckde-1)
12 grid%moist(pig,pjg,k,P_qv) = xv(k)
13 ENDDO
14 ENDIF
15 IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
16 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
17 DO k = ckds,(ckde-1)
18 grid%moist(pig,pjg,k,P_qc) = xv(k)
19 ENDDO
20 ENDIF
21 IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
22 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
23 DO k = ckds,(ckde-1)
24 grid%moist(pig,pjg,k,P_qr) = xv(k)
25 ENDDO
26 ENDIF
27 IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
28 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
29 DO k = ckds,(ckde-1)
30 grid%moist(pig,pjg,k,P_qi) = xv(k)
31 ENDDO
32 ENDIF
33 IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
34 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
35 DO k = ckds,(ckde-1)
36 grid%moist(pig,pjg,k,P_qs) = xv(k)
37 ENDDO
38 ENDIF
39 IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
40 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
41 DO k = ckds,(ckde-1)
42 grid%moist(pig,pjg,k,P_qg) = xv(k)
43 ENDDO
44 ENDIF
45 IF ( P_a_qv .GE. PARAM_FIRST_SCALAR ) THEN
46 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
47 DO k = ckds,(ckde-1)
48 grid%a_moist(pig,pjg,k,P_a_qv) = xv(k)
49 ENDDO
50 ENDIF
51 IF ( P_a_qc .GE. PARAM_FIRST_SCALAR ) THEN
52 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
53 DO k = ckds,(ckde-1)
54 grid%a_moist(pig,pjg,k,P_a_qc) = xv(k)
55 ENDDO
56 ENDIF
57 IF ( P_g_qv .GE. PARAM_FIRST_SCALAR ) THEN
58 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
59 DO k = ckds,(ckde-1)
60 grid%g_moist(pig,pjg,k,P_g_qv) = xv(k)
61 ENDDO
62 ENDIF
63 IF ( P_g_qc .GE. PARAM_FIRST_SCALAR ) THEN
64 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
65 DO k = ckds,(ckde-1)
66 grid%g_moist(pig,pjg,k,P_g_qc) = xv(k)
67 ENDDO
68 ENDIF
69 IF ( P_qni .GE. PARAM_FIRST_SCALAR ) THEN
70 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
71 DO k = ckds,(ckde-1)
72 grid%scalar(pig,pjg,k,P_qni) = xv(k)
73 ENDDO
74 ENDIF
75 IF ( P_qt .GE. PARAM_FIRST_SCALAR ) THEN
76 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
77 DO k = ckds,(ckde-1)
78 grid%scalar(pig,k,pjg,P_qt) = xv(k)
79 ENDDO
80 ENDIF
81 CALL rsl_from_parent_info(i,j,nig,njg,cm,cn,pig,pjg,retval)
82 ENDDO
83 !ENDOFREGISTRYGENERATEDINCLUDE