! This file is generated by 'scripts/generate.py' using
!    /src/xbeachlibrary/variables.def
!    /src/xbeachlibrary/params.def
!    src/xbeachlibray/templates/get_var.mako
! Advice: do not edit this file, but above mentioned files.


! if you want to reference a pointer variable
! you have to point to the first element

case ('x')
x = c_loc(spointer%x(lbound(s%x, 1),lbound(s%x, 2)))

case ('y')
x = c_loc(spointer%y(lbound(s%y, 1),lbound(s%y, 2)))

case ('xz')
x = c_loc(spointer%xz(lbound(s%xz, 1),lbound(s%xz, 2)))

case ('yz')
x = c_loc(spointer%yz(lbound(s%yz, 1),lbound(s%yz, 2)))

case ('xu')
x = c_loc(spointer%xu(lbound(s%xu, 1),lbound(s%xu, 2)))

case ('yu')
x = c_loc(spointer%yu(lbound(s%yu, 1),lbound(s%yu, 2)))

case ('xv')
x = c_loc(spointer%xv(lbound(s%xv, 1),lbound(s%xv, 2)))

case ('yv')
x = c_loc(spointer%yv(lbound(s%yv, 1),lbound(s%yv, 2)))

case ('dsu')
x = c_loc(spointer%dsu(lbound(s%dsu, 1),lbound(s%dsu, 2)))

case ('dsv')
x = c_loc(spointer%dsv(lbound(s%dsv, 1),lbound(s%dsv, 2)))

case ('dsz')
x = c_loc(spointer%dsz(lbound(s%dsz, 1),lbound(s%dsz, 2)))

case ('dsc')
x = c_loc(spointer%dsc(lbound(s%dsc, 1),lbound(s%dsc, 2)))

case ('dnu')
x = c_loc(spointer%dnu(lbound(s%dnu, 1),lbound(s%dnu, 2)))

case ('dnv')
x = c_loc(spointer%dnv(lbound(s%dnv, 1),lbound(s%dnv, 2)))

case ('dnz')
x = c_loc(spointer%dnz(lbound(s%dnz, 1),lbound(s%dnz, 2)))

case ('dnc')
x = c_loc(spointer%dnc(lbound(s%dnc, 1),lbound(s%dnc, 2)))

case ('dsdnui')
x = c_loc(spointer%dsdnui(lbound(s%dsdnui, 1),lbound(s%dsdnui, 2)))

case ('dsdnvi')
x = c_loc(spointer%dsdnvi(lbound(s%dsdnvi, 1),lbound(s%dsdnvi, 2)))

case ('dsdnzi')
x = c_loc(spointer%dsdnzi(lbound(s%dsdnzi, 1),lbound(s%dsdnzi, 2)))

case ('alfaz')
x = c_loc(spointer%alfaz(lbound(s%alfaz, 1),lbound(s%alfaz, 2)))

case ('alfau')
x = c_loc(spointer%alfau(lbound(s%alfau, 1),lbound(s%alfau, 2)))

case ('alfav')
x = c_loc(spointer%alfav(lbound(s%alfav, 1),lbound(s%alfav, 2)))

case ('sdist')
x = c_loc(spointer%sdist(lbound(s%sdist, 1),lbound(s%sdist, 2)))

case ('ndist')
x = c_loc(spointer%ndist(lbound(s%ndist, 1),lbound(s%ndist, 2)))

case ('dx')
x = c_loc(spointer%dx)

case ('dy')
x = c_loc(spointer%dy)

case ('xori')
x = c_loc(spointer%xori)

case ('yori')
x = c_loc(spointer%yori)

case ('alfa')
x = c_loc(spointer%alfa)

case ('posdwn')
x = c_loc(spointer%posdwn)

case ('thetamin')
x = c_loc(spointer%thetamin)

case ('thetamax')
x = c_loc(spointer%thetamax)

case ('nx')
x = c_loc(spointer%nx)

case ('ny')
x = c_loc(spointer%ny)

case ('zs01')
x = c_loc(spointer%zs01)

case ('zs02')
x = c_loc(spointer%zs02)

case ('zs03')
x = c_loc(spointer%zs03)

case ('zs04')
x = c_loc(spointer%zs04)

case ('xyzs01')
x = c_loc(spointer%xyzs01(lbound(s%xyzs01, 1)))

case ('xyzs02')
x = c_loc(spointer%xyzs02(lbound(s%xyzs02, 1)))

case ('xyzs03')
x = c_loc(spointer%xyzs03(lbound(s%xyzs03, 1)))

case ('xyzs04')
x = c_loc(spointer%xyzs04(lbound(s%xyzs04, 1)))

case ('tidelen')
x = c_loc(spointer%tidelen)

case ('windlen')
x = c_loc(spointer%windlen)

case ('zb')
x = c_loc(spointer%zb(lbound(s%zb, 1),lbound(s%zb, 2)))

case ('zb0')
x = c_loc(spointer%zb0(lbound(s%zb0, 1),lbound(s%zb0, 2)))

