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