nodyn_nest_forcedown_interp.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_nest_forcedown_interp.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 DO itrace = PARAM_FIRST_SCALAR, num_moist
8 CALL bdy_interp ( &
9 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
10 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
11 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
12 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
13 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
14 nids, nide, njds, njde, nkds, nkde, & ! ND dims
15 nims, nime, njms, njme, nkms, nkme, & ! ND dims
16 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
17 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
18 .FALSE., .FALSE., & ! xstag, ystag
19 ngrid%i_parent_start, ngrid%j_parent_start, &
20 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
21 ,moist_b(1,1,1,1,itrace),ngrid%moist_b(1,1,1,1,itrace) &
22 ,moist_bt(1,1,1,1,itrace),ngrid%moist_bt(1,1,1,1,itrace) &
23 ,grid%dt,ngrid%dt &
24 )
25 ENDDO
26 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
27 CALL bdy_interp ( &
28 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
29 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
30 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
31 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
32 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
33 nids, nide, njds, njde, nkds, nkde, & ! ND dims
34 nims, nime, njms, njme, nkms, nkme, & ! ND dims
35 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
36 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
37 .FALSE., .FALSE., & ! xstag, ystag
38 ngrid%i_parent_start, ngrid%j_parent_start, &
39 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
40 ,a_moist_b(1,1,1,1,itrace),ngrid%a_moist_b(1,1,1,1,itrace) &
41 ,a_moist_bt(1,1,1,1,itrace),ngrid%a_moist_bt(1,1,1,1,itrace) &
42 ,grid%dt,ngrid%dt &
43 )
44 ENDDO
45 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
46 CALL bdy_interp ( &
47 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
48 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
49 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
50 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
51 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
52 nids, nide, njds, njde, nkds, nkde, & ! ND dims
53 nims, nime, njms, njme, nkms, nkme, & ! ND dims
54 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
55 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
56 .FALSE., .FALSE., & ! xstag, ystag
57 ngrid%i_parent_start, ngrid%j_parent_start, &
58 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
59 ,g_moist_b(1,1,1,1,itrace),ngrid%g_moist_b(1,1,1,1,itrace) &
60 ,g_moist_bt(1,1,1,1,itrace),ngrid%g_moist_bt(1,1,1,1,itrace) &
61 ,grid%dt,ngrid%dt &
62 )
63 ENDDO
64 DO itrace = PARAM_FIRST_SCALAR, num_scalar
65 CALL bdy_interp ( &
66 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
67 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
68 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
69 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
70 ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
71 nids, nide, njds, njde, nkds, nkde, & ! ND dims
72 nims, nime, njms, njme, nkms, nkme, & ! ND dims
73 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
74 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
75 .FALSE., .FALSE., & ! xstag, ystag
76 ngrid%i_parent_start, ngrid%j_parent_start, &
77 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
78 ,scalar_b(1,1,1,1,itrace),ngrid%scalar_b(1,1,1,1,itrace) &
79 ,scalar_bt(1,1,1,1,itrace),ngrid%scalar_bt(1,1,1,1,itrace) &
80 ,grid%dt,ngrid%dt &
81 )
82 ENDDO
83 !ENDOFREGISTRYGENERATEDINCLUDE