64 & LBi, UBi, LBj, UBj, LBij, UBij, &
65 & IminS, ImaxS, JminS, JmaxS, &
82 integer,
intent(in) :: ng, tile
83 integer,
intent(in) :: LBi, UBi, LBj, UBj, LBij, UBij
84 integer,
intent(in) :: IminS, ImaxS, JminS, JmaxS
85 integer,
intent(in) :: Lout
89 real(r8),
intent(inout) :: tl_t(LBi:,LBj:,:,:,:)
90 real(r8),
intent(inout) :: tl_u(LBi:,LBj:,:,:)
91 real(r8),
intent(inout) :: tl_v(LBi:,LBj:,:,:)
92 real(r8),
intent(inout) :: f_t(LBi:,LBj:,:,:)
93 real(r8),
intent(inout) :: f_u(LBi:,LBj:,:)
94 real(r8),
intent(inout) :: f_v(LBi:,LBj:,:)
96 real(r8),
intent(inout) :: tl_ubar(LBi:,LBj:,:)
97 real(r8),
intent(inout) :: tl_vbar(LBi:,LBj:,:)
98 real(r8),
intent(inout) :: f_ubar(LBi:,LBj:)
99 real(r8),
intent(inout) :: f_vbar(LBi:,LBj:)
101 real(r8),
intent(inout) :: tl_zeta(LBi:,LBj:,:)
102 real(r8),
intent(inout) :: f_zeta(LBi:,LBj:)
105 real(r8),
intent(inout) :: tl_t(LBi:UBi,LBj:UBj,N(ng),3,NT(ng))
106 real(r8),
intent(inout) :: tl_u(LBi:UBi,LBj:UBj,N(ng),2)
107 real(r8),
intent(inout) :: tl_v(LBi:UBi,LBj:UBj,N(ng),2)
108 real(r8),
intent(inout) :: f_t(LBi:UBi,LBj:UBj,N(ng),NT(ng))
109 real(r8),
intent(inout) :: f_u(LBi:UBi,LBj:UBj,N(ng))
110 real(r8),
intent(inout) :: f_v(LBi:UBi,LBj:UBj,N(ng))
112 real(r8),
intent(inout) :: tl_ubar(LBi:UBi,LBj:UBj,:)
113 real(r8),
intent(inout) :: tl_vbar(LBi:UBi,LBj:UBj,:)
114 real(r8),
intent(inout) :: f_ubar(LBi:UBi,LBj:UBj)
115 real(r8),
intent(inout) :: f_vbar(LBi:UBi,LBj:UBj)
117 real(r8),
intent(inout) :: tl_zeta(LBi:UBi,LBj:UBj,:)
118 real(r8),
intent(inout) :: f_zeta(LBi:UBi,LBj:UBj)
123 integer :: i, ib, ir, j, k
128# include "set_bounds.h"
134 tl_zeta(i,j,lout)=f_zeta(i,j)+tl_zeta(i,j,lout)
144 tl_ubar(i,j,lout)=f_ubar(i,j)+tl_ubar(i,j,lout)
152 tl_vbar(i,j,lout)=f_vbar(i,j)+tl_vbar(i,j,lout)
164 tl_u(i,j,k,lout)=f_u(i,j,k)+tl_u(i,j,k,lout)
175 tl_v(i,j,k,lout)=f_v(i,j,k)+tl_v(i,j,k,lout)
187 tl_t(i,j,k,lout,itrc)=f_t(i,j,k,itrc)+tl_t(i,j,k,lout,itrc)
subroutine sum_imp_tile(ng, tile, lbi, ubi, lbj, ubj, lbij, ubij, imins, imaxs, jmins, jmaxs, lout, tl_t, tl_u, tl_v, f_t, f_u, f_v, tl_zeta, f_zeta)