60 & LBi, UBi, LBj, UBj, &
61 & IminS, ImaxS, JminS, JmaxS, &
64 & ad_ubar, ad_vbar, ad_zeta)
77 integer,
intent(in) :: ng, tile
78 integer,
intent(in) :: lbi, ubi, lbj, ubj
79 integer,
intent(in) :: imins, imaxs, jmins, jmaxs
80 integer,
intent(in) :: krhs, kstp, kout
83 real(r8),
intent(in) :: ubar(lbi:,lbj:,:)
84 real(r8),
intent(in) :: vbar(lbi:,lbj:,:)
85 real(r8),
intent(in) :: zeta(lbi:,lbj:,:)
87 real(r8),
intent(inout) :: ad_ubar(lbi:,lbj:,:)
88 real(r8),
intent(inout) :: ad_vbar(lbi:,lbj:,:)
89 real(r8),
intent(inout) :: ad_zeta(lbi:,lbj:,:)
91 real(r8),
intent(in) :: ubar(lbi:ubi,lbj:ubj,:)
92 real(r8),
intent(in) :: vbar(lbi:ubi,lbj:ubj,:)
93 real(r8),
intent(in) :: zeta(lbi:ubi,lbj:ubj,:)
95 real(r8),
intent(inout) :: ad_ubar(lbi:ubi,lbj:ubj,:)
96 real(r8),
intent(inout) :: ad_vbar(lbi:ubi,lbj:ubj,:)
97 real(r8),
intent(inout) :: ad_zeta(lbi:ubi,lbj:ubj,:)
102 integer :: imin, imax
103 integer :: i, j, know
105 real(r8) :: ce, cx, zx
106 real(r8) :: bry_pgr, bry_cor, bry_str, bry_val
107 real(r8) :: cff, cff1, cff2, cff3, dt2d
108 real(r8) :: obc_in, obc_out, tau
109# if defined ATM_PRESS && defined PRESS_COMPENSATE
110 real(r8) :: oneatm, fac
113 real(r8) :: ad_ce, ad_cx
114 real(r8) :: ad_bry_pgr, ad_bry_cor, ad_bry_str, ad_bry_val, ad_zx
115 real(r8) :: ad_cff, ad_cff1, ad_cff2, ad_cff3
118 real(r8),
dimension(IminS:ImaxS,JminS:JmaxS) :: ad_grad
120# include "set_bounds.h"
138 ad_grad(lbi:ubi,lbj:ubj)=0.0_r8
144 IF (first_2d_step)
THEN
154# if defined ATM_PRESS && defined PRESS_COMPENSATE
156 fac=100.0_r8/(
g*
rho0)
159# if defined WET_DRY_NOT_YET
168 IF (
domain(ng)%NorthEast_Corner(tile))
THEN
181 IF (
domain(ng)%NorthWest_Corner(tile))
THEN
194 IF (
domain(ng)%SouthEast_Corner(tile))
THEN
207 IF (
domain(ng)%SouthWest_Corner(tile))
THEN
223 IF (
domain(ng)%Northern_Edge(tile))
THEN
236 IF (
domain(ng)%Southern_Edge(tile))
THEN
252 IF (
domain(ng)%Eastern_Edge(tile))
THEN
265 IF (
domain(ng)%Western_Edge(tile))
THEN
286 IF (
domain(ng)%NorthEast_Corner(tile))
THEN
293 adfac=0.5_r8*ad_ubar(iend+1,jend+1,kout)
294 ad_ubar(iend+1,jend ,kout)=ad_ubar(iend+1,jend ,kout)+ &
296 ad_ubar(iend ,jend+1,kout)=ad_ubar(iend ,jend+1,kout)+ &
298 ad_ubar(iend+1,jend+1,kout)=0.0_r8
301 IF (
domain(ng)%NorthWest_Corner(tile))
THEN
308 adfac=0.5_r8*ad_ubar(istr,jend+1,kout)
309 ad_ubar(istr ,jend ,kout)=ad_ubar(istr ,jend ,kout)+ &
311 ad_ubar(istr+1,jend+1,kout)=ad_ubar(istr+1,jend+1,kout)+ &
313 ad_ubar(istr ,jend+1,kout)=0.0_r8
316 IF (
domain(ng)%SouthEast_Corner(tile))
THEN
323 adfac=0.5_r8*ad_ubar(iend+1,jstr-1,kout)
324 ad_ubar(iend ,jstr-1,kout)=ad_ubar(iend ,jstr-1,kout)+ &
326 ad_ubar(iend+1,jstr ,kout)=ad_ubar(iend+1,jstr ,kout)+ &
328 ad_ubar(iend+1,jstr-1,kout)=0.0_r8
331 IF (
domain(ng)%SouthWest_Corner(tile))
THEN
338 adfac=0.5_r8*ad_ubar(istr,jstr-1,kout)
339 ad_ubar(istr+1,jstr-1,kout)=ad_ubar(istr+1,jstr-1,kout)+ &
341 ad_ubar(istr ,jstr ,kout)=ad_ubar(istr ,jstr ,kout)+ &
343 ad_ubar(istr ,jstr-1,kout)=0.0_r8
352 IF (
domain(ng)%Northern_Edge(tile))
THEN
357 IF (
iic(ng).ne.0)
THEN
360# if defined CELERITY_READ && defined FORWARD_READ
364 & (
clima(ng)%M2nudgcof(i-1,jend+1)+ &
365 &
clima(ng)%M2nudgcof(i ,jend+1))
366 obc_in =
obcfac(ng)*obc_out
371 IF (
boundary(ng)%ubar_north_Ce(i).lt.0.0_r8)
THEN
390 ad_ubar(i,jend+1,kout)=ad_ubar(i,jend+1,kout)* &
391 &
grid(ng)%umask(i,jend+1)
397 ad_ubar(i,jend+1 ,know)=ad_ubar(i,jend+1 ,know)- &
398 & tau*ad_ubar(i,jend+1,kout)
408 adfac=ad_ubar(i,jend+1,kout)/(cff+ce)
409 ad_grad(i-1,jend+1)=ad_grad(i-1,jend+1)- &
410 & max(cx,0.0_r8)*adfac
411 ad_grad(i ,jend+1)=ad_grad(i ,jend+1)- &
412 & min(cx,0.0_r8)*adfac
413 ad_ubar(i,jend ,kout)=ad_ubar(i,jend ,kout)+ce *adfac
414 ad_ubar(i,jend+1,know)=ad_ubar(i,jend+1,know)+cff*adfac
415 ad_ubar(i,jend+1,kout)=0.0_r8
427 cff=dt2d*0.5_r8*(
grid(ng)%pn(i-1,jend)+ &
428 &
grid(ng)%pn(i ,jend))
429 cff1=sqrt(
g*0.5_r8*(
grid(ng)%h(i-1,jend)+ &
430 & zeta(i-1,jend,know)+ &
431 &
grid(ng)%h(i ,jend)+ &
432 & zeta(i ,jend,know)))
434 cff2=1.0_r8/(1.0_r8+ce)
439 ad_ubar(i,jend+1,kout)=ad_ubar(i,jend+1,kout)* &
440 &
grid(ng)%umask(i,jend+1)
448 adfac=cff2*ad_ubar(i,jend+1,kout)
449 ad_ubar(i,jend ,kout)=ad_ubar(i,jend ,kout)+ce*adfac
450 ad_ubar(i,jend+1,know)=ad_ubar(i,jend+1,know)+adfac
451 ad_ce=ad_ce+ubar(i,jend,kout)*adfac
453 & (ubar(i,jend+1,know)+ &
454 & ce*ubar(i,jend,kout))*ad_ubar(i,jend+1,kout)
455 ad_ubar(i,jend+1,kout)=0.0_r8
458 ad_ce=ad_ce-cff2*cff2*ad_cff2
462 ad_cff1=ad_cff1+cff*ad_ce
469 adfac=0.25_r8*
g*ad_cff1/cff1
470 grid(ng)%ad_h(i-1,jend)=
grid(ng)%ad_h(i-1,jend)+adfac
471 grid(ng)%ad_h(i ,jend)=
grid(ng)%ad_h(i ,jend)+adfac
472 ad_zeta(i-1,jend,know)=ad_zeta(i-1,jend,know)+adfac
473 ad_zeta(i ,jend,know)=ad_zeta(i ,jend,know)+adfac
487 ad_ubar(i,jend+1,kout)=ad_ubar(i,jend+1,kout)* &
488 &
grid(ng)%umask(i,jend+1)
490# ifdef ADJUST_BOUNDARY
495 & ad_ubar_north(i)+ &
496 & ad_ubar(i,jend+1,kout)
497 ad_ubar(i,jend+1,kout)=0.0_r8
501 ad_ubar(i,jend+1,kout)=0.0_r8
506 ad_ubar(i,jend+1,kout)=0.0_r8
520 ad_ubar(i,jend+1,kout)=ad_ubar(i,jend+1,kout)* &
521 &
grid(ng)%umask(i,jend+1)
525 ad_ubar(i,jend,kout)=ad_ubar(i,jend,kout)+ &
526 & ad_ubar(i,jend+1,kout)
527 ad_ubar(i,jend+1,kout)=0.0_r8
548 ad_ubar(i,jend+1,kout)=ad_ubar(i,jend+1,kout)* &
549 &
grid(ng)%umask(i,jend+1)
553 ad_ubar(i,jend ,kout)=ad_ubar(i,jend,kout)+ &
554 &
gamma2(ng)*ad_ubar(i,jend+1,kout)
555 ad_ubar(i,jend+1,kout)=0.0_r8
565 IF (
domain(ng)%Southern_Edge(tile))
THEN
570 IF (
iic(ng).ne.0)
THEN
573# if defined CELERITY_READ && defined FORWARD_READ
577 & (
clima(ng)%M2nudgcof(i-1,jstr-1)+ &
578 &
clima(ng)%M2nudgcof(i ,jstr-1))
579 obc_in =
obcfac(ng)*obc_out
584 IF (
boundary(ng)%ubar_south_Ce(i).lt.0.0_r8)
THEN
603 ad_ubar(i,jstr-1,kout)=ad_ubar(i,jstr-1,kout)* &
604 &
grid(ng)%umask(i,jstr-1)
610 ad_ubar(i,jstr-1,know)=ad_ubar(i,jstr-1,know)- &
611 & tau*ad_ubar(i,jstr-1,kout)
621 adfac=ad_ubar(i,jstr-1,kout)/(cff+ce)
622 ad_grad(i-1,jstr-1)=ad_grad(i-1,jstr-1)- &
623 & max(cx,0.0_r8)*adfac
624 ad_grad(i ,jstr-1)=ad_grad(i ,jstr-1)- &
625 & min(cx,0.0_r8)*adfac
626 ad_ubar(i,jstr-1,know)=ad_ubar(i,jstr-1,know)+cff*adfac
627 ad_ubar(i,jstr ,kout)=ad_ubar(i,jstr ,kout)+ce *adfac
628 ad_ubar(i,jstr-1,kout)=0.0_r8
640 cff=dt2d*0.5_r8*(
grid(ng)%pn(i-1,jstr)+ &
641 &
grid(ng)%pn(i ,jstr))
642 cff1=sqrt(
g*0.5_r8*(
grid(ng)%h(i-1,jstr)+ &
643 & zeta(i-1,jstr,know)+ &
644 &
grid(ng)%h(i ,jstr)+ &
645 & zeta(i ,jstr,know)))
647 cff2=1.0_r8/(1.0_r8+ce)
652 ad_ubar(i,jstr-1,kout)=ad_ubar(i,jstr-1,kout)* &
653 &
grid(ng)%umask(i,jstr-1)
661 adfac=cff2*ad_ubar(i,jstr-1,kout)
662 ad_ubar(i,jstr-1,know)=ad_ubar(i,jstr-1,know)+adfac
663 ad_ubar(i,jstr ,kout)=ad_ubar(i,jstr ,kout)+ce*adfac
664 ad_ce=ad_ce+ubar(i,jstr,kout)*adfac
666 & (ubar(i,jstr-1,know)+ &
667 & ce*ubar(i,jstr,kout))*ad_ubar(i,jstr-1,kout)
668 ad_ubar(i,jstr-1,kout)=0.0_r8
671 ad_ce=ad_ce-cff2*cff2*ad_cff2
675 ad_cff1=ad_cff1+cff*ad_ce
682 adfac=0.25_r8*
g*ad_cff1/cff1
683 grid(ng)%ad_h(i-1,jstr)=
grid(ng)%ad_h(i-1,jstr)+adfac
684 grid(ng)%ad_h(i ,jstr)=
grid(ng)%ad_h(i ,jstr)+adfac
685 ad_zeta(i-1,jstr,know)=ad_zeta(i-1,jstr,know)+adfac
686 ad_zeta(i ,jstr,know)=ad_zeta(i ,jstr,know)+adfac
700 ad_ubar(i,jstr-1,kout)=ad_ubar(i,jstr-1,kout)* &
701 &
grid(ng)%umask(i,jstr-1)
703# ifdef ADJUST_BOUNDARY
708 & ad_ubar_south(i)+ &
709 & ad_ubar(i,jstr-1,kout)
710 ad_ubar(i,jstr-1,kout)=0.0_r8
714 ad_ubar(i,jstr-1,kout)=0.0_r8
719 ad_ubar(i,jstr-1,kout)=0.0_r8
733 ad_ubar(i,jstr-1,kout)=ad_ubar(i,jstr-1,kout)* &
734 &
grid(ng)%umask(i,jstr-1)
738 ad_ubar(i,jstr ,kout)=ad_ubar(i,jstr ,kout)+ &
739 & ad_ubar(i,jstr-1,kout)
740 ad_ubar(i,jstr-1,kout)=0.0_r8
761 ad_ubar(i,jstr-1,kout)=ad_ubar(i,jstr-1,kout)* &
762 &
grid(ng)%umask(i,jstr-1)
766 ad_ubar(i,jstr ,kout)=ad_ubar(i,jstr,kout)+ &
767 &
gamma2(ng)*ad_ubar(i,jstr-1,kout)
768 ad_ubar(i,jstr-1,kout)=0.0_r8
778 IF (
domain(ng)%Eastern_Edge(tile))
THEN
783 IF (
iic(ng).ne.0)
THEN
786# if defined CELERITY_READ && defined FORWARD_READ
790 & (
clima(ng)%M2nudgcof(iend ,j)+ &
791 &
clima(ng)%M2nudgcof(iend+1,j))
792 obc_in =
obcfac(ng)*obc_out
797 IF (
boundary(ng)%ubar_east_Cx(j).lt.0.0_r8)
THEN
816 ad_ubar(iend+1,j,kout)=ad_ubar(iend+1,j,kout)* &
817 &
grid(ng)%umask(iend+1,j)
823 ad_ubar(iend+1,j,know)=ad_ubar(iend+1,j,know)- &
824 & tau*ad_ubar(iend+1,j,kout)
834 adfac=ad_ubar(iend+1,j,kout)/(cff+cx)
835 ad_grad(iend+1,j )=ad_grad(iend+1,j )- &
836 & max(ce,0.0_r8)*adfac
837 ad_grad(iend+1,j+1)=ad_grad(iend+1,j+1)- &
838 & min(ce,0.0_r8)*adfac
839 ad_ubar(iend ,j,kout)=ad_ubar(iend ,j,kout)+cx *adfac
840 ad_ubar(iend+1,j,know)=ad_ubar(iend+1,j,know)+cff*adfac
841 ad_ubar(iend+1,j,kout)=0.0_r8
851 cff=1.0_r8/(0.5_r8*(
grid(ng)%h(iend ,j)+ &
852 & zeta(iend ,j,know)+ &
853 &
grid(ng)%h(iend+1,j)+ &
854 & zeta(iend+1,j,know)))
860 ad_ubar(iend+1,j,kout)=ad_ubar(iend+1,j,kout)* &
861 &
grid(ng)%umask(iend+1,j)
863# ifdef ADJUST_BOUNDARY
870 & cx*ad_ubar(iend+1,j,kout)
873# if defined ATM_PRESS && defined PRESS_COMPENSATE
887 adfac=cx*0.5_r8*ad_ubar(iend+1,j,kout)
888 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)+adfac
889 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+adfac
891 & (0.5_r8*(zeta(iend ,j,know)+ &
892 & zeta(iend+1,j,know)+ &
893 & fac*(
forces(ng)%Pair(iend ,j)+ &
894 &
forces(ng)%Pair(iend+1,j)- &
896 &
boundary(ng)%zeta_east(j))*ad_ubar(iend+1,j,kout)
897 ad_bry_val=ad_bry_val+ad_ubar(iend+1,j,kout)
898 ad_ubar(iend+1,j,kout)=0.0_r8
909 adfac=cx*0.5_r8*ad_ubar(iend+1,j,kout)
910 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)+adfac
911 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+adfac
913 & (0.5_r8*(zeta(iend ,j,know)+ &
914 & zeta(iend+1,j,know))- &
915 &
boundary(ng)%zeta_east(j))*ad_ubar(iend+1,j,kout)
916 ad_bry_val=ad_bry_val+ad_ubar(iend+1,j,kout)
917 ad_ubar(iend+1,j,kout)=0.0_r8
921 ad_cff=ad_cff+0.5_r8*
g*ad_cx/cx
928 adfac=-cff*cff*0.5_r8*ad_cff
929 grid(ng)%ad_h(iend ,j)=
grid(ng)%ad_h(iend ,j)+adfac
930 grid(ng)%ad_h(iend+1,j)=
grid(ng)%ad_h(iend+1,j)+adfac
931 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)+adfac
932 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+adfac
935# if defined SSH_TIDES_NOT_YET && !defined UV_TIDES_NOT_YET
938 & zeta(iend,j,know))* &
939 & 0.5_r8*
grid(ng)%pm(iend,j)
941 bry_pgr=-
g*(zeta(iend+1,j,know)- &
942 & zeta(iend ,j,know))* &
943 & 0.5_r8*(
grid(ng)%pm(iend ,j)+ &
944 &
grid(ng)%pm(iend+1,j))
947 bry_cor=0.125_r8*(vbar(iend ,j ,know)+ &
948 & vbar(iend ,j+1,know)+ &
949 & vbar(iend+1,j ,know)+ &
950 & vbar(iend+1,j+1,know))* &
951 & (
grid(ng)%f(iend ,j)+ &
952 &
grid(ng)%f(iend+1,j))
956 cff1=1.0_r8/(0.5_r8*(
grid(ng)%h(iend ,j)+ &
957 & zeta(iend ,j,know)+ &
958 &
grid(ng)%h(iend+1,j)+ &
959 & zeta(iend+1,j,know)))
960 bry_str=cff1*(
forces(ng)%sustr(iend+1,j)- &
961 &
forces(ng)%bustr(iend+1,j))
962 cx=1.0_r8/sqrt(
g*0.5_r8*(
grid(ng)%h(iend+1,j)+ &
963 & zeta(iend+1,j,know)+ &
964 &
grid(ng)%h(iend ,j)+ &
965 & zeta(iend ,j,know)))
966 cff2=
grid(ng)%om_u(iend+1,j)*cx
975 adfac=cff2*ad_bry_val
976 ad_bry_pgr=ad_bry_pgr+adfac
977 ad_bry_cor=ad_bry_cor+adfac
978 ad_bry_str=ad_bry_str+adfac
979 ad_cff2=ad_cff2+(bry_pgr+ &
981 & bry_str)*ad_bry_val
982 ad_ubar(iend,j,know)=ad_ubar(iend,j,know)+ad_bry_val
986 ad_cx=ad_cx+
grid(ng)%om_u(iend+1,j)*ad_cff2
993 adfac=-cx*cx*cx*0.25_r8*
g*ad_cx
994 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)+adfac
995 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+adfac
996 grid(ng)%ad_h(iend ,j)=
grid(ng)%ad_h(iend ,j)+adfac
997 grid(ng)%ad_h(iend+1,j)=
grid(ng)%ad_h(iend+1,j)+adfac
1004 adfac=cff1*ad_bry_str
1005 forces(ng)%ad_sustr(iend+1,j)= &
1006 &
forces(ng)%ad_sustr(iend+1,j)+ &
1008 forces(ng)%tl_bustr(iend+1,j)= &
1009 &
forces(ng)%tl_bustr(iend+1,j)- &
1011 ad_cff1=ad_cff1+(
forces(ng)%sustr(iend+1,j)- &
1012 &
forces(ng)%bustr(iend+1,j))*ad_bry_str
1019 adfac=-cff1*cff1*0.5_r8*ad_cff1
1020 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)+adfac
1021 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+adfac
1022 grid(ng)%ad_h(iend ,j)=
grid(ng)%ad_h(iend ,j)+adfac
1023 grid(ng)%ad_h(iend+1,j)=
grid(ng)%ad_h(iend+1,j)+adfac
1033 adfac=0.125_r8*(
grid(ng)%f(iend ,j)+ &
1034 &
grid(ng)%f(iend+1,j))*ad_bry_cor
1035 ad_vbar(iend ,j ,know)=ad_vbar(iend ,j ,know)+adfac
1036 ad_vbar(iend+1,j ,know)=ad_vbar(iend+1,j ,know)+adfac
1037 ad_vbar(iend ,j+1,know)=ad_vbar(iend ,j+1,know)+adfac
1038 ad_vbar(iend+1,j+1,know)=ad_vbar(iend+1,j+1,know)+adfac
1046# ifdef ADJUST_BOUNDARY
1053 & ad_zeta_east(j)- &
1055 &
grid(ng)%pm(iend,j)* &
1062 ad_zeta(iend,j,know)=ad_zeta(iend,j,know)+ &
1063 &
g*0.5_r8*
grid(ng)%pm(iend,j)* &
1072 adfac=-
g*0.5_r8*(
grid(ng)%pm(iend ,j)+ &
1073 &
grid(ng)%pm(iend+1,j))*ad_bry_pgr
1074 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)-adfac
1075 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+adfac
1079# ifdef ADJUST_BOUNDARY
1106# ifdef WET_DRY_NOT_YET
1107 cff=0.5_r8*(
grid(ng)%h(iend ,j)+ &
1108 & zeta(iend ,j,know)+ &
1109 &
grid(ng)%h(iend+1,j)+ &
1110 & zeta(iend+1,j,know))
1112 cff=0.5_r8*(
grid(ng)%h(iend ,j)+ &
1113 &
grid(ng)%h(iend+1,j))
1116 cx=dt2d*cff1*cff*0.5_r8*(
grid(ng)%pm(iend ,j)+ &
1117 &
grid(ng)%pm(iend+1,j))
1118 zx=(0.5_r8+cx)*zeta(iend ,j,know)+ &
1119 & (0.5_r8-cx)*zeta(iend+1,j,know)
1121 cff2=(1.0_r8-
co/cx)**2
1122 cff3=zeta(iend,j,kout)+ &
1123 & cx*zeta(iend+1,j,know)- &
1124 & (1.0_r8+cx)*zeta(iend,j,know)
1131 ad_ubar(iend+1,j,kout)=ad_ubar(iend+1,j,kout)* &
1132 &
grid(ng)%umask(iend+1,j)
1134# ifdef ADJUST_BOUNDARY
1143 & ad_ubar(iend+1,j,kout)
1157 adfac=0.5_r8*ad_ubar(iend+1,j,kout)
1158 ad_ubar(iend+1,j,know)=ad_ubar(iend+1,j,know)+ &
1160 ad_ubar(iend ,j,know)=ad_ubar(iend ,j,know)+ &
1163 & (ubar(iend ,j,know)- &
1164 & ubar(iend+1,j,know))*adfac
1165 ad_bry_val=ad_bry_val+adfac
1167 & (zx-
boundary(ng)%zeta_east(j))*adfac
1168 ad_zx=ad_zx-cff1*adfac
1169 ad_ubar(iend+1,j,kout)=0.0_r8
1174 ad_cff2=ad_cff2+cff3*ad_zx
1175 ad_cff3=ad_cff3+cff2*ad_zx
1182 ad_zeta(iend ,j,kout)=ad_zeta(iend ,j,kout)+ &
1184 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)- &
1185 & (1.0_r8+cx)*ad_cff3
1186 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+ &
1189 & (zeta(iend ,j,know)+ &
1190 & zeta(iend+1,j,know))*ad_cff3
1195 & 2.0_r8*cff2*
co*ad_cff2/(cx*cx)
1203 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)+ &
1205 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+ &
1208 & (zeta(iend ,j,know)- &
1209 & zeta(iend+1,j,know))*ad_zx
1216 adfac=dt2d*0.5_r8*(
grid(ng)%pm(iend ,j)+ &
1217 &
grid(ng)%pm(iend+1,j))*ad_cx
1218 ad_cff=ad_cff+cff1*adfac
1219 ad_cff1=ad_cff1+cff*adfac
1224 & 0.5_r8*cff1*ad_cff1/cff
1226# ifdef WET_DRY_NOT_YET
1233 grid(ng)%ad_h(iend ,j)=
grid(ng)%ad_h(iend ,j)+adfac
1234 grid(ng)%ad_h(iend+1,j)=
grid(ng)%ad_h(iend+1,j)+adfac
1235 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)+adfac
1236 ad_zeta(iend+1,j,know)=tl_zeta(iend+1,j,know)+adfac
1243 grid(ng)%ad_h(iend ,j)=
grid(ng)%ad_h(iend ,j)+adfac
1244 grid(ng)%ad_h(iend+1,j)=
grid(ng)%ad_h(iend+1,j)+adfac
1247# if defined SSH_TIDES_NOT_YET && !defined UV_TIDES_NOT_YET
1249 bry_pgr=-
g*(
boundary(ng)%zeta_east(j)- &
1250 & zeta(iend,j,know))* &
1251 & 0.5_r8*
grid(ng)%pm(iend,j)
1253 bry_pgr=-
g*(zeta(iend+1,j,know)- &
1254 & zeta(iend ,j,know))* &
1255 & 0.5_r8*(
grid(ng)%pm(iend ,j)+ &
1256 &
grid(ng)%pm(iend+1,j))
1259 bry_cor=0.125_r8*(vbar(iend ,j ,know)+ &
1260 & vbar(iend ,j+1,know)+ &
1261 & vbar(iend+1,j ,know)+ &
1262 & vbar(iend+1,j+1,know))* &
1263 & (
grid(ng)%f(iend ,j)+ &
1264 &
grid(ng)%f(iend+1,j))
1268 cff1=1.0_r8/(0.5_r8*(
grid(ng)%h(iend ,j)+ &
1269 & zeta(iend ,j,know)+ &
1270 &
grid(ng)%h(iend+1,j)+ &
1271 & zeta(iend+1,j,know)))
1272 bry_str=cff1*(
forces(ng)%sustr(iend+1,j)- &
1273 &
forces(ng)%bustr(iend+1,j))
1274 cx=1.0_r8/sqrt(
g*0.5_r8*(
grid(ng)%h(iend+1,j)+ &
1275 & zeta(iend+1,j,know)+ &
1276 &
grid(ng)%h(iend ,j)+ &
1277 & zeta(iend ,j,know)))
1278 cff2=
grid(ng)%om_u(iend+1,j)*cx
1287 adfac=cff2*ad_bry_val
1288 ad_bry_pgr=ad_bry_pgr+adfac
1289 ad_bry_cor=ad_bry_cor+adfac
1290 ad_bry_str=ad_bry_str+adfac
1291 ad_cff2=ad_cff2+(bry_pgr+ &
1293 & bry_str)*ad_bry_val
1294 ad_ubar(iend,j,know)=ad_ubar(iend,j,know)+ad_bry_val
1298 ad_cx=ad_cx+
grid(ng)%om_u(iend+1,j)*ad_cff2
1305 adfac=-cx*cx*cx*0.25_r8*
g*ad_cx
1306 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)+adfac
1307 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+adfac
1308 grid(ng)%ad_h(iend ,j)=
grid(ng)%ad_h(iend ,j)+adfac
1309 grid(ng)%ad_h(iend+1,j)=
grid(ng)%ad_h(iend+1,j)+adfac
1316 adfac=cff1*ad_bry_str
1317 forces(ng)%ad_sustr(iend+1,j)= &
1318 &
forces(ng)%ad_sustr(iend+1,j)+ &
1320 forces(ng)%tl_bustr(iend+1,j)= &
1321 &
forces(ng)%tl_bustr(iend+1,j)- &
1323 ad_cff1=ad_cff1+(
forces(ng)%sustr(iend+1,j)- &
1324 &
forces(ng)%bustr(iend+1,j))*ad_bry_str
1331 adfac=-cff1*cff1*0.5_r8*ad_cff1
1332 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)+adfac
1333 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+adfac
1334 grid(ng)%ad_h(iend ,j)=
grid(ng)%ad_h(iend ,j)+adfac
1335 grid(ng)%ad_h(iend+1,j)=
grid(ng)%ad_h(iend+1,j)+adfac
1345 adfac=0.125_r8*(
grid(ng)%f(iend ,j)+ &
1346 &
grid(ng)%f(iend+1,j))*ad_bry_cor
1347 ad_vbar(iend ,j ,know)=ad_vbar(iend ,j ,know)+adfac
1348 ad_vbar(iend+1,j ,know)=ad_vbar(iend+1,j ,know)+adfac
1349 ad_vbar(iend ,j+1,know)=ad_vbar(iend ,j+1,know)+adfac
1350 ad_vbar(iend+1,j+1,know)=ad_vbar(iend+1,j+1,know)+adfac
1358# ifdef ADJUST_BOUNDARY
1365 & ad_zeta_east(j)- &
1367 &
grid(ng)%pm(iend,j)* &
1374 ad_zeta(iend,j,know)=ad_zeta(iend,j,know)+ &
1375 &
g*0.5_r8*
grid(ng)%pm(iend,j)* &
1384 adfac=-
g*0.5_r8*(
grid(ng)%pm(iend ,j)+ &
1385 &
grid(ng)%pm(iend+1,j))*ad_bry_pgr
1386 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)-adfac
1387 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+adfac
1391# ifdef ADJUST_BOUNDARY
1422 ad_ubar(iend+1,j,kout)=ad_ubar(iend+1,j,kout)* &
1423 &
grid(ng)%umask(iend+1,j)
1425# ifdef ADJUST_BOUNDARY
1431 & ad_ubar(iend+1,j,kout)
1432 ad_ubar(iend+1,j,kout)=0.0_r8
1436 ad_ubar(iend+1,j,kout)=0.0_r8
1441 ad_ubar(iend+1,j,kout)=0.0_r8
1455 ad_ubar(iend+1,j,kout)=ad_ubar(iend+1,j,kout)* &
1456 &
grid(ng)%umask(iend+1,j)
1460 ad_ubar(iend,j,kout)=ad_ubar(iend,j,kout)+ &
1461 & ad_ubar(iend+1,j,kout)
1462 ad_ubar(iend+1,j,kout)=0.0_r8
1471 cff=1.0_r8/(0.5_r8*(
grid(ng)%h(iend ,j)+ &
1472 & zeta(iend ,j,know)+ &
1473 &
grid(ng)%h(iend+1,j)+ &
1474 & zeta(iend+1,j,know)))
1479 ad_ubar(iend+1,j,kout)=ad_ubar(iend+1,j,kout)* &
1480 &
grid(ng)%umask(iend+1,j)
1487 adfac=dt2d*ad_ubar(iend+1,j,kout)
1488 ad_bry_pgr=ad_bry_pgr+adfac
1489 ad_bry_cor=ad_bry_cor+adfac
1490 ad_bry_str=ad_bry_str+adfac
1491 ad_ubar(iend+1,j,know)=ad_ubar(iend+1,j,know)+ &
1492 & ad_ubar(iend+1,j,kout)
1493 ad_ubar(iend+1,j,kout)=0.0_r8
1499 adfac=cff*ad_bry_str
1500 forces(ng)%ad_sustr(iend+1,j)= &
1501 &
forces(ng)%ad_sustr(iend+1,j)+ &
1503 forces(ng)%ad_bustr(iend+1,j)= &
1504 &
forces(ng)%ad_bustr(iend+1,j)- &
1506 ad_cff=ad_cff+(
forces(ng)%sustr(iend+1,j)- &
1507 &
forces(ng)%bustr(iend+1,j))*ad_bry_str
1517 adfac=0.125_r8*(
grid(ng)%f(iend,j)+ &
1518 &
grid(ng)%f(iend+1,j))*ad_bry_cor
1519 ad_vbar(iend, j ,know)=ad_vbar(iend ,j ,know)+adfac
1520 ad_vbar(iend+1,j ,know)=ad_vbar(iend+1,j ,know)+adfac
1521 ad_vbar(iend ,j+1,know)=ad_vbar(iend ,j+1,know)+adfac
1522 ad_vbar(iend+1,j+1,know)=ad_vbar(iend+1,j+1,know)+adfac
1530# ifdef ADJUST_BOUNDARY
1537 & ad_zeta_east(j)- &
1539 &
grid(ng)%pm(iend,j)* &
1546 ad_zeta(iend,j,know)=ad_zeta(iend,j,know)+ &
1547 &
g*0.5_r8*
grid(ng)%pm(iend,j)* &
1556 adfac=-
g*0.5_r8*(
grid(ng)%pm(iend ,j)+ &
1557 &
grid(ng)%pm(iend+1,j))*ad_bry_pgr
1558 ad_zeta(iend ,j,know)=ad_zeta(iend ,j,know)-adfac
1559 ad_zeta(iend+1,j,know)=ad_zeta(iend+1,j,know)+adfac
1572 ad_ubar(iend+1,j,kout)=0.0_r8
1582 IF (
domain(ng)%Western_Edge(tile))
THEN
1587 IF (
iic(ng).ne.0)
THEN
1590# if defined CELERITY_READ && defined FORWARD_READ
1594 & (
clima(ng)%M2nudgcof(istr-1,j)+ &
1595 &
clima(ng)%M2nudgcof(istr ,j))
1596 obc_in =
obcfac(ng)*obc_out
1601 IF (
boundary(ng)%ubar_west_Cx(j).lt.0.0_r8)
THEN
1620 ad_ubar(istr,j,kout)=ad_ubar(istr,j,kout)* &
1621 &
grid(ng)%umask(istr,j)
1627 ad_ubar(istr,j,know)=ad_ubar(istr,j,know)- &
1628 & tau*ad_ubar(istr,j,kout)
1638 adfac=ad_ubar(istr,j,kout)/(cff+cx)
1639 ad_grad(istr,j )=ad_grad(istr,j )-max(ce,0.0_r8)*adfac
1640 ad_grad(istr,j+1)=ad_grad(istr,j+1)-min(ce,0.0_r8)*adfac
1641 ad_ubar(istr ,j,know)=ad_ubar(istr ,j,know)+cff*adfac
1642 ad_ubar(istr+1,j,kout)=ad_ubar(istr+1,j,kout)+cx *adfac
1643 ad_ubar(istr ,j,kout)=0.0_r8
1653 cff=1.0_r8/(0.5_r8*(
grid(ng)%h(istr-1,j)+ &
1654 & zeta(istr-1,j,know)+ &
1655 &
grid(ng)%h(istr ,j)+ &
1656 & zeta(istr ,j,know)))
1662 ad_ubar(istr,j,kout)=ad_ubar(istr,j,kout)* &
1663 &
grid(ng)%umask(istr,j)
1665# ifdef ADJUST_BOUNDARY
1672 & cx*ad_ubar(istr,j,kout)
1675# if defined ATM_PRESS && defined PRESS_COMPENSATE
1690 adfac=cx*0.5_r8*ad_ubar(istr,j,kout)
1691 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)-adfac
1692 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)-adfac
1694 & (0.5_r8*(zeta(istr-1,j,know)+ &
1695 & zeta(istr ,j,know)+ &
1696 & fac*(
forces(ng)%Pair(istr-1,j)+ &
1697 &
forces(ng)%Pair(istr ,j)- &
1698 & 2.0_r8*oneatm))- &
1699 &
boundary(ng)%zeta_west(j))*ad_ubar(istr,j,kout)
1700 ad_bry_val=ad_bry_val+ad_ubar(istr,j,kout)
1701 ad_ubar(istr,j,kout)=0.0_r8
1712 adfac=cx*0.5_r8*ad_ubar(istr,j,kout)
1713 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)-adfac
1714 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)-adfac
1716 & (0.5_r8*(zeta(istr-1,j,know)+ &
1717 & zeta(istr ,j,know))- &
1718 &
boundary(ng)%zeta_west(j))*ad_ubar(istr,j,kout)
1719 ad_bry_val=ad_bry_val+ad_ubar(istr,j,kout)
1720 ad_ubar(istr,j,kout)=0.0_r8
1724 ad_cff=ad_cff+0.5_r8*
g*ad_cx/cx
1731 adfac=-cff*cff*0.5_r8*ad_cff
1732 grid(ng)%ad_h(istr-1,j)=
grid(ng)%ad_h(istr-1,j)+adfac
1733 grid(ng)%ad_h(istr ,j)=
grid(ng)%ad_h(istr ,j)+adfac
1734 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)+adfac
1735 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)+adfac
1738# if defined SSH_TIDES_NOT_YET && !defined UV_TIDES_NOT_YET
1740 bry_pgr=-
g*(zeta(istr,j,know)- &
1742 & 0.5_r8*
grid(ng)%pm(istr,j)
1744 bry_pgr=-
g*(zeta(istr ,j,know)- &
1745 & zeta(istr-1,j,know))* &
1746 & 0.5_r8*(
grid(ng)%pm(istr-1,j)+ &
1747 &
grid(ng)%pm(istr,j))
1750 bry_cor=0.125_r8*(vbar(istr-1,j ,know)+ &
1751 & vbar(istr-1,j+1,know)+ &
1752 & vbar(istr ,j ,know)+ &
1753 & vbar(istr ,j+1,know))* &
1754 & (
grid(ng)%f(istr-1,j)+ &
1755 &
grid(ng)%f(istr,j))
1759 cff1=1.0_r8/(0.5_r8*(
grid(ng)%h(istr-1,j)+ &
1760 & zeta(istr-1,j,know)+ &
1761 &
grid(ng)%h(istr ,j)+ &
1762 & zeta(istr ,j,know)))
1763 bry_str=cff1*(
forces(ng)%sustr(istr,j)- &
1764 &
forces(ng)%bustr(istr,j))
1765 cx=1.0_r8/sqrt(
g*0.5_r8*(
grid(ng)%h(istr-1,j)+ &
1766 & zeta(istr-1,j,know)+ &
1767 &
grid(ng)%h(istr ,j)+ &
1768 & zeta(istr ,j,know)))
1769 cff2=
grid(ng)%om_u(istr,j)*cx
1778 adfac=cff2*ad_bry_val
1779 ad_bry_pgr=ad_bry_pgr+adfac
1780 ad_bry_cor=ad_bry_cor+adfac
1781 ad_bry_str=ad_bry_str+adfac
1782 ad_cff2=ad_cff2+(bry_pgr+ &
1784 & bry_str)*ad_bry_val
1785 ad_ubar(istr+1,j,know)=ad_ubar(istr+1,j,know)+ad_bry_val
1789 ad_cx=ad_cx+
grid(ng)%om_u(istr,j)*ad_cff2
1796 adfac=-cx*cx*cx*0.25_r8*
g*ad_cx
1797 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)+adfac
1798 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)+adfac
1799 grid(ng)%ad_h(istr-1,j)=
grid(ng)%ad_h(istr-1,j)+adfac
1800 grid(ng)%ad_h(istr ,j)=
grid(ng)%ad_h(istr ,j)+adfac
1807 adfac=cff1*ad_bry_str
1808 forces(ng)%ad_sustr(istr,j)=
forces(ng)%ad_sustr(istr,j)+ &
1810 forces(ng)%ad_bustr(istr,j)=
forces(ng)%ad_bustr(istr,j)- &
1812 ad_cff1=ad_cff1+(
forces(ng)%sustr(istr,j)- &
1813 &
forces(ng)%bustr(istr,j))*ad_bry_str
1820 adfac=-cff1*cff1*0.5_r8*ad_cff1
1821 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)+adfac
1822 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)+adfac
1823 grid(ng)%ad_h(istr-1,j)=
grid(ng)%ad_h(istr-1,j)+adfac
1824 grid(ng)%ad_h(istr ,j)=
grid(ng)%ad_h(istr ,j)+adfac
1834 adfac=0.125_r8*(
grid(ng)%f(istr-1,j)+ &
1835 &
grid(ng)%f(istr ,j))*ad_bry_cor
1836 ad_vbar(istr-1,j ,know)=ad_vbar(istr-1,j ,know)+adfac
1837 ad_vbar(istr ,j ,know)=ad_vbar(istr ,j ,know)+adfac
1838 ad_vbar(istr-1,j+1,know)=ad_vbar(istr-1,j+1,know)+adfac
1839 ad_vbar(istr ,j+1,know)=ad_vbar(istr ,j+1,know)+adfac
1847# ifdef ADJUST_BOUNDARY
1854 & ad_zeta_west(j)+ &
1856 &
grid(ng)%pm(istr,j)* &
1863 ad_zeta(istr,j,know)=ad_zeta(istr,j,know)- &
1864 &
g*0.5_r8*
grid(ng)%pm(istr,j)* &
1873 adfac=-
g*0.5_r8*(
grid(ng)%pm(istr-1,j)+ &
1874 &
grid(ng)%pm(istr ,j))*ad_bry_pgr
1875 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)-adfac
1876 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)+adfac
1880# ifdef ADJUST_BOUNDARY
1907# ifdef WET_DRY_NOT_YET
1908 cff=0.5_r8*(
grid(ng)%h(istr-1,j)+ &
1909 & zeta(istr-1,j,know)+ &
1910 &
grid(ng)%h(istr ,j)+ &
1911 & zeta(istr ,j,know))
1913 cff=0.5_r8*(
grid(ng)%h(istr-1,j)+ &
1914 &
grid(ng)%h(istr ,j))
1917 cx=dt2d*cff1*cff*0.5_r8*(
grid(ng)%pm(istr-1,j)+ &
1918 &
grid(ng)%pm(istr ,j))
1919 zx=(0.5_r8+cx)*zeta(istr ,j,know)+ &
1920 & (0.5_r8-cx)*zeta(istr-1,j,know)
1922 cff2=(1.0_r8-
co/cx)**2
1923 cff3=zeta(istr,j,kout)+ &
1924 & cx*zeta(istr-1,j,know)- &
1925 & (1.0_r8+cx)*zeta(istr,j,know)
1932 ad_ubar(istr,j,kout)=ad_ubar(istr,j,kout)* &
1933 &
grid(ng)%umask(istr,j)
1935# ifdef ADJUST_BOUNDARY
1942 & cx*ad_ubar(istr,j,kout)
1956 adfac=0.5_r8*ad_ubar(istr,j,kout)
1957 ad_ubar(istr, j,know)=ad_ubar(istr ,j,know)+ &
1959 ad_ubar(istr+1,j,know)=ad_ubar(istr+1,j,know)+ &
1962 (ubar(istr ,j,know)- &
1963 & ubar(istr+1,j,know))*adfac
1964 ad_bry_val=ad_bry_val+adfac
1966 & (zx-
boundary(ng)%zeta_west(j))*adfac
1967 ad_zx=ad_zx-cff1*adfac
1968 ad_ubar(istr,j,kout)=0.0_r8
1973 ad_cff2=ad_cff2+cff3*ad_zx
1974 ad_cff3=ad_cff3+cff2*ad_zx
1981 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)+ &
1983 ad_zeta(istr ,j,kout)=ad_zeta(istr ,j,kout)+ &
1985 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)- &
1986 & (1.0_r8+cx)*ad_cff3
1988 & (zeta(istr-1,j,know)+ &
1989 & zeta(istr ,j,know))*ad_cff3
1994 & 2.0_r8*cff2*
co*ad_cff2/(cx*cx)
2002 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)+ &
2004 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)+ &
2007 & (zeta(istr ,j,know)- &
2008 & zeta(istr-1,j,know))*ad_zx
2015 adfac=dt2d*0.5_r8*(
grid(ng)%pm(istr-1,j)+ &
2016 &
grid(ng)%pm(istr ,j))*ad_cx
2017 ad_cff=ad_cff+cff1*adfac
2018 ad_cff1=ad_cff1+cff*adfac
2023 & 0.5_r8*cff1*ad_cff1/cff
2025# ifdef WET_DRY_NOT_YET
2032 grid(ng)%ad_h(istr-1,j)=
grid(ng)%ad_h(istr-1,j)+adfac
2033 grid(ng)%ad_h(istr ,j)=
grid(ng)%ad_h(istr ,j)+adfac
2034 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)+adfac
2035 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)+adfac
2042 grid(ng)%ad_h(istr-1,j)=
grid(ng)%ad_h(istr-1,j)+adfac
2043 grid(ng)%ad_h(istr ,j)=
grid(ng)%ad_h(istr ,j)+adfac
2046# if defined SSH_TIDES_NOT_YET && !defined UV_TIDES_NOT_YET
2048 bry_pgr=-
g*(zeta(istr,j,know)- &
2050 & 0.5_r8*
grid(ng)%pm(istr,j)
2052 bry_pgr=-
g*(zeta(istr ,j,know)- &
2053 & zeta(istr-1,j,know))* &
2054 & 0.5_r8*(
grid(ng)%pm(istr-1,j)+ &
2055 &
grid(ng)%pm(istr ,j))
2058 bry_cor=0.125_r8*(vbar(istr-1,j ,know)+ &
2059 & vbar(istr-1,j+1,know)+ &
2060 & vbar(istr ,j ,know)+ &
2061 & vbar(istr ,j+1,know))* &
2062 & (
grid(ng)%f(istr-1,j)+ &
2063 &
grid(ng)%f(istr ,j))
2067 cff1=1.0_r8/(0.5_r8*(
grid(ng)%h(istr-1,j)+ &
2068 & zeta(istr-1,j,know)+ &
2069 &
grid(ng)%h(istr ,j)+ &
2070 & zeta(istr ,j,know)))
2071 bry_str=cff1*(
forces(ng)%sustr(istr,j)- &
2072 &
forces(ng)%bustr(istr,j))
2073 cx=1.0_r8/sqrt(
g*0.5_r8*(
grid(ng)%h(istr-1,j)+ &
2074 & zeta(istr-1,j,know)+ &
2075 &
grid(ng)%h(istr ,j)+ &
2076 & zeta(istr ,j,know)))
2077 cff2=
grid(ng)%om_u(istr,j)*cx
2086 adfac=cff2*ad_bry_val
2087 ad_bry_pgr=ad_bry_pgr+adfac
2088 ad_bry_cor=ad_bry_cor+adfac
2089 ad_bry_str=ad_bry_str+adfac
2093 & bry_str)*ad_bry_val
2094 ad_ubar(istr+1,j,know)=ad_ubar(istr+1,j,know)+ &
2099 ad_cx=ad_cx+
grid(ng)%om_u(istr,j)*ad_cff2
2106 adfac=-cx*cx*cx*0.25_r8*
g*ad_cx
2107 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)+adfac
2108 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)+adfac
2109 grid(ng)%ad_h(istr-1,j)=
grid(ng)%ad_h(istr-1,j)+adfac
2110 grid(ng)%ad_h(istr ,j)=
grid(ng)%ad_h(istr ,j)+adfac
2117 adfac=cff1*ad_bry_str
2118 forces(ng)%ad_sustr(istr,j)=
forces(ng)%ad_sustr(istr,j)+ &
2120 forces(ng)%ad_bustr(istr,j)=
forces(ng)%ad_bustr(istr,j)- &
2122 ad_cff1=ad_cff1+(
forces(ng)%sustr(istr,j)- &
2123 &
forces(ng)%bustr(istr,j))*ad_bry_str
2130 adfac=-cff1*cff1*0.5_r8*ad_cff1
2131 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)+adfac
2132 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)+adfac
2133 grid(ng)%ad_h(istr-1,j)=
grid(ng)%ad_h(istr-1,j)+adfac
2134 grid(ng)%ad_h(istr ,j)=
grid(ng)%ad_h(istr ,j)+adfac
2144 adfac=0.125_r8*(
grid(ng)%f(istr-1,j)+ &
2145 &
grid(ng)%f(istr ,j))*ad_bry_cor
2146 ad_vbar(istr-1,j ,know)=ad_vbar(istr-1,j ,know)+adfac
2147 ad_vbar(istr ,j ,know)=ad_vbar(istr ,j ,know)+adfac
2148 ad_vbar(istr-1,j+1,know)=ad_vbar(istr-1,j+1,know)+adfac
2149 ad_vbar(istr ,j+1,know)=ad_vbar(istr ,j+1,know)+adfac
2157# ifdef ADJUST_BOUNDARY
2164 & ad_zeta_west(j)+ &
2166 &
grid(ng)%pm(istr,j)* &
2173 ad_zeta(istr,j,know)=ad_zeta(istr,j,know)- &
2174 &
g*0.5_r8*
grid(ng)%pm(istr,j)* &
2183 adfac=-
g*0.5_r8*(
grid(ng)%pm(istr-1,j)+ &
2184 &
grid(ng)%pm(istr ,j))*ad_bry_pgr
2185 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)-adfac
2186 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)+adfac
2190# ifdef ADJUST_BOUNDARY
2195 & ad_ubar_west(j)+ &
2221 ad_ubar(istr,j,kout)=ad_ubar(istr,j,kout)* &
2222 &
grid(ng)%umask(istr,j)
2224# ifdef ADJUST_BOUNDARY
2230 & ad_ubar(istr,j,kout)
2231 ad_ubar(istr,j,kout)=0.0_r8
2235 ad_ubar(istr,j,kout)=0.0_r8
2240 ad_ubar(istr,j,kout)=0.0_r8
2254 ad_ubar(istr,j,kout)=ad_ubar(istr,j,kout)* &
2255 &
grid(ng)%umask(istr,j)
2259 ad_ubar(istr+1,j,kout)=ad_ubar(istr+1,j,kout)+ &
2260 & ad_ubar(istr,j,kout)
2261 ad_ubar(istr ,j,kout)=0.0_r8
2270 cff=1.0_r8/(0.5_r8*(
grid(ng)%h(iend ,j)+ &
2271 & zeta(iend ,j,know)+ &
2272 &
grid(ng)%h(iend+1,j)+ &
2273 & zeta(iend+1,j,know)))
2278 ad_ubar(istr,j,kout)=ad_ubar(istr,j,kout)* &
2279 &
grid(ng)%umask(istr,j)
2286 adfac=dt2d*ad_ubar(istr,j,kout)
2287 ad_bry_pgr=ad_bry_pgr+adfac
2288 ad_bry_cor=ad_bry_cor+adfac
2289 ad_bry_str=ad_bry_str+adfac
2290 ad_ubar(istr,j,know)=ad_ubar(istr,j,know)+ &
2291 & ad_ubar(istr,j,kout)
2292 ad_ubar(istr,j,kout)=0.0_r8
2298 adfac=cff*ad_bry_str
2299 forces(ng)%ad_sustr(istr,j)=
forces(ng)%ad_sustr(istr,j)+ &
2301 forces(ng)%ad_bustr(istr,j)=
forces(ng)%ad_bustr(istr,j)- &
2303 ad_cff=ad_cff+(
forces(ng)%sustr(istr,j)- &
2304 &
forces(ng)%bustr(istr,j))*ad_bry_str
2311 adfac=-cff*cff*0.5_r8*ad_cff
2312 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)+adfac
2313 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)+adfac
2314 grid(ng)%ad_h(istr-1,j)=
grid(ng)%ad_h(istr-1,j)+adfac
2315 grid(ng)%ad_h(istr ,j)=
grid(ng)%ad_h(istr ,j)+adfac
2325 adfac=0.125_r8*(
grid(ng)%f(istr-1,j)+ &
2326 &
grid(ng)%f(istr ,j))*ad_bry_cor
2327 ad_vbar(istr-1,j ,know)=ad_vbar(istr-1,j ,know)+adfac
2328 ad_vbar(istr ,j ,know)=ad_vbar(istr ,j ,know)+adfac
2329 ad_vbar(istr-1,j+1,know)=ad_vbar(istr-1,j+1,know)+adfac
2330 ad_vbar(istr ,j+1,know)=ad_vbar(istr ,j+1,know)+adfac
2338# ifdef ADJUST_BOUNDARY
2345 & ad_zeta_west(j)+ &
2347 &
grid(ng)%pm(istr,j)* &
2354 ad_zeta(istr,j,know)=ad_zeta(istr,j,know)- &
2355 &
g*0.5_r8*
grid(ng)%pm(istr,j)* &
2364 adfac=-
g*0.5_r8*(
grid(ng)%pm(istr-1,j)+ &
2365 &
grid(ng)%pm(istr ,j))*ad_bry_pgr
2366 ad_zeta(istr-1,j,know)=ad_zeta(istr-1,j,know)-adfac
2367 ad_zeta(istr ,j,know)=ad_zeta(istr ,j,know)+adfac
2380 ad_ubar(istr,j,kout)=0.0_r8