case ('theta')
x = c_loc(spointer%theta(lbound(s%theta, 1)))

case ('theta_s')
x = c_loc(spointer%theta_s(lbound(s%theta_s, 1)))

case ('ntheta')
x = c_loc(spointer%ntheta)

case ('ntheta_s')
x = c_loc(spointer%ntheta_s)

case ('dtheta')
x = c_loc(spointer%dtheta)

case ('dtheta_s')
x = c_loc(spointer%dtheta_s)

case ('theta0')
x = c_loc(spointer%theta0)

case ('thetamean')
x = c_loc(spointer%thetamean(lbound(s%thetamean, 1),lbound(s%thetamean, 2)))

case ('Fx')
x = c_loc(spointer%Fx(lbound(s%Fx, 1),lbound(s%Fx, 2)))

case ('Fy')
x = c_loc(spointer%Fy(lbound(s%Fy, 1),lbound(s%Fy, 2)))

case ('Sxy')
x = c_loc(spointer%Sxy(lbound(s%Sxy, 1),lbound(s%Sxy, 2)))

case ('Syy')
x = c_loc(spointer%Syy(lbound(s%Syy, 1),lbound(s%Syy, 2)))

case ('Sxx')
x = c_loc(spointer%Sxx(lbound(s%Sxx, 1),lbound(s%Sxx, 2)))

case ('n')
x = c_loc(spointer%n(lbound(s%n, 1),lbound(s%n, 2)))

case ('H')
x = c_loc(spointer%H(lbound(s%H, 1),lbound(s%H, 2)))

case ('cgx')
x = c_loc(spointer%cgx(lbound(s%cgx, 1),lbound(s%cgx, 2),lbound(s%cgx, 3)))

case ('cgy')
x = c_loc(spointer%cgy(lbound(s%cgy, 1),lbound(s%cgy, 2),lbound(s%cgy, 3)))

case ('cx')
x = c_loc(spointer%cx(lbound(s%cx, 1),lbound(s%cx, 2),lbound(s%cx, 3)))

case ('cy')
x = c_loc(spointer%cy(lbound(s%cy, 1),lbound(s%cy, 2),lbound(s%cy, 3)))

case ('ctheta')
x = c_loc(spointer%ctheta(lbound(s%ctheta, 1),lbound(s%ctheta, 2),lbound(s%ctheta, 3)))

case ('ee')
x = c_loc(spointer%ee(lbound(s%ee, 1),lbound(s%ee, 2),lbound(s%ee, 3)))

case ('thet')
x = c_loc(spointer%thet(lbound(s%thet, 1),lbound(s%thet, 2),lbound(s%thet, 3)))

case ('costh')
x = c_loc(spointer%costh(lbound(s%costh, 1),lbound(s%costh, 2),lbound(s%costh, 3)))

case ('sinth')
x = c_loc(spointer%sinth(lbound(s%sinth, 1),lbound(s%sinth, 2),lbound(s%sinth, 3)))

case ('sigt')
x = c_loc(spointer%sigt(lbound(s%sigt, 1),lbound(s%sigt, 2),lbound(s%sigt, 3)))

case ('rr')
x = c_loc(spointer%rr(lbound(s%rr, 1),lbound(s%rr, 2),lbound(s%rr, 3)))

case ('cgx_s')
x = c_loc(spointer%cgx_s(lbound(s%cgx_s, 1),lbound(s%cgx_s, 2),lbound(s%cgx_s, 3)))

case ('cgy_s')
x = c_loc(spointer%cgy_s(lbound(s%cgy_s, 1),lbound(s%cgy_s, 2),lbound(s%cgy_s, 3)))

case ('ctheta_s')
x = c_loc(spointer%ctheta_s(lbound(s%ctheta_s, 1),lbound(s%ctheta_s, 2),lbound(s%ctheta_s, 3)))

case ('ee_s')
x = c_loc(spointer%ee_s(lbound(s%ee_s, 1),lbound(s%ee_s, 2),lbound(s%ee_s, 3)))

case ('thet_s')
x = c_loc(spointer%thet_s(lbound(s%thet_s, 1),lbound(s%thet_s, 2),lbound(s%thet_s, 3)))

case ('costh_s')
x = c_loc(spointer%costh_s(lbound(s%costh_s, 1),lbound(s%costh_s, 2),lbound(s%costh_s, 3)))

case ('sinth_s')
x = c_loc(spointer%sinth_s(lbound(s%sinth_s, 1),lbound(s%sinth_s, 2),lbound(s%sinth_s, 3)))

case ('k')
x = c_loc(spointer%k(lbound(s%k, 1),lbound(s%k, 2)))

case ('c')
x = c_loc(spointer%c(lbound(s%c, 1),lbound(s%c, 2)))

case ('cg')
x = c_loc(spointer%cg(lbound(s%cg, 1),lbound(s%cg, 2)))

case ('sigm')
x = c_loc(spointer%sigm(lbound(s%sigm, 1),lbound(s%sigm, 2)))

