! This file is generated by 'scripts/generate.py' using ! /src/xbeachlibrary/variables.def ! /src/xbeachlibrary/params.def ! src/xbeachlibray/templates/get_var_shape.mako ! Advice: do not edit this file, but above mentioned files. ! return in c memory order case("x") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("y") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("xz") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("yz") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("xu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("yu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("xv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("yv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dsu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dsv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dsz") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dsc") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dnu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dnv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dnz") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dnc") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dsdnui") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dsdnvi") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dsdnzi") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("alfaz") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("alfau") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("alfav") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("sdist") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ndist") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dx") shape(1) = 0 case("dy") shape(1) = 0 case("xori") shape(1) = 0 case("yori") shape(1) = 0 case("alfa") shape(1) = 0 case("posdwn") shape(1) = 0 case("thetamin") shape(1) = 0 case("thetamax") shape(1) = 0 case("nx") shape(1) = 0 case("ny") shape(1) = 0 case("zs01") shape(1) = 0 case("zs02") shape(1) = 0 case("zs03") shape(1) = 0 case("zs04") shape(1) = 0 case("xyzs01") shape(1) = 2 case("xyzs02") shape(1) = 2 case("xyzs03") shape(1) = 2 case("xyzs04") shape(1) = 2 case("tidelen") shape(1) = 0 case("windlen") shape(1) = 0 case("zb") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("zb0") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("theta") shape(1) = spointer%ntheta case("theta_s") shape(1) = spointer%ntheta_s case("ntheta") shape(1) = 0 case("ntheta_s") shape(1) = 0 case("dtheta") shape(1) = 0 case("dtheta_s") shape(1) = 0 case("theta0") shape(1) = 0 case("thetamean") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Fx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Fy") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Sxy") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Syy") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Sxx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("n") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("H") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("cgx") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta case("cgy") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta case("cx") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta case("cy") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta case("ctheta") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta case("ee") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta case("thet") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta case("costh") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta case("sinth") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta case("sigt") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta case("rr") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta case("cgx_s") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta_s case("cgy_s") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta_s case("ctheta_s") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta_s case("ee_s") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta_s case("thet_s") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta_s case("costh_s") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta_s case("sinth_s") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%ntheta_s case("k") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("c") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("cg") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("sigm") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("wm") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("hh") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("zs") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("zs0") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("tideinpt") shape(1) = spointer%tidelen case("tideinpz") shape(2) = spointer%tidelen shape(1) = par%tideloc case("windinpt") shape(1) = spointer%windlen case("windvelts") shape(1) = spointer%windlen case("winddirts") shape(1) = spointer%windlen case("windxts") shape(1) = spointer%windlen case("windyts") shape(1) = spointer%windlen case("windsu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("windnv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dzsdt") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dzsdx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dzsdy") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dzbdx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dzbdy") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dzbdt") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dzbnow") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("uu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("uv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("qx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("qy") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("sedero") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dcbdx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dcbdy") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dcsdx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dcsdy") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ui") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vi") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("E") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("R") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("urms") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("D") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Qb") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ust") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ueu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vev") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vmagu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vmageu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vmagv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vmagev") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("u") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("v") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ue") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ve") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ue_sed") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ve_sed") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("hold") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("wetu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("wetv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("wetz") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("wete") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("hu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("hv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("hum") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("hvm") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vmag") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ccg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%ngd case("uwf") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vwf") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ustr") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("usd") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("bi") shape(1) = spointer%ny+1 case("DR") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("umean") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vmean") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ur") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vardx") shape(1) = 0 case("D15") shape(1) = par%ngd case("D50") shape(1) = par%ngd case("D90") shape(1) = par%ngd case("sedcal") shape(1) = par%ngd case("ucrcal") shape(1) = par%ngd case("Tsg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%ngd case("Susg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%ngd case("Svsg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%ngd case("Subg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%ngd case("Svbg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%ngd case("ceqbg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%ngd case("ceqsg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%ngd case("ua") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("BR") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("kb") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Tbore") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dzav") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("maxzs") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("minzs") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("L1") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Sk") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("As") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gwhead") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gwheadb") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gwlevel") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gwheight") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gwbottom") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gwu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gwv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gwqx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gwqy") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gww") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gwcurv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dinfil") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("infil") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("gw0back") shape(2) = 2 shape(1) = spointer%ny+1 case("Kx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Ky") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Kz") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Kzinf") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("kturb") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ero") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%ngd case("depo_im") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%ngd case("depo_ex") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%ngd case("nd") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("pbbed") shape(4) = spointer%nx+1 shape(3) = spointer%ny+1 shape(2) = par%nd shape(1) = par%ngd case("dzbed") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%nd case("z0bed") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ureps") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vreps") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("urepb") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vrepb") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("umwci") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vmwci") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("rolthick") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("zswci") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("pres") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dU") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dV") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("wb") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ws") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("wscrit") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("bedfriccoef") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("taubx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("tauby") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Df") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Dp") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Sutot") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Svtot") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("cctot") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("wi") shape(2) = 2 shape(1) = spointer%ny+1 case("dUi") shape(2) = 2 shape(1) = spointer%ny+1 case("zi") shape(2) = 2 shape(1) = spointer%ny+1 case("nuh") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("cf") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("cfu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("cfv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("D50top") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("D90top") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("structdepth") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("zs0fac") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = 2 case("tdisch") shape(1) = par%ntdischarge case("pdisch") shape(2) = par%ndischarge shape(1) = 4 case("pntdisch") shape(1) = par%ndischarge case("qdisch") shape(2) = par%ntdischarge shape(1) = par%ndischarge case("idrift") shape(1) = par%ndrifter case("jdrift") shape(1) = par%ndrifter case("tdriftb") shape(1) = par%ndrifter case("tdrifte") shape(1) = par%ndrifter case("runup") shape(1) = spointer%ny+1 case("Hrunup") shape(1) = spointer%ny+1 case("xHrunup") shape(1) = spointer%ny+1 case("istruct") shape(1) = spointer%ny+1 case("iwl") shape(1) = spointer%ny+1 case("strucslope") shape(1) = spointer%ny+1 case("Dc") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ph") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("newstatbc") shape(1) = 0 case("dobs") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("sig2prior") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("zbobs") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("shobs") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("bwalpha") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dcmdo") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("dassim") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("cobs") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("shipxCG") shape(1) = par%nship case("shipyCG") shape(1) = par%nship case("shipzCG") shape(1) = par%nship case("shipFx") shape(1) = par%nship case("shipFy") shape(1) = par%nship case("shipFz") shape(1) = par%nship case("shipMx") shape(1) = par%nship case("shipMy") shape(1) = par%nship case("shipMz") shape(1) = par%nship case("shipphi") shape(1) = par%nship case("shipchi") shape(1) = par%nship case("shippsi") shape(1) = par%nship case("vegtype") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("nsecveg") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("nsecvegmax") shape(1) = 0 case("Cdveg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%nsecvegmax case("ahveg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%nsecvegmax case("bveg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%nsecvegmax case("Nveg") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = spointer%nsecvegmax case("Dveg") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Fvegu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("Fvegv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ududx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vdvdy") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("udvdx") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vdudy") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("viscu") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("viscv") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("setbathy") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%nsetbathy case("tsetbathy") shape(1) = par%nsetbathy case("breaking") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("fw") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("sigz") shape(1) = par%nz case("uz") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%nz case("vz") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%nz case("ustz") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%nz case("nutz") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%nz case("dzs0dn") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ccz") shape(3) = spointer%nx+1 shape(2) = spointer%ny+1 shape(1) = par%nz case("refA") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ca") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("zs1") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("taubx_add") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("tauby_add") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("hhw") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("hhws") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("uws") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vws") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("hhwcins") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("uwcins") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vwcins") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("ucan") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 case("vcan") shape(2) = spointer%nx+1 shape(1) = spointer%ny+1 ! vim: filetype=fortran