4#if defined TANGENT && defined SOLVE3D
35 integer,
intent(in) :: ng, tile
39 character (len=*),
parameter :: myfile = &
48 & lbi, ubi, lbj, ubj, &
49 & imins, imaxs, jmins, jmaxs, &
51 &
ocean(ng) % tl_zeta)
61 & LBi, UBi, LBj, UBj, &
62 & IminS, ImaxS, JminS, JmaxS, &
63 & tl_Zt_avg1, tl_zeta)
76 integer,
intent(in) :: ng, tile
77 integer,
intent(in) :: LBi, UBi, LBj, UBj
78 integer,
intent(in) :: IminS, ImaxS, JminS, JmaxS
81 real(r8),
intent(in) :: tl_Zt_avg1(LBi:,LBj:)
83 real(r8),
intent(out) :: tl_zeta(LBi:,LBj:,:)
85 real(r8),
intent(in) :: tl_Zt_avg1(LBi:UBi,LBj:UBj)
87 real(r8),
intent(out) :: tl_zeta(LBi:UBi,LBj:UBj,3)
94# include "set_bounds.h"
107 tl_zeta(i,j,1)=tl_zt_avg1(i,j)
108 tl_zeta(i,j,2)=tl_zt_avg1(i,j)
118 & lbi, ubi, lbj, ubj, &
125 & lbi, ubi, lbj, ubj, &
138 & lbi, ubi, lbj, ubj, &
subroutine exchange_r2d_tile(ng, tile, lbi, ubi, lbj, ubj, a)
type(t_coupling), dimension(:), allocatable coupling
type(t_ocean), dimension(:), allocatable ocean
logical, dimension(:), allocatable ewperiodic
logical, dimension(:), allocatable nsperiodic
subroutine mp_exchange2d(ng, tile, model, nvar, lbi, ubi, lbj, ubj, nghost, ew_periodic, ns_periodic, a, b, c, d)
subroutine, public tl_set_zeta(ng, tile)
subroutine tl_set_zeta_tile(ng, tile, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, tl_zt_avg1, tl_zeta)
recursive subroutine wclock_off(ng, model, region, line, routine)
recursive subroutine wclock_on(ng, model, region, line, routine)