case ('wm')
x = c_loc(spointer%wm(lbound(s%wm, 1),lbound(s%wm, 2)))

case ('hh')
x = c_loc(spointer%hh(lbound(s%hh, 1),lbound(s%hh, 2)))

case ('zs')
x = c_loc(spointer%zs(lbound(s%zs, 1),lbound(s%zs, 2)))

case ('zs0')
x = c_loc(spointer%zs0(lbound(s%zs0, 1),lbound(s%zs0, 2)))

case ('tideinpt')
x = c_loc(spointer%tideinpt(lbound(s%tideinpt, 1)))

case ('tideinpz')
x = c_loc(spointer%tideinpz(lbound(s%tideinpz, 1),lbound(s%tideinpz, 2)))

case ('windinpt')
x = c_loc(spointer%windinpt(lbound(s%windinpt, 1)))

case ('windvelts')
x = c_loc(spointer%windvelts(lbound(s%windvelts, 1)))

case ('winddirts')
x = c_loc(spointer%winddirts(lbound(s%winddirts, 1)))

case ('windxts')
x = c_loc(spointer%windxts(lbound(s%windxts, 1)))

case ('windyts')
x = c_loc(spointer%windyts(lbound(s%windyts, 1)))

case ('windsu')
x = c_loc(spointer%windsu(lbound(s%windsu, 1),lbound(s%windsu, 2)))

case ('windnv')
x = c_loc(spointer%windnv(lbound(s%windnv, 1),lbound(s%windnv, 2)))

case ('dzsdt')
x = c_loc(spointer%dzsdt(lbound(s%dzsdt, 1),lbound(s%dzsdt, 2)))

case ('dzsdx')
x = c_loc(spointer%dzsdx(lbound(s%dzsdx, 1),lbound(s%dzsdx, 2)))

case ('dzsdy')
x = c_loc(spointer%dzsdy(lbound(s%dzsdy, 1),lbound(s%dzsdy, 2)))

case ('dzbdx')
x = c_loc(spointer%dzbdx(lbound(s%dzbdx, 1),lbound(s%dzbdx, 2)))

case ('dzbdy')
x = c_loc(spointer%dzbdy(lbound(s%dzbdy, 1),lbound(s%dzbdy, 2)))

case ('dzbdt')
x = c_loc(spointer%dzbdt(lbound(s%dzbdt, 1),lbound(s%dzbdt, 2)))

case ('dzbnow')
x = c_loc(spointer%dzbnow(lbound(s%dzbnow, 1),lbound(s%dzbnow, 2)))

case ('uu')
x = c_loc(spointer%uu(lbound(s%uu, 1),lbound(s%uu, 2)))

case ('vu')
x = c_loc(spointer%vu(lbound(s%vu, 1),lbound(s%vu, 2)))

case ('uv')
x = c_loc(spointer%uv(lbound(s%uv, 1),lbound(s%uv, 2)))

case ('vv')
x = c_loc(spointer%vv(lbound(s%vv, 1),lbound(s%vv, 2)))

case ('qx')
x = c_loc(spointer%qx(lbound(s%qx, 1),lbound(s%qx, 2)))

case ('qy')
x = c_loc(spointer%qy(lbound(s%qy, 1),lbound(s%qy, 2)))

case ('sedero')
x = c_loc(spointer%sedero(lbound(s%sedero, 1),lbound(s%sedero, 2)))

case ('dcbdx')
x = c_loc(spointer%dcbdx(lbound(s%dcbdx, 1),lbound(s%dcbdx, 2)))

case ('dcbdy')
x = c_loc(spointer%dcbdy(lbound(s%dcbdy, 1),lbound(s%dcbdy, 2)))

case ('dcsdx')
x = c_loc(spointer%dcsdx(lbound(s%dcsdx, 1),lbound(s%dcsdx, 2)))

case ('dcsdy')
x = c_loc(spointer%dcsdy(lbound(s%dcsdy, 1),lbound(s%dcsdy, 2)))

case ('ui')
x = c_loc(spointer%ui(lbound(s%ui, 1),lbound(s%ui, 2)))

case ('vi')
x = c_loc(spointer%vi(lbound(s%vi, 1),lbound(s%vi, 2)))

case ('E')
x = c_loc(spointer%E(lbound(s%E, 1),lbound(s%E, 2)))

case ('R')
x = c_loc(spointer%R(lbound(s%R, 1),lbound(s%R, 2)))

case ('urms')
x = c_loc(spointer%urms(lbound(s%urms, 1),lbound(s%urms, 2)))

case ('D')
x = c_loc(spointer%D(lbound(s%D, 1),lbound(s%D, 2)))

case ('Qb')
x = c_loc(spointer%Qb(lbound(s%Qb, 1),lbound(s%Qb, 2)))

case ('ust')
x = c_loc(spointer%ust(lbound(s%ust, 1),lbound(s%ust, 2)))

