121 & LBi, UBi, LBj, UBj, &
122 & IminS, ImaxS, JminS, JmaxS, &
125 & pmask, rmask, umask, vmask, &
127 & om_p, om_r, om_u, om_v, &
128 & on_p, on_r, on_u, on_v, &
133 & visc3d_r, tl_visc3d_r, &
135 & visc2_p, visc2_r, &
138!! & DiaRUfrc, DiaRVfrc, &
139!! & DiaU3wrk, DiaV3wrk, &
143 & tl_rufrc, tl_rvfrc)
151 integer,
intent(in) :: ng, tile
152 integer,
intent(in) :: LBi, UBi, LBj, UBj
153 integer,
intent(in) :: IminS, ImaxS, JminS, JmaxS
154 integer,
intent(in) :: nrhs, nnew
158 real(r8),
intent(in) :: pmask(LBi:,LBj:)
159 real(r8),
intent(in) :: rmask(LBi:,LBj:)
160 real(r8),
intent(in) :: umask(LBi:,LBj:)
161 real(r8),
intent(in) :: vmask(LBi:,LBj:)
163 real(r8),
intent(in) :: om_p(LBi:,LBj:)
164 real(r8),
intent(in) :: om_r(LBi:,LBj:)
165 real(r8),
intent(in) :: om_u(LBi:,LBj:)
166 real(r8),
intent(in) :: om_v(LBi:,LBj:)
167 real(r8),
intent(in) :: on_p(LBi:,LBj:)
168 real(r8),
intent(in) :: on_r(LBi:,LBj:)
169 real(r8),
intent(in) :: on_u(LBi:,LBj:)
170 real(r8),
intent(in) :: on_v(LBi:,LBj:)
171 real(r8),
intent(in) :: pm(LBi:,LBj:)
172 real(r8),
intent(in) :: pn(LBi:,LBj:)
173 real(r8),
intent(in) :: Hz(LBi:,LBj:,:)
174 real(r8),
intent(in) :: tl_Hz(LBi:,LBj:,:)
175 real(r8),
intent(in) :: z_r(LBi:,LBj:,:)
176 real(r8),
intent(in) :: tl_z_r(LBi:,LBj:,:)
178 real(r8),
intent(in) :: visc3d_r(LBi:,LBj:,:)
180 real(r8),
intent(in) :: visc2_p(LBi:,LBj:)
181 real(r8),
intent(in) :: visc2_r(LBi:,LBj:)
183 real(r8),
intent(in) :: u(LBi:,LBj:,:,:)
184 real(r8),
intent(in) :: v(LBi:,LBj:,:,:)
186# ifdef DIAGNOSTICS_UV
192 real(r8),
intent(inout) :: tl_rufrc(LBi:,LBj:)
193 real(r8),
intent(inout) :: tl_rvfrc(LBi:,LBj:)
194 real(r8),
intent(inout) :: tl_u(LBi:,LBj:,:,:)
195 real(r8),
intent(inout) :: tl_v(LBi:,LBj:,:,:)
197 real(r8),
intent(inout) :: tl_visc3d_r(LBi:,LBj:,:)
202 real(r8),
intent(in) :: pmask(LBi:UBi,LBj:UBj)
203 real(r8),
intent(in) :: rmask(LBi:UBi,LBj:UBj)
204 real(r8),
intent(in) :: umask(LBi:UBi,LBj:UBj)
205 real(r8),
intent(in) :: vmask(LBi:UBi,LBj:UBj)
207 real(r8),
intent(in) :: om_p(LBi:UBi,LBj:UBj)
208 real(r8),
intent(in) :: om_r(LBi:UBi,LBj:UBj)
209 real(r8),
intent(in) :: om_u(LBi:UBi,LBj:UBj)
210 real(r8),
intent(in) :: om_v(LBi:UBi,LBj:UBj)
211 real(r8),
intent(in) :: on_p(LBi:UBi,LBj:UBj)
212 real(r8),
intent(in) :: on_r(LBi:UBi,LBj:UBj)
213 real(r8),
intent(in) :: on_u(LBi:UBi,LBj:UBj)
214 real(r8),
intent(in) :: on_v(LBi:UBi,LBj:UBj)
215 real(r8),
intent(in) :: pm(LBi:UBi,LBj:UBj)
216 real(r8),
intent(in) :: pn(LBi:UBi,LBj:UBj)
217 real(r8),
intent(in) :: Hz(LBi:UBi,LBj:UBj,N(ng))
218 real(r8),
intent(in) :: tl_Hz(LBi:UBi,LBj:UBj,N(ng))
219 real(r8),
intent(in) :: z_r(LBi:UBi,LBj:UBj,N(ng))
220 real(r8),
intent(in) :: tl_z_r(LBi:UBi,LBj:UBj,N(ng))
222 real(r8),
intent(in) :: visc3d_r(LBi:UBi,LBj:UBj,N(ng))
224 real(r8),
intent(in) :: visc2_p(LBi:UBi,LBj:UBj)
225 real(r8),
intent(in) :: visc2_r(LBi:UBi,LBj:UBj)
227 real(r8),
intent(in) :: u(LBi:UBi,LBj:UBj,N(ng),2)
228 real(r8),
intent(in) :: v(LBi:UBi,LBj:UBj,N(ng),2)
230# ifdef DIAGNOSTICS_UV
236 real(r8),
intent(inout) :: tl_rufrc(LBi:UBi,LBj:UBj)
237 real(r8),
intent(inout) :: tl_rvfrc(LBi:UBi,LBj:UBj)
238 real(r8),
intent(inout) :: tl_u(LBi:UBi,LBj:UBj,N(ng),2)
239 real(r8),
intent(inout) :: tl_v(LBi:UBi,LBj:UBj,N(ng),2)
241 real(r8),
intent(inout) :: tl_visc3d_r(LBi:UBi,LBj:UBj,N(ng))
247 integer :: i, j, k, k1, k2
249 real(r8) :: cff, fac1, fac2, pm_p, pn_p
250 real(r8) :: cff1, cff2, cff3, cff4
251 real(r8) :: cff5, cff6, cff7, cff8
252 real(r8) :: dmUdz, dnUdz, dmVdz, dnVdz
255 real(r8) :: tl_fac1, tl_fac2, tl_visc_p
258 real(r8) :: tl_cff1, tl_cff2, tl_cff3, tl_cff4
259 real(r8) :: tl_cff5, tl_cff6, tl_cff7, tl_cff8
260 real(r8) :: tl_dmUdz, tl_dnUdz, tl_dmVdz, tl_dnVdz
262 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS) :: UFx
263 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS) :: VFe
265 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS) :: tl_UFe
266 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS) :: tl_UFx
267 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS) :: tl_VFe
268 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS) :: tl_VFx
270 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: dmUde
271 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: dmVde
272 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: dnUdx
273 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: dnVdx
274 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: dUdz
275 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: dVdz
276 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: dZde_p
277 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: dZde_r
278 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: dZdx_p
279 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: dZdx_r
281 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_UFse
282 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_UFsx
283 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_VFse
284 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_VFsx
285 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_dmUde
286 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_dmVde
287 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_dnUdx
288 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_dnVdx
289 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_dUdz
290 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_dVdz
291 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_dZde_p
292 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_dZde_r
293 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_dZdx_p
294 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS,2) :: tl_dZdx_r
296#include "set_bounds.h"
315 k_loop :
DO k=0,n(ng)
324 cff=0.5_r8*(pm(i-1,j)+pm(i,j))
328 ufx(i,j)=cff*(z_r(i ,j,k+1)- &
330 tl_ufx(i,j)=cff*(tl_z_r(i ,j,k+1)- &
336 cff=0.5_r8*(pn(i,j-1)+pn(i,j))
340 vfe(i,j)=cff*(z_r(i,j ,k+1)- &
342 tl_vfe(i,j)=cff*(tl_z_r(i,j ,k+1)- &
349 dzdx_p(i,j,k2)=0.5_r8*(ufx(i,j-1)+ &
351 tl_dzdx_p(i,j,k2)=0.5_r8*(tl_ufx(i,j-1)+ &
353 dzde_p(i,j,k2)=0.5_r8*(vfe(i-1,j)+ &
355 tl_dzde_p(i,j,k2)=0.5_r8*(tl_vfe(i-1,j)+ &
361 dzdx_r(i,j,k2)=0.5_r8*(ufx(i ,j)+ &
363 tl_dzdx_r(i,j,k2)=0.5_r8*(tl_ufx(i ,j)+ &
365 dzde_r(i,j,k2)=0.5_r8*(vfe(i,j )+ &
367 tl_dzde_r(i,j,k2)=0.5_r8*(tl_vfe(i,j )+ &
380 dnudx(i,j,k2)=cff*((pn(i ,j)+pn(i+1,j))* &
381 & u(i+1,j,k+1,nrhs)- &
382 & (pn(i-1,j)+pn(i ,j))* &
384 tl_dnudx(i,j,k2)=cff*((pn(i ,j)+pn(i+1,j))* &
385 & tl_u(i+1,j,k+1,nrhs)- &
386 & (pn(i-1,j)+pn(i ,j))* &
387 & tl_u(i ,j,k+1,nrhs))
393 cff=0.125_r8*(pn(i-1,j )+pn(i,j )+ &
394 & pn(i-1,j-1)+pn(i,j-1))
398 dmude(i,j,k2)=cff*((pm(i-1,j )+pm(i,j ))* &
399 & u(i,j ,k+1,nrhs)- &
400 & (pm(i-1,j-1)+pm(i,j-1))* &
402 tl_dmude(i,j,k2)=cff*((pm(i-1,j )+pm(i,j ))* &
403 & tl_u(i,j ,k+1,nrhs)- &
404 & (pm(i-1,j-1)+pm(i,j-1))* &
405 & tl_u(i,j-1,k+1,nrhs))
411 cff=0.125_r8*(pm(i-1,j )+pm(i,j )+ &
412 & pm(i-1,j-1)+pm(i,j-1))
416 dnvdx(i,j,k2)=cff*((pn(i ,j-1)+pn(i ,j))* &
417 & v(i ,j,k+1,nrhs)- &
418 & (pn(i-1,j-1)+pn(i-1,j))* &
420 tl_dnvdx(i,j,k2)=cff*((pn(i ,j-1)+pn(i ,j))* &
421 & tl_v(i ,j,k+1,nrhs)- &
422 & (pn(i-1,j-1)+pn(i-1,j))* &
423 & tl_v(i-1,j,k+1,nrhs))
433 dmvde(i,j,k2)=cff*((pm(i,j )+pm(i,j+1))* &
434 & v(i,j+1,k+1,nrhs)- &
435 & (pm(i,j-1)+pm(i,j ))* &
437 tl_dmvde(i,j,k2)=cff*((pm(i,j )+pm(i,j+1))* &
438 & tl_v(i,j+1,k+1,nrhs)- &
439 & (pm(i,j-1)+pm(i,j ))* &
440 & tl_v(i,j ,k+1,nrhs))
445 IF ((k.eq.0).or.(k.eq.n(ng)))
THEN
449 tl_dudz(i,j,k2)=0.0_r8
455 tl_dvdz(i,j,k2)=0.0_r8
463 tl_ufsx(i,j,k2)=0.0_r8
466 tl_ufse(i,j,k2)=0.0_r8
473 tl_vfsx(i,j,k2)=0.0_r8
476 tl_vfse(i,j,k2)=0.0_r8
482 cff=1.0_r8/(0.5_r8*(z_r(i-1,j,k+1)-z_r(i-1,j,k)+ &
483 & z_r(i ,j,k+1)-z_r(i ,j,k)))
484 tl_cff=-cff*cff*(0.5_r8*(tl_z_r(i-1,j,k+1)- &
485 & tl_z_r(i-1,j,k )+ &
486 & tl_z_r(i ,j,k+1)- &
488 dudz(i,j,k2)=cff*(u(i,j,k+1,nrhs)- &
490 tl_dudz(i,j,k2)=tl_cff*(u(i,j,k+1,nrhs)- &
492 & cff*(tl_u(i,j,k+1,nrhs)- &
499 cff=1.0_r8/(0.5_r8*(z_r(i,j-1,k+1)-z_r(i,j-1,k)+ &
500 & z_r(i,j ,k+1)-z_r(i,j ,k)))
501 tl_cff=-cff*cff*(0.5_r8*(tl_z_r(i,j-1,k+1)- &
502 & tl_z_r(i,j-1,k )+ &
503 & tl_z_r(i,j ,k+1)- &
505 dvdz(i,j,k2)=cff*(v(i,j,k+1,nrhs)- &
507 tl_dvdz(i,j,k2)=tl_cff*(v(i,j,k+1,nrhs)- &
509 & cff*(tl_v(i,j,k+1,nrhs)- &
521 cff1=min(dzdx_r(i,j,k1),0.0_r8)
522 cff2=max(dzdx_r(i,j,k1),0.0_r8)
523 cff3=min(dzde_r(i,j,k1),0.0_r8)
524 cff4=max(dzde_r(i,j,k1),0.0_r8)
525 tl_cff1=(0.5_r8+sign(0.5_r8,-dzdx_r(i,j,k1)))* &
527 tl_cff2=(0.5_r8+sign(0.5_r8, dzdx_r(i,j,k1)))* &
529 tl_cff3=(0.5_r8+sign(0.5_r8,-dzde_r(i,j,k1)))* &
531 tl_cff4=(0.5_r8+sign(0.5_r8, dzde_r(i,j,k1)))* &
535 & (on_r(i,j)*(dnudx(i,j,k1)- &
537 & (cff1*(dudz(i ,j,k1)+ &
539 & cff2*(dudz(i ,j,k2)+ &
540 & dudz(i+1,j,k1))))- &
541 & om_r(i,j)*(dmvde(i,j,k1)- &
543 & (cff3*(dvdz(i,j ,k1)+ &
545 & cff4*(dvdz(i,j ,k2)+ &
563 tl_cff=tl_hz(i,j,k)* &
564 & (on_r(i,j)*(dnudx(i,j,k1)- &
566 & (cff1*(dudz(i ,j,k1)+ &
568 & cff2*(dudz(i ,j,k2)+ &
569 & dudz(i+1,j,k1))))- &
570 & om_r(i,j)*(dmvde(i,j,k1)- &
572 & (cff3*(dvdz(i,j ,k1)+ &
574 & cff4*(dvdz(i,j ,k2)+ &
575 & dvdz(i,j+1,k1)))))+ &
577 & (on_r(i,j)*(tl_dnudx(i,j,k1)- &
579 & (tl_cff1*(dudz(i ,j,k1)+ &
581 & cff1*(tl_dudz(i ,j,k1)+ &
582 & tl_dudz(i+1,j,k2))+ &
583 & tl_cff2*(dudz(i ,j,k2)+ &
585 & cff2*(tl_dudz(i ,j,k2)+ &
586 & tl_dudz(i+1,j,k1))))- &
587 & om_r(i,j)*(tl_dmvde(i,j,k1)- &
589 & (tl_cff3*(dvdz(i,j ,k1)+ &
591 & cff3*(tl_dvdz(i,j ,k1)+ &
592 & tl_dvdz(i,j+1,k2))+ &
593 & tl_cff4*(dvdz(i,j ,k2)+ &
595 & cff4*(tl_dvdz(i,j ,k2)+ &
596 & tl_dvdz(i,j+1,k1)))))
604 tl_cff=tl_cff*rmask(i,j)
609 tl_ufx(i,j)=on_r(i,j)*on_r(i,j)* &
610 & (tl_visc3d_r(i,j,k)*cff+ &
611 & visc3d_r(i,j,k)*tl_cff)
614 tl_vfe(i,j)=om_r(i,j)*om_r(i,j)* &
615 & (tl_visc3d_r(i,j,k)*cff+ &
616 & visc3d_r(i,j,k)*tl_cff)
620 tl_ufx(i,j)=on_r(i,j)*on_r(i,j)*visc2_r(i,j)*tl_cff
623 tl_vfe(i,j)=om_r(i,j)*om_r(i,j)*visc2_r(i,j)*tl_cff
630 pm_p=0.25_r8*(pm(i-1,j-1)+pm(i-1,j)+ &
631 & pm(i ,j-1)+pm(i ,j))
632 pn_p=0.25_r8*(pn(i-1,j-1)+pn(i-1,j)+ &
633 & pn(i ,j-1)+pn(i ,j))
634 cff1=min(dzdx_p(i,j,k1),0.0_r8)
635 cff2=max(dzdx_p(i,j,k1),0.0_r8)
636 cff3=min(dzde_p(i,j,k1),0.0_r8)
637 cff4=max(dzde_p(i,j,k1),0.0_r8)
638 tl_cff1=(0.5_r8+sign(0.5_r8,-dzdx_p(i,j,k1)))* &
640 tl_cff2=(0.5_r8+sign(0.5_r8, dzdx_p(i,j,k1)))* &
642 tl_cff3=(0.5_r8+sign(0.5_r8,-dzde_p(i,j,k1)))* &
644 tl_cff4=(0.5_r8+sign(0.5_r8, dzde_p(i,j,k1)))* &
648 & (hz(i-1,j ,k)+hz(i,j ,k)+ &
649 & hz(i-1,j-1,k)+hz(i,j-1,k))* &
650 & (on_p(i,j)*(dnvdx(i,j,k1)- &
652 & (cff1*(dvdz(i-1,j,k1)+ &
654 & cff2*(dvdz(i-1,j,k2)+ &
655 & dvdz(i ,j,k1))))+ &
656 & om_p(i,j)*(dmude(i,j,k1)- &
658 & (cff3*(dudz(i,j-1,k1)+ &
660 & cff4*(dudz(i,j-1,k2)+ &
681 & ((tl_hz(i-1,j ,k)+tl_hz(i,j ,k)+ &
682 & tl_hz(i-1,j-1,k)+tl_hz(i,j-1,k))* &
683 & (on_p(i,j)*(dnvdx(i,j,k1)- &
685 & (cff1*(dvdz(i-1,j,k1)+ &
687 & cff2*(dvdz(i-1,j,k2)+ &
688 & dvdz(i ,j,k1))))+ &
689 & om_p(i,j)*(dmude(i,j,k1)- &
691 & (cff3*(dudz(i,j-1,k1)+ &
693 & cff4*(dudz(i,j-1,k2)+ &
694 & dudz(i,j ,k1)))))+ &
695 & (hz(i-1,j ,k)+hz(i,j ,k)+ &
696 & hz(i-1,j-1,k)+hz(i,j-1,k))* &
697 & (on_p(i,j)*(tl_dnvdx(i,j,k1)- &
699 & (tl_cff1*(dvdz(i-1,j,k1)+ &
701 & cff1*(tl_dvdz(i-1,j,k1)+ &
702 & tl_dvdz(i ,j,k2))+ &
703 & tl_cff2*(dvdz(i-1,j,k2)+ &
705 & cff2*(tl_dvdz(i-1,j,k2)+ &
706 & tl_dvdz(i ,j,k1))))+ &
707 & om_p(i,j)*(tl_dmude(i,j,k1)- &
709 & (tl_cff3*(dudz(i,j-1,k1)+ &
711 & cff3*(tl_dudz(i,j-1,k1)+ &
712 & tl_dudz(i,j ,k2))+ &
713 & tl_cff4*(dudz(i,j-1,k2)+ &
715 & cff4*(tl_dudz(i,j-1,k2)+ &
716 & tl_dudz(i,j ,k1))))))
724 tl_cff=tl_cff*pmask(i,j)
728 & (visc3d_r(i-1,j-1,k)+visc3d_r(i-1,j,k)+ &
729 & visc3d_r(i ,j-1,k)+visc3d_r(i ,j,k))
731 & (tl_visc3d_r(i-1,j-1,k)+tl_visc3d_r(i-1,j,k)+ &
732 & tl_visc3d_r(i ,j-1,k)+tl_visc3d_r(i ,j,k))
735 tl_ufe(i,j)=om_p(i,j)*om_p(i,j)* &
736 & (tl_visc_p*cff+visc_p*tl_cff)
739 tl_vfx(i,j)=on_p(i,j)*on_p(i,j)* &
740 & (tl_visc_p*cff+visc_p*tl_cff)
744 tl_ufe(i,j)=om_p(i,j)*om_p(i,j)*visc2_p(i,j)*tl_cff
747 tl_vfx(i,j)=on_p(i,j)*on_p(i,j)*visc2_p(i,j)*tl_cff
760 & (visc3d_r(i-1,j,k )+visc3d_r(i,j,k )+ &
761 & visc3d_r(i-1,j,k+1)+visc3d_r(i,j,k+1))
763 & (tl_visc3d_r(i-1,j,k )+tl_visc3d_r(i,j,k )+ &
764 & tl_visc3d_r(i-1,j,k+1)+tl_visc3d_r(i,j,k+1))
766 tl_fac1=tl_cff*on_u(i,j)
768 tl_fac2=tl_cff*om_u(i,j)
770 cff=0.25_r8*(visc2_r(i-1,j)+visc2_r(i,j))
774 cff=0.5_r8*(pn(i-1,j)+pn(i,j))
775 dnudz=cff*dudz(i,j,k2)
776 tl_dnudz=cff*tl_dudz(i,j,k2)
777 dnvdz=cff*0.25_r8*(dvdz(i-1,j+1,k2)+ &
781 tl_dnvdz=cff*0.25_r8*(tl_dvdz(i-1,j+1,k2)+ &
782 & tl_dvdz(i ,j+1,k2)+ &
783 & tl_dvdz(i-1,j ,k2)+ &
785 cff=0.5_r8*(pm(i-1,j)+pm(i,j))
786 dmudz=cff*dudz(i,j,k2)
787 tl_dmudz=cff*tl_dudz(i,j,k2)
788 dmvdz=cff*0.25_r8*(dvdz(i-1,j+1,k2)+ &
792 tl_dmvdz=cff*0.25_r8*(tl_dvdz(i-1,j+1,k2)+ &
793 & tl_dvdz(i ,j+1,k2)+ &
794 & tl_dvdz(i-1,j ,k2)+ &
797 cff1=min(dzdx_r(i-1,j,k1),0.0_r8)
798 cff2=min(dzdx_r(i ,j,k2),0.0_r8)
799 cff3=max(dzdx_r(i-1,j,k2),0.0_r8)
800 cff4=max(dzdx_r(i ,j,k1),0.0_r8)
801 tl_cff1=(0.5_r8+sign(0.5_r8,-dzdx_r(i-1,j,k1)))* &
802 & tl_dzdx_r(i-1,j,k1)
803 tl_cff2=(0.5_r8+sign(0.5_r8,-dzdx_r(i ,j,k2)))* &
805 tl_cff3=(0.5_r8+sign(0.5_r8, dzdx_r(i-1,j,k2)))* &
806 & tl_dzdx_r(i-1,j,k2)
807 tl_cff4=(0.5_r8+sign(0.5_r8, dzdx_r(i ,j,k1)))* &
815 tl_ufsx(i,j,k2)=fac1* &
816 & (tl_cff1*(cff1*dnudz-dnudx(i-1,j,k1))+ &
817 & tl_cff2*(cff2*dnudz-dnudx(i ,j,k2))+ &
818 & tl_cff3*(cff3*dnudz-dnudx(i-1,j,k2))+ &
819 & tl_cff4*(cff4*dnudz-dnudx(i ,j,k1))+ &
820 & cff1*(tl_cff1*dnudz+cff1*tl_dnudz- &
821 & tl_dnudx(i-1,j,k1))+ &
822 & cff2*(tl_cff2*dnudz+cff2*tl_dnudz- &
823 & tl_dnudx(i ,j,k2))+ &
824 & cff3*(tl_cff3*dnudz+cff3*tl_dnudz- &
825 & tl_dnudx(i-1,j,k2))+ &
826 & cff4*(tl_cff4*dnudz+cff4*tl_dnudz- &
827 & tl_dnudx(i ,j,k1)))
829 tl_ufsx(i,j,k2)=tl_ufsx(i,j,k2)+ &
831 & (cff1*(cff1*dnudz-dnudx(i-1,j,k1))+ &
832 & cff2*(cff2*dnudz-dnudx(i ,j,k2))+ &
833 & cff3*(cff3*dnudz-dnudx(i-1,j,k2))+ &
834 & cff4*(cff4*dnudz-dnudx(i ,j,k1)))
837 cff1=min(dzde_p(i,j ,k1),0.0_r8)
838 cff2=min(dzde_p(i,j+1,k2),0.0_r8)
839 cff3=max(dzde_p(i,j ,k2),0.0_r8)
840 cff4=max(dzde_p(i,j+1,k1),0.0_r8)
841 tl_cff1=(0.5_r8+sign(0.5_r8,-dzde_p(i,j ,k1)))* &
843 tl_cff2=(0.5_r8+sign(0.5_r8,-dzde_p(i,j+1,k2)))* &
844 & tl_dzde_p(i,j+1,k2)
845 tl_cff3=(0.5_r8+sign(0.5_r8, dzde_p(i,j ,k2)))* &
847 tl_cff4=(0.5_r8+sign(0.5_r8, dzde_p(i,j+1,k1)))* &
848 & tl_dzde_p(i,j+1,k1)
855 tl_ufse(i,j,k2)=fac2* &
856 & (tl_cff1*(cff1*dmudz-dmude(i,j ,k1))+ &
857 & tl_cff2*(cff2*dmudz-dmude(i,j+1,k2))+ &
858 & tl_cff3*(cff3*dmudz-dmude(i,j ,k2))+ &
859 & tl_cff4*(cff4*dmudz-dmude(i,j+1,k1))+ &
860 & cff1*(tl_cff1*dmudz+cff1*tl_dmudz- &
861 & tl_dmude(i,j ,k1))+ &
862 & cff2*(tl_cff2*dmudz+cff2*tl_dmudz- &
863 & tl_dmude(i,j+1,k2))+ &
864 & cff3*(tl_cff3*dmudz+cff3*tl_dmudz- &
865 & tl_dmude(i,j ,k2))+ &
866 & cff4*(tl_cff4*dmudz+cff4*tl_dmudz- &
867 & tl_dmude(i,j+1,k1)))
869 tl_ufse(i,j,k2)=tl_ufse(i,j,k2)+ &
871 & (cff1*(cff1*dmudz-dmude(i,j ,k1))+ &
872 & cff2*(cff2*dmudz-dmude(i,j+1,k2))+ &
873 & cff3*(cff3*dmudz-dmude(i,j ,k2))+ &
874 & cff4*(cff4*dmudz-dmude(i,j+1,k1)))
877 cff1=min(dzde_p(i,j ,k1),0.0_r8)
878 cff2=min(dzde_p(i,j+1,k2),0.0_r8)
879 cff3=max(dzde_p(i,j ,k2),0.0_r8)
880 cff4=max(dzde_p(i,j+1,k1),0.0_r8)
881 cff5=min(dzdx_p(i,j ,k1),0.0_r8)
882 cff6=min(dzdx_p(i,j+1,k2),0.0_r8)
883 cff7=max(dzdx_p(i,j ,k2),0.0_r8)
884 cff8=max(dzdx_p(i,j+1,k1),0.0_r8)
885 tl_cff1=(0.5_r8+sign(0.5_r8,-dzde_p(i,j ,k1)))* &
887 tl_cff2=(0.5_r8+sign(0.5_r8,-dzde_p(i,j+1,k2)))* &
888 & tl_dzde_p(i,j+1,k2)
889 tl_cff3=(0.5_r8+sign(0.5_r8, dzde_p(i,j ,k2)))* &
891 tl_cff4=(0.5_r8+sign(0.5_r8, dzde_p(i,j+1,k1)))* &
892 & tl_dzde_p(i,j+1,k1)
893 tl_cff5=(0.5_r8+sign(0.5_r8,-dzdx_p(i,j ,k1)))* &
895 tl_cff6=(0.5_r8+sign(0.5_r8,-dzdx_p(i,j+1,k2)))* &
896 & tl_dzdx_p(i,j+1,k2)
897 tl_cff7=(0.5_r8+sign(0.5_r8, dzdx_p(i,j ,k2)))* &
899 tl_cff8=(0.5_r8+sign(0.5_r8, dzdx_p(i,j+1,k1)))* &
900 & tl_dzdx_p(i,j+1,k1)
908 tl_ufsx(i,j,k2)=tl_ufsx(i,j,k2)+ &
910 & (tl_cff1*(cff5*dnvdz-dnvdx(i,j ,k1))+ &
911 & tl_cff2*(cff6*dnvdz-dnvdx(i,j+1,k2))+ &
912 & tl_cff3*(cff7*dnvdz-dnvdx(i,j ,k2))+ &
913 & tl_cff4*(cff8*dnvdz-dnvdx(i,j+1,k1))+ &
914 & cff1*(tl_cff5*dnvdz+cff5*tl_dnvdz- &
915 & tl_dnvdx(i,j ,k1))+ &
916 & cff2*(tl_cff6*dnvdz+cff6*tl_dnvdz- &
917 & tl_dnvdx(i,j+1,k2))+ &
918 & cff3*(tl_cff7*dnvdz+cff7*tl_dnvdz- &
919 & tl_dnvdx(i,j ,k2))+ &
920 & cff4*(tl_cff8*dnvdz+cff8*tl_dnvdz- &
921 & tl_dnvdx(i,j+1,k1)))
923 tl_ufsx(i,j,k2)=tl_ufsx(i,j,k2)+ &
925 & (cff1*(cff5*dnvdz-dnvdx(i,j ,k1))+ &
926 & cff2*(cff6*dnvdz-dnvdx(i,j+1,k2))+ &
927 & cff3*(cff7*dnvdz-dnvdx(i,j ,k2))+ &
928 & cff4*(cff8*dnvdz-dnvdx(i,j+1,k1)))
931 cff1=min(dzdx_r(i-1,j,k1),0.0_r8)
932 cff2=min(dzdx_r(i ,j,k2),0.0_r8)
933 cff3=max(dzdx_r(i-1,j,k2),0.0_r8)
934 cff4=max(dzdx_r(i ,j,k1),0.0_r8)
935 cff5=min(dzde_r(i-1,j,k1),0.0_r8)
936 cff6=min(dzde_r(i ,j,k2),0.0_r8)
937 cff7=max(dzde_r(i-1,j,k2),0.0_r8)
938 cff8=max(dzde_r(i ,j,k1),0.0_r8)
939 tl_cff1=(0.5_r8+sign(0.5_r8,-dzdx_r(i-1,j,k1)))* &
940 & tl_dzdx_r(i-1,j,k1)
941 tl_cff2=(0.5_r8+sign(0.5_r8,-dzdx_r(i ,j,k2)))* &
943 tl_cff3=(0.5_r8+sign(0.5_r8, dzdx_r(i-1,j,k2)))* &
944 & tl_dzdx_r(i-1,j,k2)
945 tl_cff4=(0.5_r8+sign(0.5_r8, dzdx_r(i ,j,k1)))* &
947 tl_cff5=(0.5_r8+sign(0.5_r8,-dzde_r(i-1,j,k1)))* &
948 & tl_dzde_r(i-1,j,k1)
949 tl_cff6=(0.5_r8+sign(0.5_r8,-dzde_r(i ,j,k2)))* &
951 tl_cff7=(0.5_r8+sign(0.5_r8, dzde_r(i-1,j,k2)))* &
952 & tl_dzde_r(i-1,j,k2)
953 tl_cff8=(0.5_r8+sign(0.5_r8, dzde_r(i ,j,k1)))* &
962 tl_ufse(i,j,k2)=tl_ufse(i,j,k2)- &
964 & (tl_cff1*(cff5*dmvdz-dmvde(i-1,j,k1))+ &
965 & tl_cff2*(cff6*dmvdz-dmvde(i ,j,k2))+ &
966 & tl_cff3*(cff7*dmvdz-dmvde(i-1,j,k2))+ &
967 & tl_cff4*(cff8*dmvdz-dmvde(i ,j,k1))+ &
968 & cff1*(tl_cff5*dmvdz+cff5*tl_dmvdz- &
969 & tl_dmvde(i-1,j,k1))+ &
970 & cff2*(tl_cff6*dmvdz+cff6*tl_dmvdz- &
971 & tl_dmvde(i ,j,k2))+ &
972 & cff3*(tl_cff7*dmvdz+cff7*tl_dmvdz- &
973 & tl_dmvde(i-1,j,k2))+ &
974 & cff4*(tl_cff8*dmvdz+cff8*tl_dmvdz- &
975 & tl_dmvde(i ,j,k1)))
977 tl_ufse(i,j,k2)=tl_ufse(i,j,k2)- &
979 & (cff1*(cff5*dmvdz-dmvde(i-1,j,k1))+ &
980 & cff2*(cff6*dmvdz-dmvde(i ,j,k2))+ &
981 & cff3*(cff7*dmvdz-dmvde(i-1,j,k2))+ &
982 & cff4*(cff8*dmvdz-dmvde(i ,j,k1)))
991 & (visc3d_r(i,j-1,k )+visc3d_r(i,j,k )+ &
992 & visc3d_r(i,j-1,k+1)+visc3d_r(i,j,k+1))
994 & (tl_visc3d_r(i,j-1,k )+tl_visc3d_r(i,j,k )+ &
995 & tl_visc3d_r(i,j-1,k+1)+tl_visc3d_r(i,j,k+1))
997 tl_fac1=tl_cff*on_v(i,j)
999 tl_fac2=tl_cff*om_v(i,j)
1001 cff=0.25_r8*(visc2_r(i,j-1)+visc2_r(i,j))
1005 cff=0.5_r8*(pn(i,j-1)+pn(i,j))
1006 dnudz=cff*0.25_r8*(dudz(i ,j ,k2)+ &
1007 & dudz(i+1,j ,k2)+ &
1008 & dudz(i ,j-1,k2)+ &
1010 tl_dnudz=cff*0.25_r8*(tl_dudz(i ,j ,k2)+ &
1011 & tl_dudz(i+1,j ,k2)+ &
1012 & tl_dudz(i ,j-1,k2)+ &
1013 & tl_dudz(i+1,j-1,k2))
1014 dnvdz=cff*dvdz(i,j,k2)
1015 tl_dnvdz=cff*tl_dvdz(i,j,k2)
1016 cff=0.5_r8*(pm(i,j-1)+pm(i,j))
1017 dmudz=cff*0.25_r8*(dudz(i ,j ,k2)+ &
1018 & dudz(i+1,j ,k2)+ &
1019 & dudz(i ,j-1,k2)+ &
1021 tl_dmudz=cff*0.25_r8*(tl_dudz(i ,j ,k2)+ &
1022 & tl_dudz(i+1,j ,k2)+ &
1023 & tl_dudz(i ,j-1,k2)+ &
1024 & tl_dudz(i+1,j-1,k2))
1025 dmvdz=cff*dvdz(i,j,k2)
1026 tl_dmvdz=cff*tl_dvdz(i,j,k2)
1028 cff1=min(dzdx_p(i ,j,k1),0.0_r8)
1029 cff2=min(dzdx_p(i+1,j,k2),0.0_r8)
1030 cff3=max(dzdx_p(i ,j,k2),0.0_r8)
1031 cff4=max(dzdx_p(i+1,j,k1),0.0_r8)
1032 tl_cff1=(0.5_r8+sign(0.5_r8,-dzdx_p(i ,j,k1)))* &
1033 & tl_dzdx_p(i ,j,k1)
1034 tl_cff2=(0.5_r8+sign(0.5_r8,-dzdx_p(i+1,j,k2)))* &
1035 & tl_dzdx_p(i+1,j,k2)
1036 tl_cff3=(0.5_r8+sign(0.5_r8, dzdx_p(i ,j,k2)))* &
1037 & tl_dzdx_p(i ,j,k2)
1038 tl_cff4=(0.5_r8+sign(0.5_r8, dzdx_p(i+1,j,k1)))* &
1039 & tl_dzdx_p(i+1,j,k1)
1046 tl_vfsx(i,j,k2)=fac1* &
1047 & (tl_cff1*(cff1*dnvdz-dnvdx(i ,j,k1))+ &
1048 & tl_cff2*(cff2*dnvdz-dnvdx(i+1,j,k2))+ &
1049 & tl_cff3*(cff3*dnvdz-dnvdx(i ,j,k2))+ &
1050 & tl_cff4*(cff4*dnvdz-dnvdx(i+1,j,k1))+ &
1051 & cff1*(tl_cff1*dnvdz+cff1*tl_dnvdz- &
1052 & tl_dnvdx(i ,j,k1))+ &
1053 & cff2*(tl_cff2*dnvdz+cff2*tl_dnvdz- &
1054 & tl_dnvdx(i+1,j,k2))+ &
1055 & cff3*(tl_cff3*dnvdz+cff3*tl_dnvdz- &
1056 & tl_dnvdx(i ,j,k2))+ &
1057 & cff4*(tl_cff4*dnvdz+cff4*tl_dnvdz- &
1058 & tl_dnvdx(i+1,j,k1)))
1060 tl_vfsx(i,j,k2)=tl_vfsx(i,j,k2)+ &
1062 & (cff1*(cff1*dnvdz-dnvdx(i ,j,k1))+ &
1063 & cff2*(cff2*dnvdz-dnvdx(i+1,j,k2))+ &
1064 & cff3*(cff3*dnvdz-dnvdx(i ,j,k2))+ &
1065 & cff4*(cff4*dnvdz-dnvdx(i+1,j,k1)))
1068 cff1=min(dzde_r(i,j-1,k1),0.0_r8)
1069 cff2=min(dzde_r(i,j ,k2),0.0_r8)
1070 cff3=max(dzde_r(i,j-1,k2),0.0_r8)
1071 cff4=max(dzde_r(i,j ,k1),0.0_r8)
1072 tl_cff1=(0.5_r8+sign(0.5_r8,-dzde_r(i,j-1,k1)))* &
1073 & tl_dzde_r(i,j-1,k1)
1074 tl_cff2=(0.5_r8+sign(0.5_r8,-dzde_r(i,j ,k2)))* &
1075 & tl_dzde_r(i,j ,k2)
1076 tl_cff3=(0.5_r8+sign(0.5_r8, dzde_r(i,j-1,k2)))* &
1077 & tl_dzde_r(i,j-1,k2)
1078 tl_cff4=(0.5_r8+sign(0.5_r8, dzde_r(i,j ,k1)))* &
1079 & tl_dzde_r(i,j ,k1)
1086 tl_vfse(i,j,k2)=fac2* &
1087 & (tl_cff1*(cff1*dmvdz-dmvde(i,j-1,k1))+ &
1088 & tl_cff2*(cff2*dmvdz-dmvde(i,j ,k2))+ &
1089 & tl_cff3*(cff3*dmvdz-dmvde(i,j-1,k2))+ &
1090 & tl_cff4*(cff4*dmvdz-dmvde(i,j ,k1))+ &
1091 & cff1*(tl_cff1*dmvdz+cff1*tl_dmvdz- &
1092 & tl_dmvde(i,j-1,k1))+ &
1093 & cff2*(tl_cff2*dmvdz+cff2*tl_dmvdz- &
1094 & tl_dmvde(i,j ,k2))+ &
1095 & cff3*(tl_cff3*dmvdz+cff3*tl_dmvdz- &
1096 & tl_dmvde(i,j-1,k2))+ &
1097 & cff4*(tl_cff4*dmvdz+cff4*tl_dmvdz- &
1098 & tl_dmvde(i,j ,k1)))
1100 tl_vfse(i,j,k2)=tl_vfse(i,j,k2)+ &
1102 & (cff1*(cff1*dmvdz-dmvde(i,j-1,k1))+ &
1103 & cff2*(cff2*dmvdz-dmvde(i,j ,k2))+ &
1104 & cff3*(cff3*dmvdz-dmvde(i,j-1,k2))+ &
1105 & cff4*(cff4*dmvdz-dmvde(i,j ,k1)))
1108 cff1=min(dzde_r(i,j-1,k1),0.0_r8)
1109 cff2=min(dzde_r(i,j ,k2),0.0_r8)
1110 cff3=max(dzde_r(i,j-1,k2),0.0_r8)
1111 cff4=max(dzde_r(i,j ,k1),0.0_r8)
1112 cff5=min(dzdx_r(i,j-1,k1),0.0_r8)
1113 cff6=min(dzdx_r(i,j ,k2),0.0_r8)
1114 cff7=max(dzdx_r(i,j-1,k2),0.0_r8)
1115 cff8=max(dzdx_r(i,j ,k1),0.0_r8)
1116 tl_cff1=(0.5_r8+sign(0.5_r8,-dzde_r(i,j-1,k1)))* &
1117 & tl_dzde_r(i,j-1,k1)
1118 tl_cff2=(0.5_r8+sign(0.5_r8,-dzde_r(i,j ,k2)))* &
1119 & tl_dzde_r(i,j ,k2)
1120 tl_cff3=(0.5_r8+sign(0.5_r8, dzde_r(i,j-1,k2)))* &
1121 & tl_dzde_r(i,j-1,k2)
1122 tl_cff4=(0.5_r8+sign(0.5_r8, dzde_r(i,j ,k1)))* &
1123 & tl_dzde_r(i,j ,k1)
1124 tl_cff5=(0.5_r8+sign(0.5_r8,-dzdx_r(i,j-1,k1)))* &
1125 & tl_dzdx_r(i,j-1,k1)
1126 tl_cff6=(0.5_r8+sign(0.5_r8,-dzdx_r(i,j ,k2)))* &
1127 & tl_dzdx_r(i,j ,k2)
1128 tl_cff7=(0.5_r8+sign(0.5_r8, dzdx_r(i,j-1,k2)))* &
1129 & tl_dzdx_r(i,j-1,k2)
1130 tl_cff8=(0.5_r8+sign(0.5_r8, dzdx_r(i,j ,k1)))* &
1131 & tl_dzdx_r(i,j ,k1)
1139 tl_vfsx(i,j,k2)=tl_vfsx(i,j,k2)- &
1141 & (tl_cff1*(cff5*dnudz-dnudx(i,j-1,k1))+ &
1142 & tl_cff2*(cff6*dnudz-dnudx(i,j ,k2))+ &
1143 & tl_cff3*(cff7*dnudz-dnudx(i,j-1,k2))+ &
1144 & tl_cff4*(cff8*dnudz-dnudx(i,j ,k1))+ &
1145 & cff1*(tl_cff5*dnudz+cff5*tl_dnudz- &
1146 & tl_dnudx(i,j-1,k1))+ &
1147 & cff2*(tl_cff6*dnudz+cff6*tl_dnudz- &
1148 & tl_dnudx(i,j ,k2))+ &
1149 & cff3*(tl_cff7*dnudz+cff7*tl_dnudz- &
1150 & tl_dnudx(i,j-1,k2))+ &
1151 & cff4*(tl_cff8*dnudz+cff8*tl_dnudz- &
1152 & tl_dnudx(i,j ,k1)))
1154 tl_vfsx(i,j,k2)=tl_vfsx(i,j,k2)- &
1156 & (cff1*(cff5*dnudz-dnudx(i,j-1,k1))+ &
1157 & cff2*(cff6*dnudz-dnudx(i,j ,k2))+ &
1158 & cff3*(cff7*dnudz-dnudx(i,j-1,k2))+ &
1159 & cff4*(cff8*dnudz-dnudx(i,j ,k1)))
1162 cff1=min(dzdx_p(i ,j,k1),0.0_r8)
1163 cff2=min(dzdx_p(i+1,j,k2),0.0_r8)
1164 cff3=max(dzdx_p(i ,j,k2),0.0_r8)
1165 cff4=max(dzdx_p(i+1,j,k1),0.0_r8)
1166 cff5=min(dzde_p(i ,j,k1),0.0_r8)
1167 cff6=min(dzde_p(i+1,j,k2),0.0_r8)
1168 cff7=max(dzde_p(i ,j,k2),0.0_r8)
1169 cff8=max(dzde_p(i+1,j,k1),0.0_r8)
1170 tl_cff1=(0.5_r8+sign(0.5_r8,-dzdx_p(i ,j,k1)))* &
1171 & tl_dzdx_p(i ,j,k1)
1172 tl_cff2=(0.5_r8+sign(0.5_r8,-dzdx_p(i+1,j,k2)))* &
1173 & tl_dzdx_p(i+1,j,k2)
1174 tl_cff3=(0.5_r8+sign(0.5_r8, dzdx_p(i ,j,k2)))* &
1175 & tl_dzdx_p(i ,j,k2)
1176 tl_cff4=(0.5_r8+sign(0.5_r8, dzdx_p(i+1,j,k1)))* &
1177 & tl_dzdx_p(i+1,j,k1)
1178 tl_cff5=(0.5_r8+sign(0.5_r8,-dzde_p(i ,j,k1)))* &
1179 & tl_dzde_p(i ,j,k1)
1180 tl_cff6=(0.5_r8+sign(0.5_r8,-dzde_p(i+1,j,k2)))* &
1181 & tl_dzde_p(i+1,j,k2)
1182 tl_cff7=(0.5_r8+sign(0.5_r8, dzde_p(i ,j,k2)))* &
1183 & tl_dzde_p(i ,j,k2)
1184 tl_cff8=(0.5_r8+sign(0.5_r8, dzde_p(i+1,j,k1)))* &
1185 & tl_dzde_p(i+1,j,k1)
1193 tl_vfse(i,j,k2)=tl_vfse(i,j,k2)+ &
1195 & (tl_cff1*(cff5*dmudz-dmude(i ,j,k1))+ &
1196 & tl_cff2*(cff6*dmudz-dmude(i+1,j,k2))+ &
1197 & tl_cff3*(cff7*dmudz-dmude(i ,j,k2))+ &
1198 & tl_cff4*(cff8*dmudz-dmude(i+1,j,k1))+ &
1199 & cff1*(tl_cff5*dmudz+cff5*tl_dmudz- &
1200 & tl_dmude(i ,j,k1))+ &
1201 & cff2*(tl_cff6*dmudz+cff6*tl_dmudz- &
1202 & tl_dmude(i+1,j,k2))+ &
1203 & cff3*(tl_cff7*dmudz+cff7*tl_dmudz- &
1204 & tl_dmude(i ,j,k2))+ &
1205 & cff4*(tl_cff8*dmudz+cff8*tl_dmudz- &
1206 & tl_dmude(i+1,j,k1)))
1208 tl_vfse(i,j,k2)=tl_vfse(i,j,k2)+ &
1210 & (cff1*(cff5*dmudz-dmude(i ,j,k1))+ &
1211 & cff2*(cff6*dmudz-dmude(i+1,j,k2))+ &
1212 & cff3*(cff7*dmudz-dmude(i ,j,k2))+ &
1213 & cff4*(cff8*dmudz-dmude(i+1,j,k1)))
1222#ifdef DIAGNOSTICS_UV
1229 cff=
dt(ng)*0.25_r8*(pm(i-1,j)+pm(i,j))*(pn(i-1,j)+pn(i,j))
1232 tl_cff1=0.5_r8*(pn(i-1,j)+pn(i,j))* &
1233 & (tl_ufx(i,j )-tl_ufx(i-1,j))
1236 tl_cff2=0.5_r8*(pm(i-1,j)+pm(i,j))* &
1237 & (tl_ufe(i,j+1)-tl_ufe(i ,j))
1240 tl_cff3=tl_ufsx(i,j,k2)-tl_ufsx(i,j,k1)
1243 tl_cff4=tl_ufse(i,j,k2)-tl_ufse(i,j,k1)
1246 tl_cff5=cff*(tl_cff1+tl_cff2)
1249 tl_cff6=
dt(ng)*(tl_cff3+tl_cff4)
1252 tl_rufrc(i,j)=tl_rufrc(i,j)+ &
1253 & tl_cff1+tl_cff2+tl_cff3+tl_cff4
1256 tl_u(i,j,k,nnew)=tl_u(i,j,k,nnew)+tl_cff5+tl_cff6
1257#ifdef DIAGNOSTICS_UV
1271 cff=
dt(ng)*0.25_r8*(pm(i,j)+pm(i,j-1))*(pn(i,j)+pn(i,j-1))
1274 tl_cff1=0.5_r8*(pn(i,j-1)+pn(i,j))* &
1275 & (tl_vfx(i+1,j)-tl_vfx(i,j ))
1278 tl_cff2=0.5_r8*(pm(i,j-1)+pm(i,j))* &
1279 & (tl_vfe(i ,j)-tl_vfe(i,j-1))
1282 tl_cff3=tl_vfsx(i,j,k2)-tl_vfsx(i,j,k1)
1285 tl_cff4=tl_vfse(i,j,k2)-tl_vfse(i,j,k1)
1288 tl_cff5=cff*(tl_cff1-tl_cff2)
1291 tl_cff6=
dt(ng)*(tl_cff3+tl_cff4)
1294 tl_rvfrc(i,j)=tl_rvfrc(i,j)+ &
1295 & tl_cff1-tl_cff2+tl_cff3+tl_cff4
1298 tl_v(i,j,k,nnew)=tl_v(i,j,k,nnew)+tl_cff5+tl_cff6
1299#ifdef DIAGNOSTICS_UV