34 integer,
intent(in) :: ng, tile
38 character (len=*),
parameter :: myfile = &
47 & lbi, ubi, lbj, ubj, &
48 & imins, imaxs, jmins, jmaxs, &
60 & LBi, UBi, LBj, UBj, &
61 & IminS, ImaxS, JminS, JmaxS, &
75 integer,
intent(in) :: ng, tile
76 integer,
intent(in) :: LBi, UBi, LBj, UBj
77 integer,
intent(in) :: IminS, ImaxS, JminS, JmaxS
80 real(r8),
intent(in) :: Zt_avg1(LBi:,LBj:)
82 real(r8),
intent(out) :: zeta(LBi:,LBj:,:)
84 real(r8),
intent(in) :: Zt_avg1(LBi:UBi,LBj:UBj)
86 real(r8),
intent(out) :: zeta(LBi:UBi,LBj:UBj,3)
93# include "set_bounds.h"
103 zeta(i,j,1)=zt_avg1(i,j)
104 zeta(i,j,2)=zt_avg1(i,j)
110 & lbi, ubi, lbj, ubj, &
113 & lbi, ubi, lbj, ubj, &
119 & 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 set_zeta(ng, tile)
subroutine set_zeta_tile(ng, tile, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, zt_avg1, zeta)
recursive subroutine wclock_off(ng, model, region, line, routine)
recursive subroutine wclock_on(ng, model, region, line, routine)