case ('ueu')
x = c_loc(spointer%ueu(lbound(s%ueu, 1),lbound(s%ueu, 2)))

case ('vev')
x = c_loc(spointer%vev(lbound(s%vev, 1),lbound(s%vev, 2)))

case ('vmagu')
x = c_loc(spointer%vmagu(lbound(s%vmagu, 1),lbound(s%vmagu, 2)))

case ('vmageu')
x = c_loc(spointer%vmageu(lbound(s%vmageu, 1),lbound(s%vmageu, 2)))

case ('vmagv')
x = c_loc(spointer%vmagv(lbound(s%vmagv, 1),lbound(s%vmagv, 2)))

case ('vmagev')
x = c_loc(spointer%vmagev(lbound(s%vmagev, 1),lbound(s%vmagev, 2)))

case ('u')
x = c_loc(spointer%u(lbound(s%u, 1),lbound(s%u, 2)))

case ('v')
x = c_loc(spointer%v(lbound(s%v, 1),lbound(s%v, 2)))

case ('ue')
x = c_loc(spointer%ue(lbound(s%ue, 1),lbound(s%ue, 2)))

case ('ve')
x = c_loc(spointer%ve(lbound(s%ve, 1),lbound(s%ve, 2)))

case ('ue_sed')
x = c_loc(spointer%ue_sed(lbound(s%ue_sed, 1),lbound(s%ue_sed, 2)))

case ('ve_sed')
x = c_loc(spointer%ve_sed(lbound(s%ve_sed, 1),lbound(s%ve_sed, 2)))

case ('hold')
x = c_loc(spointer%hold(lbound(s%hold, 1),lbound(s%hold, 2)))

case ('wetu')
x = c_loc(spointer%wetu(lbound(s%wetu, 1),lbound(s%wetu, 2)))

case ('wetv')
x = c_loc(spointer%wetv(lbound(s%wetv, 1),lbound(s%wetv, 2)))

case ('wetz')
x = c_loc(spointer%wetz(lbound(s%wetz, 1),lbound(s%wetz, 2)))

case ('wete')
x = c_loc(spointer%wete(lbound(s%wete, 1),lbound(s%wete, 2)))

case ('hu')
x = c_loc(spointer%hu(lbound(s%hu, 1),lbound(s%hu, 2)))

case ('hv')
x = c_loc(spointer%hv(lbound(s%hv, 1),lbound(s%hv, 2)))

case ('hum')
x = c_loc(spointer%hum(lbound(s%hum, 1),lbound(s%hum, 2)))

case ('hvm')
x = c_loc(spointer%hvm(lbound(s%hvm, 1),lbound(s%hvm, 2)))

case ('vmag')
x = c_loc(spointer%vmag(lbound(s%vmag, 1),lbound(s%vmag, 2)))

case ('ccg')
x = c_loc(spointer%ccg(lbound(s%ccg, 1),lbound(s%ccg, 2),lbound(s%ccg, 3)))

case ('uwf')
x = c_loc(spointer%uwf(lbound(s%uwf, 1),lbound(s%uwf, 2)))

case ('vwf')
x = c_loc(spointer%vwf(lbound(s%vwf, 1),lbound(s%vwf, 2)))

case ('ustr')
x = c_loc(spointer%ustr(lbound(s%ustr, 1),lbound(s%ustr, 2)))

case ('usd')
x = c_loc(spointer%usd(lbound(s%usd, 1),lbound(s%usd, 2)))

case ('bi')
x = c_loc(spointer%bi(lbound(s%bi, 1)))

case ('DR')
x = c_loc(spointer%DR(lbound(s%DR, 1),lbound(s%DR, 2)))

case ('umean')
x = c_loc(spointer%umean(lbound(s%umean, 1),lbound(s%umean, 2)))

case ('vmean')
x = c_loc(spointer%vmean(lbound(s%vmean, 1),lbound(s%vmean, 2)))

case ('ur')
x = c_loc(spointer%ur(lbound(s%ur, 1),lbound(s%ur, 2)))

case ('vardx')
x = c_loc(spointer%vardx)

case ('D15')
x = c_loc(spointer%D15(lbound(s%D15, 1)))

case ('D50')
x = c_loc(spointer%D50(lbound(s%D50, 1)))

case ('D90')
x = c_loc(spointer%D90(lbound(s%D90, 1)))

case ('sedcal')
x = c_loc(spointer%sedcal(lbound(s%sedcal, 1)))

case ('ucrcal')
x = c_loc(spointer%ucrcal(lbound(s%ucrcal, 1)))

case ('Tsg')
x = c_loc(spointer%Tsg(lbound(s%Tsg, 1),lbound(s%Tsg, 2),lbound(s%Tsg, 3)))

case ('Susg')
x = c_loc(spointer%Susg(lbound(s%Susg, 1),lbound(s%Susg, 2),lbound(s%Susg, 3)))

case ('Svsg')
x = c_loc(spointer%Svsg(lbound(s%Svsg, 1),lbound(s%Svsg, 2),lbound(s%Svsg, 3)))

case ('Subg')
x = c_loc(spointer%Subg(lbound(s%Subg, 1),lbound(s%Subg, 2),lbound(s%Subg, 3)))

case ('Svbg')
x = c_loc(spointer%Svbg(lbound(s%Svbg, 1),lbound(s%Svbg, 2),lbound(s%Svbg, 3)))

case ('ceqbg')
x = c_loc(spointer%ceqbg(lbound(s%ceqbg, 1),lbound(s%ceqbg, 2),lbound(s%ceqbg, 3)))

case ('ceqsg')
x = c_loc(spointer%ceqsg(lbound(s%ceqsg, 1),lbound(s%ceqsg, 2),lbound(s%ceqsg, 3)))

case ('ua')
x = c_loc(spointer%ua(lbound(s%ua, 1),lbound(s%ua, 2)))

case ('BR')
x = c_loc(spointer%BR(lbound(s%BR, 1),lbound(s%BR, 2)))

case ('kb')
x = c_loc(spointer%kb(lbound(s%kb, 1),lbound(s%kb, 2)))

case ('Tbore')
x = c_loc(spointer%Tbore(lbound(s%Tbore, 1),lbound(s%Tbore, 2)))

case ('dzav')
x = c_loc(spointer%dzav(lbound(s%dzav, 1),lbound(s%dzav, 2)))

case ('maxzs')
x = c_loc(spointer%maxzs(lbound(s%maxzs, 1),lbound(s%maxzs, 2)))

case ('minzs')
x = c_loc(spointer%minzs(lbound(s%minzs, 1),lbound(s%minzs, 2)))

case ('L1')
x = c_loc(spointer%L1(lbound(s%L1, 1),lbound(s%L1, 2)))

case ('Sk')
x = c_loc(spointer%Sk(lbound(s%Sk, 1),lbound(s%Sk, 2)))

case ('As')
x = c_loc(spointer%As(lbound(s%As, 1),lbound(s%As, 2)))

case ('gwhead')
x = c_loc(spointer%gwhead(lbound(s%gwhead, 1),lbound(s%gwhead, 2)))

case ('gwheadb')
x = c_loc(spointer%gwheadb(lbound(s%gwheadb, 1),lbound(s%gwheadb, 2)))

case ('gwlevel')
x = c_loc(spointer%gwlevel(lbound(s%gwlevel, 1),lbound(s%gwlevel, 2)))

case ('gwheight')
x = c_loc(spointer%gwheight(lbound(s%gwheight, 1),lbound(s%gwheight, 2)))

case ('gwbottom')
x = c_loc(spointer%gwbottom(lbound(s%gwbottom, 1),lbound(s%gwbottom, 2)))

case ('gwu')
x = c_loc(spointer%gwu(lbound(s%gwu, 1),lbound(s%gwu, 2)))

case ('gwv')
x = c_loc(spointer%gwv(lbound(s%gwv, 1),lbound(s%gwv, 2)))

case ('gwqx')
x = c_loc(spointer%gwqx(lbound(s%gwqx, 1),lbound(s%gwqx, 2)))

case ('gwqy')
x = c_loc(spointer%gwqy(lbound(s%gwqy, 1),lbound(s%gwqy, 2)))

case ('gww')
x = c_loc(spointer%gww(lbound(s%gww, 1),lbound(s%gww, 2)))

case ('gwcurv')
x = c_loc(spointer%gwcurv(lbound(s%gwcurv, 1),lbound(s%gwcurv, 2)))

case ('dinfil')
x = c_loc(spointer%dinfil(lbound(s%dinfil, 1),lbound(s%dinfil, 2)))

case ('infil')
x = c_loc(spointer%infil(lbound(s%infil, 1),lbound(s%infil, 2)))

case ('gw0back')
x = c_loc(spointer%gw0back(lbound(s%gw0back, 1),lbound(s%gw0back, 2)))

case ('Kx')
x = c_loc(spointer%Kx(lbound(s%Kx, 1),lbound(s%Kx, 2)))

case ('Ky')
x = c_loc(spointer%Ky(lbound(s%Ky, 1),lbound(s%Ky, 2)))

case ('Kz')
x = c_loc(spointer%Kz(lbound(s%Kz, 1),lbound(s%Kz, 2)))

case ('Kzinf')
x = c_loc(spointer%Kzinf(lbound(s%Kzinf, 1),lbound(s%Kzinf, 2)))

case ('kturb')
x = c_loc(spointer%kturb(lbound(s%kturb, 1),lbound(s%kturb, 2)))

case ('ero')
x = c_loc(spointer%ero(lbound(s%ero, 1),lbound(s%ero, 2),lbound(s%ero, 3)))

case ('depo_im')
x = c_loc(spointer%depo_im(lbound(s%depo_im, 1),lbound(s%depo_im, 2),lbound(s%depo_im, 3)))

case ('depo_ex')
x = c_loc(spointer%depo_ex(lbound(s%depo_ex, 1),lbound(s%depo_ex, 2),lbound(s%depo_ex, 3)))

case ('nd')
x = c_loc(spointer%nd(lbound(s%nd, 1),lbound(s%nd, 2)))

case ('pbbed')
x = c_loc(spointer%pbbed(lbound(s%pbbed, 1),lbound(s%pbbed, 2),lbound(s%pbbed, 3),lbound(s%pbbed, 4)))

case ('dzbed')
x = c_loc(spointer%dzbed(lbound(s%dzbed, 1),lbound(s%dzbed, 2),lbound(s%dzbed, 3)))

case ('z0bed')
x = c_loc(spointer%z0bed(lbound(s%z0bed, 1),lbound(s%z0bed, 2)))

case ('ureps')
x = c_loc(spointer%ureps(lbound(s%ureps, 1),lbound(s%ureps, 2)))

case ('vreps')
x = c_loc(spointer%vreps(lbound(s%vreps, 1),lbound(s%vreps, 2)))

case ('urepb')
x = c_loc(spointer%urepb(lbound(s%urepb, 1),lbound(s%urepb, 2)))

case ('vrepb')
x = c_loc(spointer%vrepb(lbound(s%vrepb, 1),lbound(s%vrepb, 2)))

case ('umwci')
x = c_loc(spointer%umwci(lbound(s%umwci, 1),lbound(s%umwci, 2)))

case ('vmwci')
x = c_loc(spointer%vmwci(lbound(s%vmwci, 1),lbound(s%vmwci, 2)))

case ('rolthick')
x = c_loc(spointer%rolthick(lbound(s%rolthick, 1),lbound(s%rolthick, 2)))

case ('zswci')
x = c_loc(spointer%zswci(lbound(s%zswci, 1),lbound(s%zswci, 2)))

case ('pres')
x = c_loc(spointer%pres(lbound(s%pres, 1),lbound(s%pres, 2)))

case ('dU')
x = c_loc(spointer%dU(lbound(s%dU, 1),lbound(s%dU, 2)))

case ('dV')
x = c_loc(spointer%dV(lbound(s%dV, 1),lbound(s%dV, 2)))

case ('wb')
x = c_loc(spointer%wb(lbound(s%wb, 1),lbound(s%wb, 2)))

case ('ws')
x = c_loc(spointer%ws(lbound(s%ws, 1),lbound(s%ws, 2)))

case ('wscrit')
x = c_loc(spointer%wscrit(lbound(s%wscrit, 1),lbound(s%wscrit, 2)))

case ('bedfriccoef')
x = c_loc(spointer%bedfriccoef(lbound(s%bedfriccoef, 1),lbound(s%bedfriccoef, 2)))

case ('taubx')
x = c_loc(spointer%taubx(lbound(s%taubx, 1),lbound(s%taubx, 2)))

case ('tauby')
x = c_loc(spointer%tauby(lbound(s%tauby, 1),lbound(s%tauby, 2)))

case ('Df')
x = c_loc(spointer%Df(lbound(s%Df, 1),lbound(s%Df, 2)))

case ('Dp')
x = c_loc(spointer%Dp(lbound(s%Dp, 1),lbound(s%Dp, 2)))

case ('Sutot')
x = c_loc(spointer%Sutot(lbound(s%Sutot, 1),lbound(s%Sutot, 2)))

case ('Svtot')
x = c_loc(spointer%Svtot(lbound(s%Svtot, 1),lbound(s%Svtot, 2)))

case ('cctot')
x = c_loc(spointer%cctot(lbound(s%cctot, 1),lbound(s%cctot, 2)))

case ('wi')
x = c_loc(spointer%wi(lbound(s%wi, 1),lbound(s%wi, 2)))

case ('dUi')
x = c_loc(spointer%dUi(lbound(s%dUi, 1),lbound(s%dUi, 2)))

case ('zi')
x = c_loc(spointer%zi(lbound(s%zi, 1),lbound(s%zi, 2)))

case ('nuh')
x = c_loc(spointer%nuh(lbound(s%nuh, 1),lbound(s%nuh, 2)))

case ('cf')
x = c_loc(spointer%cf(lbound(s%cf, 1),lbound(s%cf, 2)))

case ('cfu')
x = c_loc(spointer%cfu(lbound(s%cfu, 1),lbound(s%cfu, 2)))

case ('cfv')
x = c_loc(spointer%cfv(lbound(s%cfv, 1),lbound(s%cfv, 2)))

case ('D50top')
x = c_loc(spointer%D50top(lbound(s%D50top, 1),lbound(s%D50top, 2)))

case ('D90top')
x = c_loc(spointer%D90top(lbound(s%D90top, 1),lbound(s%D90top, 2)))

case ('structdepth')
x = c_loc(spointer%structdepth(lbound(s%structdepth, 1),lbound(s%structdepth, 2)))

case ('zs0fac')
x = c_loc(spointer%zs0fac(lbound(s%zs0fac, 1),lbound(s%zs0fac, 2),lbound(s%zs0fac, 3)))

case ('tdisch')
x = c_loc(spointer%tdisch(lbound(s%tdisch, 1)))

case ('pdisch')
x = c_loc(spointer%pdisch(lbound(s%pdisch, 1),lbound(s%pdisch, 2)))

case ('pntdisch')
x = c_loc(spointer%pntdisch(lbound(s%pntdisch, 1)))

case ('qdisch')
x = c_loc(spointer%qdisch(lbound(s%qdisch, 1),lbound(s%qdisch, 2)))

case ('idrift')
x = c_loc(spointer%idrift(lbound(s%idrift, 1)))

case ('jdrift')
x = c_loc(spointer%jdrift(lbound(s%jdrift, 1)))

case ('tdriftb')
x = c_loc(spointer%tdriftb(lbound(s%tdriftb, 1)))

case ('tdrifte')
x = c_loc(spointer%tdrifte(lbound(s%tdrifte, 1)))

case ('runup')
x = c_loc(spointer%runup(lbound(s%runup, 1)))

case ('Hrunup')
x = c_loc(spointer%Hrunup(lbound(s%Hrunup, 1)))

case ('xHrunup')
x = c_loc(spointer%xHrunup(lbound(s%xHrunup, 1)))

case ('istruct')
x = c_loc(spointer%istruct(lbound(s%istruct, 1)))

case ('iwl')
x = c_loc(spointer%iwl(lbound(s%iwl, 1)))

case ('strucslope')
x = c_loc(spointer%strucslope(lbound(s%strucslope, 1)))

case ('Dc')
x = c_loc(spointer%Dc(lbound(s%Dc, 1),lbound(s%Dc, 2)))

case ('ph')
x = c_loc(spointer%ph(lbound(s%ph, 1),lbound(s%ph, 2)))

case ('newstatbc')
x = c_loc(spointer%newstatbc)

case ('dobs')
x = c_loc(spointer%dobs(lbound(s%dobs, 1),lbound(s%dobs, 2)))

case ('sig2prior')
x = c_loc(spointer%sig2prior(lbound(s%sig2prior, 1),lbound(s%sig2prior, 2)))

case ('zbobs')
x = c_loc(spointer%zbobs(lbound(s%zbobs, 1),lbound(s%zbobs, 2)))

case ('shobs')
x = c_loc(spointer%shobs(lbound(s%shobs, 1),lbound(s%shobs, 2)))

case ('bwalpha')
x = c_loc(spointer%bwalpha(lbound(s%bwalpha, 1),lbound(s%bwalpha, 2)))

case ('dcmdo')
x = c_loc(spointer%dcmdo(lbound(s%dcmdo, 1),lbound(s%dcmdo, 2)))

case ('dassim')
x = c_loc(spointer%dassim(lbound(s%dassim, 1),lbound(s%dassim, 2)))

case ('cobs')
x = c_loc(spointer%cobs(lbound(s%cobs, 1),lbound(s%cobs, 2)))

case ('shipxCG')
x = c_loc(spointer%shipxCG(lbound(s%shipxCG, 1)))

case ('shipyCG')
x = c_loc(spointer%shipyCG(lbound(s%shipyCG, 1)))

case ('shipzCG')
x = c_loc(spointer%shipzCG(lbound(s%shipzCG, 1)))

case ('shipFx')
x = c_loc(spointer%shipFx(lbound(s%shipFx, 1)))

case ('shipFy')
x = c_loc(spointer%shipFy(lbound(s%shipFy, 1)))

case ('shipFz')
x = c_loc(spointer%shipFz(lbound(s%shipFz, 1)))

case ('shipMx')
x = c_loc(spointer%shipMx(lbound(s%shipMx, 1)))

case ('shipMy')
x = c_loc(spointer%shipMy(lbound(s%shipMy, 1)))

case ('shipMz')
x = c_loc(spointer%shipMz(lbound(s%shipMz, 1)))

case ('shipphi')
x = c_loc(spointer%shipphi(lbound(s%shipphi, 1)))

case ('shipchi')
x = c_loc(spointer%shipchi(lbound(s%shipchi, 1)))

case ('shippsi')
x = c_loc(spointer%shippsi(lbound(s%shippsi, 1)))

case ('vegtype')
x = c_loc(spointer%vegtype(lbound(s%vegtype, 1),lbound(s%vegtype, 2)))

case ('nsecveg')
x = c_loc(spointer%nsecveg(lbound(s%nsecveg, 1),lbound(s%nsecveg, 2)))

case ('nsecvegmax')
x = c_loc(spointer%nsecvegmax)

case ('Cdveg')
x = c_loc(spointer%Cdveg(lbound(s%Cdveg, 1),lbound(s%Cdveg, 2),lbound(s%Cdveg, 3)))

case ('ahveg')
x = c_loc(spointer%ahveg(lbound(s%ahveg, 1),lbound(s%ahveg, 2),lbound(s%ahveg, 3)))

case ('bveg')
x = c_loc(spointer%bveg(lbound(s%bveg, 1),lbound(s%bveg, 2),lbound(s%bveg, 3)))

case ('Nveg')
x = c_loc(spointer%Nveg(lbound(s%Nveg, 1),lbound(s%Nveg, 2),lbound(s%Nveg, 3)))

case ('Dveg')
x = c_loc(spointer%Dveg(lbound(s%Dveg, 1),lbound(s%Dveg, 2)))

case ('Fvegu')
x = c_loc(spointer%Fvegu(lbound(s%Fvegu, 1),lbound(s%Fvegu, 2)))

case ('Fvegv')
x = c_loc(spointer%Fvegv(lbound(s%Fvegv, 1),lbound(s%Fvegv, 2)))

case ('ududx')
x = c_loc(spointer%ududx(lbound(s%ududx, 1),lbound(s%ududx, 2)))

case ('vdvdy')
x = c_loc(spointer%vdvdy(lbound(s%vdvdy, 1),lbound(s%vdvdy, 2)))

case ('udvdx')
x = c_loc(spointer%udvdx(lbound(s%udvdx, 1),lbound(s%udvdx, 2)))

case ('vdudy')
x = c_loc(spointer%vdudy(lbound(s%vdudy, 1),lbound(s%vdudy, 2)))

case ('viscu')
x = c_loc(spointer%viscu(lbound(s%viscu, 1),lbound(s%viscu, 2)))

case ('viscv')
x = c_loc(spointer%viscv(lbound(s%viscv, 1),lbound(s%viscv, 2)))

case ('setbathy')
x = c_loc(spointer%setbathy(lbound(s%setbathy, 1),lbound(s%setbathy, 2),lbound(s%setbathy, 3)))

case ('tsetbathy')
x = c_loc(spointer%tsetbathy(lbound(s%tsetbathy, 1)))

case ('breaking')
x = c_loc(spointer%breaking(lbound(s%breaking, 1),lbound(s%breaking, 2)))

case ('fw')
x = c_loc(spointer%fw(lbound(s%fw, 1),lbound(s%fw, 2)))

case ('sigz')
x = c_loc(spointer%sigz(lbound(s%sigz, 1)))

case ('uz')
x = c_loc(spointer%uz(lbound(s%uz, 1),lbound(s%uz, 2),lbound(s%uz, 3)))

case ('vz')
x = c_loc(spointer%vz(lbound(s%vz, 1),lbound(s%vz, 2),lbound(s%vz, 3)))

case ('ustz')
x = c_loc(spointer%ustz(lbound(s%ustz, 1),lbound(s%ustz, 2),lbound(s%ustz, 3)))

case ('nutz')
x = c_loc(spointer%nutz(lbound(s%nutz, 1),lbound(s%nutz, 2),lbound(s%nutz, 3)))

case ('dzs0dn')
x = c_loc(spointer%dzs0dn(lbound(s%dzs0dn, 1),lbound(s%dzs0dn, 2)))

case ('ccz')
x = c_loc(spointer%ccz(lbound(s%ccz, 1),lbound(s%ccz, 2),lbound(s%ccz, 3)))

case ('refA')
x = c_loc(spointer%refA(lbound(s%refA, 1),lbound(s%refA, 2)))

case ('ca')
x = c_loc(spointer%ca(lbound(s%ca, 1),lbound(s%ca, 2)))

case ('zs1')
x = c_loc(spointer%zs1(lbound(s%zs1, 1),lbound(s%zs1, 2)))

case ('taubx_add')
x = c_loc(spointer%taubx_add(lbound(s%taubx_add, 1),lbound(s%taubx_add, 2)))

case ('tauby_add')
x = c_loc(spointer%tauby_add(lbound(s%tauby_add, 1),lbound(s%tauby_add, 2)))

case ('hhw')
x = c_loc(spointer%hhw(lbound(s%hhw, 1),lbound(s%hhw, 2)))

case ('hhws')
x = c_loc(spointer%hhws(lbound(s%hhws, 1),lbound(s%hhws, 2)))

case ('uws')
x = c_loc(spointer%uws(lbound(s%uws, 1),lbound(s%uws, 2)))

case ('vws')
x = c_loc(spointer%vws(lbound(s%vws, 1),lbound(s%vws, 2)))

case ('hhwcins')
x = c_loc(spointer%hhwcins(lbound(s%hhwcins, 1),lbound(s%hhwcins, 2)))

case ('uwcins')
x = c_loc(spointer%uwcins(lbound(s%uwcins, 1),lbound(s%uwcins, 2)))

case ('vwcins')
x = c_loc(spointer%vwcins(lbound(s%vwcins, 1),lbound(s%vwcins, 2)))

case ('ucan')
x = c_loc(spointer%ucan(lbound(s%ucan, 1),lbound(s%ucan, 2)))

case ('vcan')
x = c_loc(spointer%vcan(lbound(s%vcan, 1),lbound(s%vcan, 2)))

! vim: filetype=fortran