From 690f64cbfb11205b9243ba2c966633b38910a412 Mon Sep 17 00:00:00 2001 From: Willem Deconinck Date: Wed, 5 Oct 2022 16:46:46 +0200 Subject: [PATCH] IFS-2479 Move ecwam files to contrib directory, still compiling using wam.cmake --- {wam/Wam_oper => src/ecwam}/abort1.F90 | 0 {wam/Wam_oper => src/ecwam}/adjust.F90 | 0 {wam/Wam_oper => src/ecwam}/airsea.F90 | 0 {wam/Wam_oper => src/ecwam}/aki.F90 | 0 {wam/Wam_oper => src/ecwam}/aki_ice.F90 | 0 {wam/Wam_oper => src/ecwam}/alphap_tail.F90 | 0 {wam/Wam_oper => src/ecwam}/bouinpt.F90 | 0 {wam/Wam_oper => src/ecwam}/buildstress.F90 | 0 .../ecwam}/cal_second_order_spec.F90 | 0 {wam/Wam_oper => src/ecwam}/cdustarz0.F90 | 0 {wam/Wam_oper => src/ecwam}/check.F90 | 0 {wam/Wam_oper => src/ecwam}/checkcfl.F90 | 0 {wam/Wam_oper => src/ecwam}/chkoops.F90 | 0 {wam/Wam_oper => src/ecwam}/chnkmin.F90 | 0 {wam/Wam_oper => src/ecwam}/cigetdeac.F90 | 0 {wam/Wam_oper => src/ecwam}/cimsstrn.F90 | 0 {wam/Wam_oper => src/ecwam}/cireduce.F90 | 0 {wam/Wam_oper => src/ecwam}/ciwabr.F90 | 0 {wam/Wam_oper => src/ecwam}/ciwaf.F90 | 0 src/ecwam/confile.F90 | 166 ++++++++++++++++++ {wam/Wam_oper => src/ecwam}/ctuw.F90 | 0 {wam/Wam_oper => src/ecwam}/ctuwdrv.F90 | 0 {wam/Wam_oper => src/ecwam}/ctuwini.F90 | 0 {wam/Wam_oper => src/ecwam}/ctuwupdt.F90 | 0 {wam/Wam_oper => src/ecwam}/current2wam.F90 | 0 {wam/Wam_oper => src/ecwam}/difdate.F90 | 0 .../ecwam}/dominant_period.F90 | 0 {wam/Wam_oper => src/ecwam}/expand_string.F90 | 0 {wam/Wam_oper => src/ecwam}/femean.F90 | 0 {wam/Wam_oper => src/ecwam}/femeanws.F90 | 0 {wam/Wam_oper => src/ecwam}/file_transfer.F90 | 0 {wam/Wam_oper => src/ecwam}/findb.F90 | 0 {wam/Wam_oper => src/ecwam}/fkmean.F90 | 0 {wam/Wam_oper => src/ecwam}/fldinter.F90 | 0 {wam/Wam_oper => src/ecwam}/fndprt.F90 | 0 {wam/Wam_oper => src/ecwam}/frcutindex.F90 | 0 {wam/function => src/ecwam}/gc_dispersion.h | 0 .../ecwam}/get_preset_wgrib_template.F90 | 0 {wam/Wam_oper => src/ecwam}/getcurr.F90 | 0 {wam/Wam_oper => src/ecwam}/getfrstwnd.F90 | 0 {wam/Wam_oper => src/ecwam}/getspec.F90 | 0 {wam/Wam_oper => src/ecwam}/getstress.F90 | 0 {wam/Wam_oper => src/ecwam}/getwnd.F90 | 4 +- {wam/Wam_oper => src/ecwam}/gradi.F90 | 0 {wam/Wam_oper => src/ecwam}/grib2wgrid.F90 | 0 {wam/Wam_oper => src/ecwam}/grstname.F90 | 0 {wam/Wam_oper => src/ecwam}/gsfile_new.F90 | 0 {wam/Wam_oper => src/ecwam}/h_max.F90 | 0 {wam/Wam_oper => src/ecwam}/halphap.F90 | 0 {wam/Wam_oper => src/ecwam}/headbc.F90 | 0 {wam/Wam_oper => src/ecwam}/imphftail.F90 | 0 {wam/Wam_oper => src/ecwam}/implsch.F90 | 0 {wam/Wam_oper => src/ecwam}/incdate.F90 | 0 {wam/Wam_oper => src/ecwam}/inisnonlin.F90 | 0 {wam/Wam_oper => src/ecwam}/init_fieldg.F90 | 0 .../ecwam}/init_sdiss_ardh.F90 | 0 {wam/Wam_oper => src/ecwam}/init_x0tauhf.F90 | 0 {wam/Wam_oper => src/ecwam}/initdpthflds.F90 | 0 {wam/Wam_oper => src/ecwam}/initgc.F90 | 0 {wam/Wam_oper => src/ecwam}/initialint.F90 | 0 {wam/Wam_oper => src/ecwam}/initmdl.F90 | 0 {wam/Wam_oper => src/ecwam}/initnemocpl.F90 | 0 {wam/Wam_oper => src/ecwam}/iniwcst.F90 | 0 {wam/Wam_oper => src/ecwam}/intpol.F90 | 0 {wam/Wam_oper => src/ecwam}/intspec.F90 | 0 {wam/Wam_oper => src/ecwam}/inwgrib.F90 | 0 {wam/Wam_oper => src/ecwam}/iwam_get_unit.F90 | 0 {wam/Wam_oper => src/ecwam}/jafu.F90 | 0 {wam/Wam_oper => src/ecwam}/jonswap.F90 | 0 {wam/Wam_oper => src/ecwam}/kerkei.F90 | 0 {wam/Wam_oper => src/ecwam}/kgribsize.F90 | 0 {wam/Wam_oper => src/ecwam}/kurtosis.F90 | 0 {wam/Wam_oper => src/ecwam}/kzeone.F90 | 0 {wam/Wam_oper => src/ecwam}/makegrid.F90 | 0 {wam/Wam_oper => src/ecwam}/mblock.F90 | 0 {wam/Wam_oper => src/ecwam}/mbounc.F90 | 0 {wam/Wam_oper => src/ecwam}/mbounf.F90 | 0 {wam/Wam_oper => src/ecwam}/mboxb.F90 | 0 {wam/Wam_oper => src/ecwam}/mchunk.F90 | 0 {wam/Wam_oper => src/ecwam}/mcout.F90 | 0 {wam/Wam_oper => src/ecwam}/means.F90 | 0 {wam/Wam_oper => src/ecwam}/meansqs.F90 | 0 {wam/Wam_oper => src/ecwam}/meansqs_gc.F90 | 0 {wam/Wam_oper => src/ecwam}/meansqs_lf.F90 | 0 {wam/Wam_oper => src/ecwam}/mfredir.F90 | 0 {wam/Wam_oper => src/ecwam}/mgrid.F90 | 0 {wam/Wam_oper => src/ecwam}/micep.F90 | 0 {wam/Wam_oper => src/ecwam}/mintf.F90 | 0 {wam/Wam_oper => src/ecwam}/mnintw.F90 | 0 {wam/Wam_oper => src/ecwam}/mpabort.F90 | 0 {wam/Wam_oper => src/ecwam}/mpbcastgrid.F90 | 0 {wam/Wam_oper => src/ecwam}/mpbcastintfld.F90 | 0 {wam/Wam_oper => src/ecwam}/mpclose_unit.F90 | 0 {wam/Wam_oper => src/ecwam}/mpcrtbl.F90 | 0 {wam/Wam_oper => src/ecwam}/mpdecomp.F90 | 0 {wam/Wam_oper => src/ecwam}/mpdistribfl.F90 | 0 .../Wam_oper => src/ecwam}/mpdistribscfld.F90 | 0 {wam/Wam_oper => src/ecwam}/mpexchng.F90 | 0 {wam/Wam_oper => src/ecwam}/mpfldtoifs.F90 | 0 {wam/Wam_oper => src/ecwam}/mpgatherbc.F90 | 0 {wam/Wam_oper => src/ecwam}/mpgatherfl.F90 | 0 {wam/Wam_oper => src/ecwam}/mpgatherscfld.F90 | 0 {wam/Wam_oper => src/ecwam}/mpminmaxavg.F90 | 0 {wam/Wam_oper => src/ecwam}/mpuserin.F90 | 0 {wam/Wam_oper => src/ecwam}/mstart.F90 | 0 {wam/Wam_oper => src/ecwam}/mswell.F90 | 0 {wam/Wam_oper => src/ecwam}/mtabs.F90 | 0 {wam/Wam_oper => src/ecwam}/mubuf.F90 | 0 {wam/Wam_oper => src/ecwam}/mwp1.F90 | 0 {wam/Wam_oper => src/ecwam}/mwp2.F90 | 0 {wam/Wam_oper => src/ecwam}/newwind.F90 | 0 {wam/Wam_oper => src/ecwam}/nlweigt.F90 | 0 {wam/Wam_oper => src/ecwam}/notim.F90 | 0 {wam/Wam_oper => src/ecwam}/ns_gc.F90 | 0 {wam/Wam_oper => src/ecwam}/omegagc.F90 | 0 {wam/Wam_oper => src/ecwam}/out_onegrdpt.F90 | 0 .../ecwam}/out_onegrdpt_sp.F90 | 0 {wam/Wam_oper => src/ecwam}/outbc.F90 | 0 {wam/Wam_oper => src/ecwam}/outbeta.F90 | 0 {wam/Wam_oper => src/ecwam}/outblock.F90 | 0 {wam/Wam_oper => src/ecwam}/outbs.F90 | 0 {wam/Wam_oper => src/ecwam}/outcom.F90 | 0 {wam/Wam_oper => src/ecwam}/outgrid.F90 | 0 {wam/Wam_oper => src/ecwam}/outint.F90 | 0 {wam/Wam_oper => src/ecwam}/outmdldcp.F90 | 0 {wam/Wam_oper => src/ecwam}/outnam.F90 | 0 {wam/Wam_oper => src/ecwam}/outpp.F90 | 0 {wam/Wam_oper => src/ecwam}/outsetwmask.F90 | 0 {wam/Wam_oper => src/ecwam}/outspec.F90 | 0 {wam/Wam_oper => src/ecwam}/outstep0.F90 | 0 {wam/Wam_oper => src/ecwam}/outwint.F90 | 0 {wam/Wam_oper => src/ecwam}/outwnorm.F90 | 0 {wam/Wam_oper => src/ecwam}/outwpsp.F90 | 0 {wam/Wam_oper => src/ecwam}/outwspec.F90 | 0 {wam/Wam_oper => src/ecwam}/packi.F90 | 0 {wam/Wam_oper => src/ecwam}/packr.F90 | 0 {wam/module => src/ecwam}/parkind_wave.F90 | 0 {wam/Wam_oper => src/ecwam}/parmean.F90 | 0 {wam/Wam_oper => src/ecwam}/peak.F90 | 0 {wam/Wam_oper => src/ecwam}/peak_ang.F90 | 0 {wam/Wam_oper => src/ecwam}/peak_freq.F90 | 0 {wam/Wam_oper => src/ecwam}/peakfri.F90 | 0 .../ecwam}/preset_wgrib_template.F90 | 0 {wam/Wam_oper => src/ecwam}/prewind.F90 | 0 {wam/Wam_oper => src/ecwam}/proenvhalo.F90 | 0 {wam/Wam_oper => src/ecwam}/propag_wam.F90 | 0 {wam/Wam_oper => src/ecwam}/propags.F90 | 0 {wam/Wam_oper => src/ecwam}/propags1.F90 | 0 {wam/Wam_oper => src/ecwam}/propags2.F90 | 0 {wam/Wam_oper => src/ecwam}/propdot.F90 | 0 {wam/Wam_oper => src/ecwam}/readbou.F90 | 0 {wam/Wam_oper => src/ecwam}/readfl.F90 | 0 {wam/Wam_oper => src/ecwam}/readpre.F90 | 0 {wam/Wam_oper => src/ecwam}/readsta.F90 | 0 {wam/Wam_oper => src/ecwam}/readstress.F90 | 0 {wam/Wam_oper => src/ecwam}/readwgrib.F90 | 0 {wam/Wam_oper => src/ecwam}/readwind.F90 | 0 .../Wam_oper => src/ecwam}/recvnemofields.F90 | 0 {wam/Wam_oper => src/ecwam}/rotspec.F90 | 0 {wam/Wam_oper => src/ecwam}/runwam.F90 | 0 {wam/Wam_oper => src/ecwam}/savspec.F90 | 0 {wam/Wam_oper => src/ecwam}/savstress.F90 | 0 {wam/Wam_oper => src/ecwam}/sbottom.F90 | 0 {wam/Wam_oper => src/ecwam}/scosfl.F90 | 0 {wam/Wam_oper => src/ecwam}/sdepthlim.F90 | 0 {wam/Wam_oper => src/ecwam}/sdissip.F90 | 0 {wam/Wam_oper => src/ecwam}/sdissip_ard.F90 | 0 {wam/Wam_oper => src/ecwam}/sdissip_jan.F90 | 0 {wam/Wam_oper => src/ecwam}/sdiwbk.F90 | 0 {wam/Wam_oper => src/ecwam}/se10mean.F90 | 0 {wam/Wam_oper => src/ecwam}/sebtmean.F90 | 0 .../ecwam}/second_order_lib.F90 | 0 {wam/Wam_oper => src/ecwam}/secondhh.F90 | 0 {wam/Wam_oper => src/ecwam}/secondhh_gen.F90 | 0 {wam/Wam_oper => src/ecwam}/secspom.F90 | 0 {wam/Wam_oper => src/ecwam}/semean.F90 | 0 {wam/Wam_oper => src/ecwam}/sep3tr.F90 | 0 {wam/Wam_oper => src/ecwam}/sepwisw.F90 | 0 {wam/Wam_oper => src/ecwam}/set_wflags.F90 | 0 {wam/Wam_oper => src/ecwam}/setice.F90 | 0 {wam/Wam_oper => src/ecwam}/setmarstype.F90 | 0 {wam/Wam_oper => src/ecwam}/setwavphys.F90 | 0 {wam/Wam_oper => src/ecwam}/sinflx.F90 | 0 {wam/Wam_oper => src/ecwam}/sinput.F90 | 0 {wam/Wam_oper => src/ecwam}/sinput_ard.F90 | 0 {wam/Wam_oper => src/ecwam}/sinput_jan.F90 | 0 {wam/Wam_oper => src/ecwam}/skewness.F90 | 0 {wam/Wam_oper => src/ecwam}/snonlin.F90 | 0 {wam/Wam_oper => src/ecwam}/spectra.F90 | 0 {wam/Wam_oper => src/ecwam}/spr.F90 | 0 {wam/Wam_oper => src/ecwam}/stat_nl.F90 | 0 {wam/Wam_oper => src/ecwam}/sthq.F90 | 0 {wam/Wam_oper => src/ecwam}/stokesdrift.F90 | 0 {wam/Wam_oper => src/ecwam}/stokestrn.F90 | 0 {wam/Wam_oper => src/ecwam}/stress_gc.F90 | 0 {wam/Wam_oper => src/ecwam}/stresso.F90 | 0 {wam/Wam_oper => src/ecwam}/strspec.F90 | 0 {wam/Wam_oper => src/ecwam}/tables_2nd.F90 | 0 {wam/Wam_oper => src/ecwam}/tabu_swellft.F90 | 0 {wam/Wam_oper => src/ecwam}/tau_phi_hf.F90 | 0 {wam/Wam_oper => src/ecwam}/taut_z0.F90 | 0 {wam/Wam_oper => src/ecwam}/topoar.F90 | 0 {wam/Wam_oper => src/ecwam}/transf.F90 | 0 {wam/Wam_oper => src/ecwam}/transf_bfi.F90 | 0 {wam/Wam_oper => src/ecwam}/transf_r.F90 | 0 {wam/Wam_oper => src/ecwam}/transf_snl.F90 | 0 {wam/Wam_oper => src/ecwam}/uibou.F90 | 0 {wam/Wam_oper => src/ecwam}/uiprep.F90 | 0 {wam/Wam_oper => src/ecwam}/unsetice.F90 | 0 .../ecwam/unwam}/output_struct.F90 | 0 .../ecwam/unwam}/unstruct_bound.F90 | 0 .../ecwam/unwam}/unstruct_curr.F90 | 0 {wam/module => src/ecwam/unwam}/unwam.F90 | 0 .../ecwam/unwam}/yow_rank_gloloc.F90 | 0 .../ecwam/unwam}/yowchecksmodule.F90 | 0 .../ecwam/unwam}/yowdatapool.F90 | 0 .../ecwam/unwam}/yowelementpool.F90 | 0 {wam/module => src/ecwam/unwam}/yowerror.F90 | 0 .../ecwam/unwam}/yowexchangeModule.F90 | 0 .../ecwam/unwam}/yowmpiModule.F90 | 0 .../ecwam/unwam}/yownodepool.F90 | 0 {wam/module => src/ecwam/unwam}/yowpd.F90 | 0 .../ecwam/unwam}/yowpdlibmain.F90 | 0 .../ecwam/unwam}/yowrankModule.F90 | 0 .../ecwam/unwam}/yowsidepool.F90 | 0 .../ecwam/unwam}/yowunblkrord.F90 | 0 {wam/module => src/ecwam/unwam}/yowunpool.F90 | 0 {wam/Wam_oper => src/ecwam}/updnemofields.F90 | 0 {wam/Wam_oper => src/ecwam}/updnemostress.F90 | 0 {wam/Wam_oper => src/ecwam}/userin.F90 | 0 {wam/Wam_oper => src/ecwam}/vmin.F90 | 0 {wam/Wam_oper => src/ecwam}/vmin_d.F90 | 0 {wam/Wam_oper => src/ecwam}/vplus.F90 | 0 {wam/Wam_oper => src/ecwam}/vplus_d.F90 | 0 {wam/Wam_oper => src/ecwam}/w_maxh.F90 | 0 {wam/Wam_oper => src/ecwam}/w_mode_st.F90 | 0 {wam/module => src/ecwam}/wam_multio_mod.F90 | 0 {wam/Wam_oper => src/ecwam}/wam_nproma.F90 | 0 {wam/Wam_oper => src/ecwam}/wam_sorti.F90 | 0 {wam/Wam_oper => src/ecwam}/wam_sortini.F90 | 0 {wam/Wam_oper => src/ecwam}/wam_u2l1cr.F90 | 0 .../Wam_oper => src/ecwam}/wam_user_clock.F90 | 0 {wam/Wam_oper => src/ecwam}/wamadswstar.F90 | 0 {wam/Wam_oper => src/ecwam}/wamcur.F90 | 0 {wam/Wam_oper => src/ecwam}/wamintgr.F90 | 0 {wam/Wam_oper => src/ecwam}/wamodel.F90 | 0 {wam/Wam_oper => src/ecwam}/wamwnd.F90 | 0 {wam/Wam_oper => src/ecwam}/wavemdl.F90 | 0 {wam/Wam_oper => src/ecwam}/wdfluxes.F90 | 0 {wam/Wam_oper => src/ecwam}/wdirspread.F90 | 0 {wam/Wam_oper => src/ecwam}/weflux.F90 | 0 {wam/Wam_oper => src/ecwam}/wgrib2fdb.F90 | 0 {wam/Wam_oper => src/ecwam}/wgribencode.F90 | 0 .../ecwam}/wgribencode_model.F90 | 0 {wam/Wam_oper => src/ecwam}/wgribenout.F90 | 0 {wam/Wam_oper => src/ecwam}/wgribout.F90 | 0 {wam/Wam_oper => src/ecwam}/wnfluxes.F90 | 0 {wam/Wam_oper => src/ecwam}/wposnam.F90 | 0 {wam/Wam_oper => src/ecwam}/writefl.F90 | 0 {wam/Wam_oper => src/ecwam}/writestress.F90 | 0 {wam/Wam_oper => src/ecwam}/writsta.F90 | 0 {wam/Wam_oper => src/ecwam}/wsigstar.F90 | 0 {wam/Wam_oper => src/ecwam}/wsmfen.F90 | 0 {wam/Wam_oper => src/ecwam}/wstream_strg.F90 | 0 {wam/Wam_oper => src/ecwam}/wvalloc.F90 | 0 {wam/Wam_oper => src/ecwam}/wvdealloc.F90 | 0 {wam/Wam_oper => src/ecwam}/wvfricvelo.F90 | 0 {wam/Wam_oper => src/ecwam}/wvwamdecomp.F90 | 0 {wam/Wam_oper => src/ecwam}/wvwaminit.F90 | 0 {wam/Wam_oper => src/ecwam}/wvwaminit1.F90 | 0 {wam/module => src/ecwam}/yowabort.F90 | 0 {wam/module => src/ecwam}/yowaltas.F90 | 0 {wam/module => src/ecwam}/yowassi.F90 | 0 {wam/module => src/ecwam}/yowcard.F90 | 0 {wam/module => src/ecwam}/yowcinp.F90 | 0 {wam/module => src/ecwam}/yowcoer.F90 | 0 {wam/module => src/ecwam}/yowconst_2nd.F90 | 0 {wam/module => src/ecwam}/yowcoup.F90 | 0 {wam/module => src/ecwam}/yowcout.F90 | 0 {wam/module => src/ecwam}/yowcpbo.F90 | 0 {wam/module => src/ecwam}/yowcurg.F90 | 0 {wam/module => src/ecwam}/yowcurr.F90 | 0 {wam/module => src/ecwam}/yowdes.F90 | 0 {wam/module => src/ecwam}/yowdrvtype.F90 | 0 {wam/module => src/ecwam}/yowfpbo.F90 | 0 {wam/module => src/ecwam}/yowfred.F90 | 0 {wam/module => src/ecwam}/yowgrib.F90 | 0 {wam/module => src/ecwam}/yowgrib_handles.F90 | 0 {wam/module => src/ecwam}/yowgribhd.F90 | 0 {wam/module => src/ecwam}/yowgrid.F90 | 0 {wam/module => src/ecwam}/yowice.F90 | 0 {wam/module => src/ecwam}/yowincludes.h | 0 {wam/module => src/ecwam}/yowindn.F90 | 0 {wam/module => src/ecwam}/yowintp.F90 | 0 {wam/module => src/ecwam}/yowjons.F90 | 0 {wam/module => src/ecwam}/yowmap.F90 | 0 {wam/module => src/ecwam}/yowmean.F90 | 0 {wam/module => src/ecwam}/yowmespas.F90 | 0 {wam/module => src/ecwam}/yowmpp.F90 | 0 {wam/module => src/ecwam}/yownemoflds.F90 | 0 {wam/module => src/ecwam}/yownemoio.F90 | 0 {wam/module => src/ecwam}/yowparam.F90 | 0 {wam/module => src/ecwam}/yowpcons.F90 | 0 {wam/module => src/ecwam}/yowphys.F90 | 0 {wam/module => src/ecwam}/yowprproc.F90 | 0 {wam/module => src/ecwam}/yowrefd.F90 | 0 {wam/module => src/ecwam}/yowshal.F90 | 0 {wam/module => src/ecwam}/yowspec.F90 | 0 {wam/module => src/ecwam}/yowsphere.F90 | 0 {wam/module => src/ecwam}/yowstat.F90 | 0 {wam/module => src/ecwam}/yowtabl.F90 | 0 {wam/module => src/ecwam}/yowtemp.F90 | 0 {wam/module => src/ecwam}/yowtest.F90 | 0 {wam/module => src/ecwam}/yowtext.F90 | 0 {wam/module => src/ecwam}/yowtrains.F90 | 0 {wam/module => src/ecwam}/yowubuf.F90 | 0 {wam/module => src/ecwam}/yowunit.F90 | 0 {wam/module => src/ecwam}/yowwami.F90 | 0 {wam/module => src/ecwam}/yowwind.F90 | 0 {wam/module => src/ecwam}/yowwndg.F90 | 0 {wam/Wam_oper => src/ecwam}/z0wave.F90 | 0 wam/Sar/uraopc.F.old | 86 --------- 322 files changed, 168 insertions(+), 88 deletions(-) rename {wam/Wam_oper => src/ecwam}/abort1.F90 (100%) rename {wam/Wam_oper => src/ecwam}/adjust.F90 (100%) rename {wam/Wam_oper => src/ecwam}/airsea.F90 (100%) rename {wam/Wam_oper => src/ecwam}/aki.F90 (100%) rename {wam/Wam_oper => src/ecwam}/aki_ice.F90 (100%) rename {wam/Wam_oper => src/ecwam}/alphap_tail.F90 (100%) rename {wam/Wam_oper => src/ecwam}/bouinpt.F90 (100%) rename {wam/Wam_oper => src/ecwam}/buildstress.F90 (100%) rename {wam/Wam_oper => src/ecwam}/cal_second_order_spec.F90 (100%) rename {wam/Wam_oper => src/ecwam}/cdustarz0.F90 (100%) rename {wam/Wam_oper => src/ecwam}/check.F90 (100%) rename {wam/Wam_oper => src/ecwam}/checkcfl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/chkoops.F90 (100%) rename {wam/Wam_oper => src/ecwam}/chnkmin.F90 (100%) rename {wam/Wam_oper => src/ecwam}/cigetdeac.F90 (100%) rename {wam/Wam_oper => src/ecwam}/cimsstrn.F90 (100%) rename {wam/Wam_oper => src/ecwam}/cireduce.F90 (100%) rename {wam/Wam_oper => src/ecwam}/ciwabr.F90 (100%) rename {wam/Wam_oper => src/ecwam}/ciwaf.F90 (100%) create mode 100644 src/ecwam/confile.F90 rename {wam/Wam_oper => src/ecwam}/ctuw.F90 (100%) rename {wam/Wam_oper => src/ecwam}/ctuwdrv.F90 (100%) rename {wam/Wam_oper => src/ecwam}/ctuwini.F90 (100%) rename {wam/Wam_oper => src/ecwam}/ctuwupdt.F90 (100%) rename {wam/Wam_oper => src/ecwam}/current2wam.F90 (100%) rename {wam/Wam_oper => src/ecwam}/difdate.F90 (100%) rename {wam/Wam_oper => src/ecwam}/dominant_period.F90 (100%) rename {wam/Wam_oper => src/ecwam}/expand_string.F90 (100%) rename {wam/Wam_oper => src/ecwam}/femean.F90 (100%) rename {wam/Wam_oper => src/ecwam}/femeanws.F90 (100%) rename {wam/Wam_oper => src/ecwam}/file_transfer.F90 (100%) rename {wam/Wam_oper => src/ecwam}/findb.F90 (100%) rename {wam/Wam_oper => src/ecwam}/fkmean.F90 (100%) rename {wam/Wam_oper => src/ecwam}/fldinter.F90 (100%) rename {wam/Wam_oper => src/ecwam}/fndprt.F90 (100%) rename {wam/Wam_oper => src/ecwam}/frcutindex.F90 (100%) rename {wam/function => src/ecwam}/gc_dispersion.h (100%) rename {wam/Wam_oper => src/ecwam}/get_preset_wgrib_template.F90 (100%) rename {wam/Wam_oper => src/ecwam}/getcurr.F90 (100%) rename {wam/Wam_oper => src/ecwam}/getfrstwnd.F90 (100%) rename {wam/Wam_oper => src/ecwam}/getspec.F90 (100%) rename {wam/Wam_oper => src/ecwam}/getstress.F90 (100%) rename {wam/Wam_oper => src/ecwam}/getwnd.F90 (98%) rename {wam/Wam_oper => src/ecwam}/gradi.F90 (100%) rename {wam/Wam_oper => src/ecwam}/grib2wgrid.F90 (100%) rename {wam/Wam_oper => src/ecwam}/grstname.F90 (100%) rename {wam/Wam_oper => src/ecwam}/gsfile_new.F90 (100%) rename {wam/Wam_oper => src/ecwam}/h_max.F90 (100%) rename {wam/Wam_oper => src/ecwam}/halphap.F90 (100%) rename {wam/Wam_oper => src/ecwam}/headbc.F90 (100%) rename {wam/Wam_oper => src/ecwam}/imphftail.F90 (100%) rename {wam/Wam_oper => src/ecwam}/implsch.F90 (100%) rename {wam/Wam_oper => src/ecwam}/incdate.F90 (100%) rename {wam/Wam_oper => src/ecwam}/inisnonlin.F90 (100%) rename {wam/Wam_oper => src/ecwam}/init_fieldg.F90 (100%) rename {wam/Wam_oper => src/ecwam}/init_sdiss_ardh.F90 (100%) rename {wam/Wam_oper => src/ecwam}/init_x0tauhf.F90 (100%) rename {wam/Wam_oper => src/ecwam}/initdpthflds.F90 (100%) rename {wam/Wam_oper => src/ecwam}/initgc.F90 (100%) rename {wam/Wam_oper => src/ecwam}/initialint.F90 (100%) rename {wam/Wam_oper => src/ecwam}/initmdl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/initnemocpl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/iniwcst.F90 (100%) rename {wam/Wam_oper => src/ecwam}/intpol.F90 (100%) rename {wam/Wam_oper => src/ecwam}/intspec.F90 (100%) rename {wam/Wam_oper => src/ecwam}/inwgrib.F90 (100%) rename {wam/Wam_oper => src/ecwam}/iwam_get_unit.F90 (100%) rename {wam/Wam_oper => src/ecwam}/jafu.F90 (100%) rename {wam/Wam_oper => src/ecwam}/jonswap.F90 (100%) rename {wam/Wam_oper => src/ecwam}/kerkei.F90 (100%) rename {wam/Wam_oper => src/ecwam}/kgribsize.F90 (100%) rename {wam/Wam_oper => src/ecwam}/kurtosis.F90 (100%) rename {wam/Wam_oper => src/ecwam}/kzeone.F90 (100%) rename {wam/Wam_oper => src/ecwam}/makegrid.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mblock.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mbounc.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mbounf.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mboxb.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mchunk.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mcout.F90 (100%) rename {wam/Wam_oper => src/ecwam}/means.F90 (100%) rename {wam/Wam_oper => src/ecwam}/meansqs.F90 (100%) rename {wam/Wam_oper => src/ecwam}/meansqs_gc.F90 (100%) rename {wam/Wam_oper => src/ecwam}/meansqs_lf.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mfredir.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mgrid.F90 (100%) rename {wam/Wam_oper => src/ecwam}/micep.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mintf.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mnintw.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpabort.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpbcastgrid.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpbcastintfld.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpclose_unit.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpcrtbl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpdecomp.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpdistribfl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpdistribscfld.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpexchng.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpfldtoifs.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpgatherbc.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpgatherfl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpgatherscfld.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpminmaxavg.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mpuserin.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mstart.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mswell.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mtabs.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mubuf.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mwp1.F90 (100%) rename {wam/Wam_oper => src/ecwam}/mwp2.F90 (100%) rename {wam/Wam_oper => src/ecwam}/newwind.F90 (100%) rename {wam/Wam_oper => src/ecwam}/nlweigt.F90 (100%) rename {wam/Wam_oper => src/ecwam}/notim.F90 (100%) rename {wam/Wam_oper => src/ecwam}/ns_gc.F90 (100%) rename {wam/Wam_oper => src/ecwam}/omegagc.F90 (100%) rename {wam/Wam_oper => src/ecwam}/out_onegrdpt.F90 (100%) rename {wam/Wam_oper => src/ecwam}/out_onegrdpt_sp.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outbc.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outbeta.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outblock.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outbs.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outcom.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outgrid.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outint.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outmdldcp.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outnam.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outpp.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outsetwmask.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outspec.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outstep0.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outwint.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outwnorm.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outwpsp.F90 (100%) rename {wam/Wam_oper => src/ecwam}/outwspec.F90 (100%) rename {wam/Wam_oper => src/ecwam}/packi.F90 (100%) rename {wam/Wam_oper => src/ecwam}/packr.F90 (100%) rename {wam/module => src/ecwam}/parkind_wave.F90 (100%) rename {wam/Wam_oper => src/ecwam}/parmean.F90 (100%) rename {wam/Wam_oper => src/ecwam}/peak.F90 (100%) rename {wam/Wam_oper => src/ecwam}/peak_ang.F90 (100%) rename {wam/Wam_oper => src/ecwam}/peak_freq.F90 (100%) rename {wam/Wam_oper => src/ecwam}/peakfri.F90 (100%) rename {wam/Wam_oper => src/ecwam}/preset_wgrib_template.F90 (100%) rename {wam/Wam_oper => src/ecwam}/prewind.F90 (100%) rename {wam/Wam_oper => src/ecwam}/proenvhalo.F90 (100%) rename {wam/Wam_oper => src/ecwam}/propag_wam.F90 (100%) rename {wam/Wam_oper => src/ecwam}/propags.F90 (100%) rename {wam/Wam_oper => src/ecwam}/propags1.F90 (100%) rename {wam/Wam_oper => src/ecwam}/propags2.F90 (100%) rename {wam/Wam_oper => src/ecwam}/propdot.F90 (100%) rename {wam/Wam_oper => src/ecwam}/readbou.F90 (100%) rename {wam/Wam_oper => src/ecwam}/readfl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/readpre.F90 (100%) rename {wam/Wam_oper => src/ecwam}/readsta.F90 (100%) rename {wam/Wam_oper => src/ecwam}/readstress.F90 (100%) rename {wam/Wam_oper => src/ecwam}/readwgrib.F90 (100%) rename {wam/Wam_oper => src/ecwam}/readwind.F90 (100%) rename {wam/Wam_oper => src/ecwam}/recvnemofields.F90 (100%) rename {wam/Wam_oper => src/ecwam}/rotspec.F90 (100%) rename {wam/Wam_oper => src/ecwam}/runwam.F90 (100%) rename {wam/Wam_oper => src/ecwam}/savspec.F90 (100%) rename {wam/Wam_oper => src/ecwam}/savstress.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sbottom.F90 (100%) rename {wam/Wam_oper => src/ecwam}/scosfl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sdepthlim.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sdissip.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sdissip_ard.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sdissip_jan.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sdiwbk.F90 (100%) rename {wam/Wam_oper => src/ecwam}/se10mean.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sebtmean.F90 (100%) rename {wam/Wam_oper => src/ecwam}/second_order_lib.F90 (100%) rename {wam/Wam_oper => src/ecwam}/secondhh.F90 (100%) rename {wam/Wam_oper => src/ecwam}/secondhh_gen.F90 (100%) rename {wam/Wam_oper => src/ecwam}/secspom.F90 (100%) rename {wam/Wam_oper => src/ecwam}/semean.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sep3tr.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sepwisw.F90 (100%) rename {wam/Wam_oper => src/ecwam}/set_wflags.F90 (100%) rename {wam/Wam_oper => src/ecwam}/setice.F90 (100%) rename {wam/Wam_oper => src/ecwam}/setmarstype.F90 (100%) rename {wam/Wam_oper => src/ecwam}/setwavphys.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sinflx.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sinput.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sinput_ard.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sinput_jan.F90 (100%) rename {wam/Wam_oper => src/ecwam}/skewness.F90 (100%) rename {wam/Wam_oper => src/ecwam}/snonlin.F90 (100%) rename {wam/Wam_oper => src/ecwam}/spectra.F90 (100%) rename {wam/Wam_oper => src/ecwam}/spr.F90 (100%) rename {wam/Wam_oper => src/ecwam}/stat_nl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/sthq.F90 (100%) rename {wam/Wam_oper => src/ecwam}/stokesdrift.F90 (100%) rename {wam/Wam_oper => src/ecwam}/stokestrn.F90 (100%) rename {wam/Wam_oper => src/ecwam}/stress_gc.F90 (100%) rename {wam/Wam_oper => src/ecwam}/stresso.F90 (100%) rename {wam/Wam_oper => src/ecwam}/strspec.F90 (100%) rename {wam/Wam_oper => src/ecwam}/tables_2nd.F90 (100%) rename {wam/Wam_oper => src/ecwam}/tabu_swellft.F90 (100%) rename {wam/Wam_oper => src/ecwam}/tau_phi_hf.F90 (100%) rename {wam/Wam_oper => src/ecwam}/taut_z0.F90 (100%) rename {wam/Wam_oper => src/ecwam}/topoar.F90 (100%) rename {wam/Wam_oper => src/ecwam}/transf.F90 (100%) rename {wam/Wam_oper => src/ecwam}/transf_bfi.F90 (100%) rename {wam/Wam_oper => src/ecwam}/transf_r.F90 (100%) rename {wam/Wam_oper => src/ecwam}/transf_snl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/uibou.F90 (100%) rename {wam/Wam_oper => src/ecwam}/uiprep.F90 (100%) rename {wam/Wam_oper => src/ecwam}/unsetice.F90 (100%) rename {wam/module => src/ecwam/unwam}/output_struct.F90 (100%) rename {wam/module => src/ecwam/unwam}/unstruct_bound.F90 (100%) rename {wam/module => src/ecwam/unwam}/unstruct_curr.F90 (100%) rename {wam/module => src/ecwam/unwam}/unwam.F90 (100%) rename {wam/module => src/ecwam/unwam}/yow_rank_gloloc.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowchecksmodule.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowdatapool.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowelementpool.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowerror.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowexchangeModule.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowmpiModule.F90 (100%) rename {wam/module => src/ecwam/unwam}/yownodepool.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowpd.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowpdlibmain.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowrankModule.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowsidepool.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowunblkrord.F90 (100%) rename {wam/module => src/ecwam/unwam}/yowunpool.F90 (100%) rename {wam/Wam_oper => src/ecwam}/updnemofields.F90 (100%) rename {wam/Wam_oper => src/ecwam}/updnemostress.F90 (100%) rename {wam/Wam_oper => src/ecwam}/userin.F90 (100%) rename {wam/Wam_oper => src/ecwam}/vmin.F90 (100%) rename {wam/Wam_oper => src/ecwam}/vmin_d.F90 (100%) rename {wam/Wam_oper => src/ecwam}/vplus.F90 (100%) rename {wam/Wam_oper => src/ecwam}/vplus_d.F90 (100%) rename {wam/Wam_oper => src/ecwam}/w_maxh.F90 (100%) rename {wam/Wam_oper => src/ecwam}/w_mode_st.F90 (100%) rename {wam/module => src/ecwam}/wam_multio_mod.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wam_nproma.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wam_sorti.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wam_sortini.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wam_u2l1cr.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wam_user_clock.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wamadswstar.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wamcur.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wamintgr.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wamodel.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wamwnd.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wavemdl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wdfluxes.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wdirspread.F90 (100%) rename {wam/Wam_oper => src/ecwam}/weflux.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wgrib2fdb.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wgribencode.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wgribencode_model.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wgribenout.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wgribout.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wnfluxes.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wposnam.F90 (100%) rename {wam/Wam_oper => src/ecwam}/writefl.F90 (100%) rename {wam/Wam_oper => src/ecwam}/writestress.F90 (100%) rename {wam/Wam_oper => src/ecwam}/writsta.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wsigstar.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wsmfen.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wstream_strg.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wvalloc.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wvdealloc.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wvfricvelo.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wvwamdecomp.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wvwaminit.F90 (100%) rename {wam/Wam_oper => src/ecwam}/wvwaminit1.F90 (100%) rename {wam/module => src/ecwam}/yowabort.F90 (100%) rename {wam/module => src/ecwam}/yowaltas.F90 (100%) rename {wam/module => src/ecwam}/yowassi.F90 (100%) rename {wam/module => src/ecwam}/yowcard.F90 (100%) rename {wam/module => src/ecwam}/yowcinp.F90 (100%) rename {wam/module => src/ecwam}/yowcoer.F90 (100%) rename {wam/module => src/ecwam}/yowconst_2nd.F90 (100%) rename {wam/module => src/ecwam}/yowcoup.F90 (100%) rename {wam/module => src/ecwam}/yowcout.F90 (100%) rename {wam/module => src/ecwam}/yowcpbo.F90 (100%) rename {wam/module => src/ecwam}/yowcurg.F90 (100%) rename {wam/module => src/ecwam}/yowcurr.F90 (100%) rename {wam/module => src/ecwam}/yowdes.F90 (100%) rename {wam/module => src/ecwam}/yowdrvtype.F90 (100%) rename {wam/module => src/ecwam}/yowfpbo.F90 (100%) rename {wam/module => src/ecwam}/yowfred.F90 (100%) rename {wam/module => src/ecwam}/yowgrib.F90 (100%) rename {wam/module => src/ecwam}/yowgrib_handles.F90 (100%) rename {wam/module => src/ecwam}/yowgribhd.F90 (100%) rename {wam/module => src/ecwam}/yowgrid.F90 (100%) rename {wam/module => src/ecwam}/yowice.F90 (100%) rename {wam/module => src/ecwam}/yowincludes.h (100%) rename {wam/module => src/ecwam}/yowindn.F90 (100%) rename {wam/module => src/ecwam}/yowintp.F90 (100%) rename {wam/module => src/ecwam}/yowjons.F90 (100%) rename {wam/module => src/ecwam}/yowmap.F90 (100%) rename {wam/module => src/ecwam}/yowmean.F90 (100%) rename {wam/module => src/ecwam}/yowmespas.F90 (100%) rename {wam/module => src/ecwam}/yowmpp.F90 (100%) rename {wam/module => src/ecwam}/yownemoflds.F90 (100%) rename {wam/module => src/ecwam}/yownemoio.F90 (100%) rename {wam/module => src/ecwam}/yowparam.F90 (100%) rename {wam/module => src/ecwam}/yowpcons.F90 (100%) rename {wam/module => src/ecwam}/yowphys.F90 (100%) rename {wam/module => src/ecwam}/yowprproc.F90 (100%) rename {wam/module => src/ecwam}/yowrefd.F90 (100%) rename {wam/module => src/ecwam}/yowshal.F90 (100%) rename {wam/module => src/ecwam}/yowspec.F90 (100%) rename {wam/module => src/ecwam}/yowsphere.F90 (100%) rename {wam/module => src/ecwam}/yowstat.F90 (100%) rename {wam/module => src/ecwam}/yowtabl.F90 (100%) rename {wam/module => src/ecwam}/yowtemp.F90 (100%) rename {wam/module => src/ecwam}/yowtest.F90 (100%) rename {wam/module => src/ecwam}/yowtext.F90 (100%) rename {wam/module => src/ecwam}/yowtrains.F90 (100%) rename {wam/module => src/ecwam}/yowubuf.F90 (100%) rename {wam/module => src/ecwam}/yowunit.F90 (100%) rename {wam/module => src/ecwam}/yowwami.F90 (100%) rename {wam/module => src/ecwam}/yowwind.F90 (100%) rename {wam/module => src/ecwam}/yowwndg.F90 (100%) rename {wam/Wam_oper => src/ecwam}/z0wave.F90 (100%) delete mode 100644 wam/Sar/uraopc.F.old diff --git a/wam/Wam_oper/abort1.F90 b/src/ecwam/abort1.F90 similarity index 100% rename from wam/Wam_oper/abort1.F90 rename to src/ecwam/abort1.F90 diff --git a/wam/Wam_oper/adjust.F90 b/src/ecwam/adjust.F90 similarity index 100% rename from wam/Wam_oper/adjust.F90 rename to src/ecwam/adjust.F90 diff --git a/wam/Wam_oper/airsea.F90 b/src/ecwam/airsea.F90 similarity index 100% rename from wam/Wam_oper/airsea.F90 rename to src/ecwam/airsea.F90 diff --git a/wam/Wam_oper/aki.F90 b/src/ecwam/aki.F90 similarity index 100% rename from wam/Wam_oper/aki.F90 rename to src/ecwam/aki.F90 diff --git a/wam/Wam_oper/aki_ice.F90 b/src/ecwam/aki_ice.F90 similarity index 100% rename from wam/Wam_oper/aki_ice.F90 rename to src/ecwam/aki_ice.F90 diff --git a/wam/Wam_oper/alphap_tail.F90 b/src/ecwam/alphap_tail.F90 similarity index 100% rename from wam/Wam_oper/alphap_tail.F90 rename to src/ecwam/alphap_tail.F90 diff --git a/wam/Wam_oper/bouinpt.F90 b/src/ecwam/bouinpt.F90 similarity index 100% rename from wam/Wam_oper/bouinpt.F90 rename to src/ecwam/bouinpt.F90 diff --git a/wam/Wam_oper/buildstress.F90 b/src/ecwam/buildstress.F90 similarity index 100% rename from wam/Wam_oper/buildstress.F90 rename to src/ecwam/buildstress.F90 diff --git a/wam/Wam_oper/cal_second_order_spec.F90 b/src/ecwam/cal_second_order_spec.F90 similarity index 100% rename from wam/Wam_oper/cal_second_order_spec.F90 rename to src/ecwam/cal_second_order_spec.F90 diff --git a/wam/Wam_oper/cdustarz0.F90 b/src/ecwam/cdustarz0.F90 similarity index 100% rename from wam/Wam_oper/cdustarz0.F90 rename to src/ecwam/cdustarz0.F90 diff --git a/wam/Wam_oper/check.F90 b/src/ecwam/check.F90 similarity index 100% rename from wam/Wam_oper/check.F90 rename to src/ecwam/check.F90 diff --git a/wam/Wam_oper/checkcfl.F90 b/src/ecwam/checkcfl.F90 similarity index 100% rename from wam/Wam_oper/checkcfl.F90 rename to src/ecwam/checkcfl.F90 diff --git a/wam/Wam_oper/chkoops.F90 b/src/ecwam/chkoops.F90 similarity index 100% rename from wam/Wam_oper/chkoops.F90 rename to src/ecwam/chkoops.F90 diff --git a/wam/Wam_oper/chnkmin.F90 b/src/ecwam/chnkmin.F90 similarity index 100% rename from wam/Wam_oper/chnkmin.F90 rename to src/ecwam/chnkmin.F90 diff --git a/wam/Wam_oper/cigetdeac.F90 b/src/ecwam/cigetdeac.F90 similarity index 100% rename from wam/Wam_oper/cigetdeac.F90 rename to src/ecwam/cigetdeac.F90 diff --git a/wam/Wam_oper/cimsstrn.F90 b/src/ecwam/cimsstrn.F90 similarity index 100% rename from wam/Wam_oper/cimsstrn.F90 rename to src/ecwam/cimsstrn.F90 diff --git a/wam/Wam_oper/cireduce.F90 b/src/ecwam/cireduce.F90 similarity index 100% rename from wam/Wam_oper/cireduce.F90 rename to src/ecwam/cireduce.F90 diff --git a/wam/Wam_oper/ciwabr.F90 b/src/ecwam/ciwabr.F90 similarity index 100% rename from wam/Wam_oper/ciwabr.F90 rename to src/ecwam/ciwabr.F90 diff --git a/wam/Wam_oper/ciwaf.F90 b/src/ecwam/ciwaf.F90 similarity index 100% rename from wam/Wam_oper/ciwaf.F90 rename to src/ecwam/ciwaf.F90 diff --git a/src/ecwam/confile.F90 b/src/ecwam/confile.F90 new file mode 100644 index 000000000..d2318aeb9 --- /dev/null +++ b/src/ecwam/confile.F90 @@ -0,0 +1,166 @@ +!======================================================================= + + SUBROUTINE CONFILE (kuso, kunit, cdate, yafileid, kfail, losuvi) + +!----------------------------------------------------------------------- + +!**** *confile* *data aquisition* + +! b. hansen ECMWF july 1991 + +! PURPOSE. +! -------- +! Opens data file unformatted for the use of a program. +! handling of files following the naming convention +! XXXYYYYMMDDHHMM +! where XXX is the yafileid +! YYYY is the year +! MM is the month +! DD is the day +! HH is the hour +! MM is the minute + +!** INTERFACE. +! ---------- +! CALL confile (kuso, kunit, cdate, yafileid, kfail) + +! *kuso* INTEGER FORTRAN UNIT FOR THE PRINTER OUTPUT. +! *kunit* INTEGER FORTRAN UNIT FOR THE REQUESTED FILE. +! *cdate* CHAR*14 DATE TIME GROUP (YYYYMMDDHHMMSS). +! !!! The seconds information will not be +! !!! used for the filename definition. +! *yafileid* CHARACTER*3 FILE ID. +! *kfail* INTEGER = 0 NO ERROR. +! > 0 ERROR. +! *losuvi* LOGICAL IF TRUE THAN MESSAGES SENT TO KUSO + +! EXTERNALS. +! ---------- +! NONE. + +! METHOD. +! ------- +! "confile" checks if the required file resides in the working +! catalog. +! If not "confile" will return with kfail > 0. +! If the requested file is not already opened this will be done +! on unit kunit. IF the unit is already in use it will be +! released. + +! REFERENCES. +! ----------- +! NONE + +!---------------------------------------------------------------------- + +!* 0. DEFINITIONS. +! ------------------ + + USE PARKIND_WAVE, ONLY : JWIM, JWRB, JWRU + + IMPLICIT NONE + + INTEGER(KIND=JWIM), INTENT(IN) :: kuso, kunit + INTEGER(KIND=JWIM), INTENT(OUT) :: kfail + + CHARACTER(LEN= 3) :: yafileid + CHARACTER(LEN=14) :: cdate + + LOGICAL, INTENT(IN) :: losuvi + + + INTEGER(KIND=JWIM) :: knum + CHARACTER(LEN= 7) :: csubna + CHARACTER(LEN= 12) :: cdate_short + CHARACTER(LEN= 15) :: yoname + CHARACTER(LEN=130) :: younitnam + + LOGICAL :: ex, od + + DATA csubna /"confile"/ + +!---------------------------------------------------------------------- + +!* 1.0 INITIALIZATION. +! --------------------- + + kfail = 0 + +!---------------------------------------------------------------------- + +!* 2. CONSTRUCT FILE NAME. +! -------------------------- + + cdate_short=cdate(1:12) + IF (losuvi) THEN + WRITE(kuso,*) ' FILE INQUIRY FOR ',yafileid,cdate_short + ENDIF + yoname = yafileid + yoname(4:15) = cdate_short + +!---------------------------------------------------------------------- + +!* 3.0 CHECK STATUS OF UNIT. +! --------------------------- + + INQUIRE ( UNIT=kunit, OPENED=od, NAME=younitnam, ERR=8200) + IF (od) THEN + IF (len_trim(younitnam) .EQ. 15 ) THEN + IF ( younitnam(1:15) .EQ. yoname ) THEN + REWIND kunit + RETURN + ENDIF + ELSE + CLOSE (UNIT=kunit, ERR=8300) + IF (losuvi) THEN + WRITE(kuso,*) ' UNIT ',kunit,' WAS OPENED ' + WRITE(kuso,*) ' AND CONNECTED WITH FILE ',younitnam(1:50) + WRITE(kuso,*) ' IS NOW CLOSED ' + ENDIF + ENDIF + ENDIF + +!---------------------------------------------------------------------- + +!* 4.0 CHECK STATUS OF FILE. +! --------------------------- + + INQUIRE (FILE=yoname, EXIST=ex, OPENED=od, NUMBER=knum, ERR =8100) + IF (.NOT.ex) THEN + kfail = 1 + RETURN + ELSE + OPEN (FILE=yoname, UNIT=kunit, FORM='unformatted', ERR=8400) + IF (losuvi) THEN + WRITE(kuso,*) ' FILE ',yoname, & + & ' IS NOW OPENED ON UNIT ', kunit + WRITE(kuso,*) ' ' + ENDIF + ENDIF + RETURN + +!---------------------------------------------------------------------- + +!* 8.0 RETURN IN CASE OF FAILURE. +! -------------------------------- + 8100 CONTINUE + kfail=20 + WRITE(kuso,*) ' INQUIRY ON FILE NAMED ',yoname,' FAILED' + WRITE(kuso,*) ' ' + RETURN + 8200 CONTINUE + kfail=30 + WRITE(kuso,*) ' INQUIRY ON UNIT ',kunit,' FAILED' + WRITE(kuso,*) ' ' + RETURN + 8300 CONTINUE + kfail=40 + WRITE(kuso,*) ' CLOSE ON UNIT ',kunit,' FAILED' + WRITE(kuso,*) ' ' + RETURN + 8400 CONTINUE + kfail=50 + WRITE(kuso,*) ' OPEN ON FILE NAMED ',yoname,' FAILED' + WRITE(kuso,*) ' ' + RETURN + END SUBROUTINE CONFILE diff --git a/wam/Wam_oper/ctuw.F90 b/src/ecwam/ctuw.F90 similarity index 100% rename from wam/Wam_oper/ctuw.F90 rename to src/ecwam/ctuw.F90 diff --git a/wam/Wam_oper/ctuwdrv.F90 b/src/ecwam/ctuwdrv.F90 similarity index 100% rename from wam/Wam_oper/ctuwdrv.F90 rename to src/ecwam/ctuwdrv.F90 diff --git a/wam/Wam_oper/ctuwini.F90 b/src/ecwam/ctuwini.F90 similarity index 100% rename from wam/Wam_oper/ctuwini.F90 rename to src/ecwam/ctuwini.F90 diff --git a/wam/Wam_oper/ctuwupdt.F90 b/src/ecwam/ctuwupdt.F90 similarity index 100% rename from wam/Wam_oper/ctuwupdt.F90 rename to src/ecwam/ctuwupdt.F90 diff --git a/wam/Wam_oper/current2wam.F90 b/src/ecwam/current2wam.F90 similarity index 100% rename from wam/Wam_oper/current2wam.F90 rename to src/ecwam/current2wam.F90 diff --git a/wam/Wam_oper/difdate.F90 b/src/ecwam/difdate.F90 similarity index 100% rename from wam/Wam_oper/difdate.F90 rename to src/ecwam/difdate.F90 diff --git a/wam/Wam_oper/dominant_period.F90 b/src/ecwam/dominant_period.F90 similarity index 100% rename from wam/Wam_oper/dominant_period.F90 rename to src/ecwam/dominant_period.F90 diff --git a/wam/Wam_oper/expand_string.F90 b/src/ecwam/expand_string.F90 similarity index 100% rename from wam/Wam_oper/expand_string.F90 rename to src/ecwam/expand_string.F90 diff --git a/wam/Wam_oper/femean.F90 b/src/ecwam/femean.F90 similarity index 100% rename from wam/Wam_oper/femean.F90 rename to src/ecwam/femean.F90 diff --git a/wam/Wam_oper/femeanws.F90 b/src/ecwam/femeanws.F90 similarity index 100% rename from wam/Wam_oper/femeanws.F90 rename to src/ecwam/femeanws.F90 diff --git a/wam/Wam_oper/file_transfer.F90 b/src/ecwam/file_transfer.F90 similarity index 100% rename from wam/Wam_oper/file_transfer.F90 rename to src/ecwam/file_transfer.F90 diff --git a/wam/Wam_oper/findb.F90 b/src/ecwam/findb.F90 similarity index 100% rename from wam/Wam_oper/findb.F90 rename to src/ecwam/findb.F90 diff --git a/wam/Wam_oper/fkmean.F90 b/src/ecwam/fkmean.F90 similarity index 100% rename from wam/Wam_oper/fkmean.F90 rename to src/ecwam/fkmean.F90 diff --git a/wam/Wam_oper/fldinter.F90 b/src/ecwam/fldinter.F90 similarity index 100% rename from wam/Wam_oper/fldinter.F90 rename to src/ecwam/fldinter.F90 diff --git a/wam/Wam_oper/fndprt.F90 b/src/ecwam/fndprt.F90 similarity index 100% rename from wam/Wam_oper/fndprt.F90 rename to src/ecwam/fndprt.F90 diff --git a/wam/Wam_oper/frcutindex.F90 b/src/ecwam/frcutindex.F90 similarity index 100% rename from wam/Wam_oper/frcutindex.F90 rename to src/ecwam/frcutindex.F90 diff --git a/wam/function/gc_dispersion.h b/src/ecwam/gc_dispersion.h similarity index 100% rename from wam/function/gc_dispersion.h rename to src/ecwam/gc_dispersion.h diff --git a/wam/Wam_oper/get_preset_wgrib_template.F90 b/src/ecwam/get_preset_wgrib_template.F90 similarity index 100% rename from wam/Wam_oper/get_preset_wgrib_template.F90 rename to src/ecwam/get_preset_wgrib_template.F90 diff --git a/wam/Wam_oper/getcurr.F90 b/src/ecwam/getcurr.F90 similarity index 100% rename from wam/Wam_oper/getcurr.F90 rename to src/ecwam/getcurr.F90 diff --git a/wam/Wam_oper/getfrstwnd.F90 b/src/ecwam/getfrstwnd.F90 similarity index 100% rename from wam/Wam_oper/getfrstwnd.F90 rename to src/ecwam/getfrstwnd.F90 diff --git a/wam/Wam_oper/getspec.F90 b/src/ecwam/getspec.F90 similarity index 100% rename from wam/Wam_oper/getspec.F90 rename to src/ecwam/getspec.F90 diff --git a/wam/Wam_oper/getstress.F90 b/src/ecwam/getstress.F90 similarity index 100% rename from wam/Wam_oper/getstress.F90 rename to src/ecwam/getstress.F90 diff --git a/wam/Wam_oper/getwnd.F90 b/src/ecwam/getwnd.F90 similarity index 98% rename from wam/Wam_oper/getwnd.F90 rename to src/ecwam/getwnd.F90 index 2eca77e00..a87f5706f 100644 --- a/wam/Wam_oper/getwnd.F90 +++ b/src/ecwam/getwnd.F90 @@ -167,9 +167,9 @@ SUBROUTINE GETWND (IFROMIJ, JFROMIJ, & WRITE (IU06,*) ' * ======================= *' WRITE (IU06,*) ' * WIND DATE IS LATER THAN EXPECTED *' IF (LWNDFILE) THEN - WRITE (IU06,*) ' * DATE READ IS CDTWIR = ', CDTWIR + WRITE (IU06,*) ' * DATE READ IS CDTWIR = ', CDTWIR ELSE - WRITE (IU06,*) ' * DECODED DATE IS CDTWIR = ', CDTWIR + WRITE (IU06,*) ' * DECODED DATE IS CDTWIR = ', CDTWIR ENDIF WRITE (IU06,*) ' * DATE EXPECTED IS CDTWIS = ', CDTWIS WRITE (IU06,*) ' * *' diff --git a/wam/Wam_oper/gradi.F90 b/src/ecwam/gradi.F90 similarity index 100% rename from wam/Wam_oper/gradi.F90 rename to src/ecwam/gradi.F90 diff --git a/wam/Wam_oper/grib2wgrid.F90 b/src/ecwam/grib2wgrid.F90 similarity index 100% rename from wam/Wam_oper/grib2wgrid.F90 rename to src/ecwam/grib2wgrid.F90 diff --git a/wam/Wam_oper/grstname.F90 b/src/ecwam/grstname.F90 similarity index 100% rename from wam/Wam_oper/grstname.F90 rename to src/ecwam/grstname.F90 diff --git a/wam/Wam_oper/gsfile_new.F90 b/src/ecwam/gsfile_new.F90 similarity index 100% rename from wam/Wam_oper/gsfile_new.F90 rename to src/ecwam/gsfile_new.F90 diff --git a/wam/Wam_oper/h_max.F90 b/src/ecwam/h_max.F90 similarity index 100% rename from wam/Wam_oper/h_max.F90 rename to src/ecwam/h_max.F90 diff --git a/wam/Wam_oper/halphap.F90 b/src/ecwam/halphap.F90 similarity index 100% rename from wam/Wam_oper/halphap.F90 rename to src/ecwam/halphap.F90 diff --git a/wam/Wam_oper/headbc.F90 b/src/ecwam/headbc.F90 similarity index 100% rename from wam/Wam_oper/headbc.F90 rename to src/ecwam/headbc.F90 diff --git a/wam/Wam_oper/imphftail.F90 b/src/ecwam/imphftail.F90 similarity index 100% rename from wam/Wam_oper/imphftail.F90 rename to src/ecwam/imphftail.F90 diff --git a/wam/Wam_oper/implsch.F90 b/src/ecwam/implsch.F90 similarity index 100% rename from wam/Wam_oper/implsch.F90 rename to src/ecwam/implsch.F90 diff --git a/wam/Wam_oper/incdate.F90 b/src/ecwam/incdate.F90 similarity index 100% rename from wam/Wam_oper/incdate.F90 rename to src/ecwam/incdate.F90 diff --git a/wam/Wam_oper/inisnonlin.F90 b/src/ecwam/inisnonlin.F90 similarity index 100% rename from wam/Wam_oper/inisnonlin.F90 rename to src/ecwam/inisnonlin.F90 diff --git a/wam/Wam_oper/init_fieldg.F90 b/src/ecwam/init_fieldg.F90 similarity index 100% rename from wam/Wam_oper/init_fieldg.F90 rename to src/ecwam/init_fieldg.F90 diff --git a/wam/Wam_oper/init_sdiss_ardh.F90 b/src/ecwam/init_sdiss_ardh.F90 similarity index 100% rename from wam/Wam_oper/init_sdiss_ardh.F90 rename to src/ecwam/init_sdiss_ardh.F90 diff --git a/wam/Wam_oper/init_x0tauhf.F90 b/src/ecwam/init_x0tauhf.F90 similarity index 100% rename from wam/Wam_oper/init_x0tauhf.F90 rename to src/ecwam/init_x0tauhf.F90 diff --git a/wam/Wam_oper/initdpthflds.F90 b/src/ecwam/initdpthflds.F90 similarity index 100% rename from wam/Wam_oper/initdpthflds.F90 rename to src/ecwam/initdpthflds.F90 diff --git a/wam/Wam_oper/initgc.F90 b/src/ecwam/initgc.F90 similarity index 100% rename from wam/Wam_oper/initgc.F90 rename to src/ecwam/initgc.F90 diff --git a/wam/Wam_oper/initialint.F90 b/src/ecwam/initialint.F90 similarity index 100% rename from wam/Wam_oper/initialint.F90 rename to src/ecwam/initialint.F90 diff --git a/wam/Wam_oper/initmdl.F90 b/src/ecwam/initmdl.F90 similarity index 100% rename from wam/Wam_oper/initmdl.F90 rename to src/ecwam/initmdl.F90 diff --git a/wam/Wam_oper/initnemocpl.F90 b/src/ecwam/initnemocpl.F90 similarity index 100% rename from wam/Wam_oper/initnemocpl.F90 rename to src/ecwam/initnemocpl.F90 diff --git a/wam/Wam_oper/iniwcst.F90 b/src/ecwam/iniwcst.F90 similarity index 100% rename from wam/Wam_oper/iniwcst.F90 rename to src/ecwam/iniwcst.F90 diff --git a/wam/Wam_oper/intpol.F90 b/src/ecwam/intpol.F90 similarity index 100% rename from wam/Wam_oper/intpol.F90 rename to src/ecwam/intpol.F90 diff --git a/wam/Wam_oper/intspec.F90 b/src/ecwam/intspec.F90 similarity index 100% rename from wam/Wam_oper/intspec.F90 rename to src/ecwam/intspec.F90 diff --git a/wam/Wam_oper/inwgrib.F90 b/src/ecwam/inwgrib.F90 similarity index 100% rename from wam/Wam_oper/inwgrib.F90 rename to src/ecwam/inwgrib.F90 diff --git a/wam/Wam_oper/iwam_get_unit.F90 b/src/ecwam/iwam_get_unit.F90 similarity index 100% rename from wam/Wam_oper/iwam_get_unit.F90 rename to src/ecwam/iwam_get_unit.F90 diff --git a/wam/Wam_oper/jafu.F90 b/src/ecwam/jafu.F90 similarity index 100% rename from wam/Wam_oper/jafu.F90 rename to src/ecwam/jafu.F90 diff --git a/wam/Wam_oper/jonswap.F90 b/src/ecwam/jonswap.F90 similarity index 100% rename from wam/Wam_oper/jonswap.F90 rename to src/ecwam/jonswap.F90 diff --git a/wam/Wam_oper/kerkei.F90 b/src/ecwam/kerkei.F90 similarity index 100% rename from wam/Wam_oper/kerkei.F90 rename to src/ecwam/kerkei.F90 diff --git a/wam/Wam_oper/kgribsize.F90 b/src/ecwam/kgribsize.F90 similarity index 100% rename from wam/Wam_oper/kgribsize.F90 rename to src/ecwam/kgribsize.F90 diff --git a/wam/Wam_oper/kurtosis.F90 b/src/ecwam/kurtosis.F90 similarity index 100% rename from wam/Wam_oper/kurtosis.F90 rename to src/ecwam/kurtosis.F90 diff --git a/wam/Wam_oper/kzeone.F90 b/src/ecwam/kzeone.F90 similarity index 100% rename from wam/Wam_oper/kzeone.F90 rename to src/ecwam/kzeone.F90 diff --git a/wam/Wam_oper/makegrid.F90 b/src/ecwam/makegrid.F90 similarity index 100% rename from wam/Wam_oper/makegrid.F90 rename to src/ecwam/makegrid.F90 diff --git a/wam/Wam_oper/mblock.F90 b/src/ecwam/mblock.F90 similarity index 100% rename from wam/Wam_oper/mblock.F90 rename to src/ecwam/mblock.F90 diff --git a/wam/Wam_oper/mbounc.F90 b/src/ecwam/mbounc.F90 similarity index 100% rename from wam/Wam_oper/mbounc.F90 rename to src/ecwam/mbounc.F90 diff --git a/wam/Wam_oper/mbounf.F90 b/src/ecwam/mbounf.F90 similarity index 100% rename from wam/Wam_oper/mbounf.F90 rename to src/ecwam/mbounf.F90 diff --git a/wam/Wam_oper/mboxb.F90 b/src/ecwam/mboxb.F90 similarity index 100% rename from wam/Wam_oper/mboxb.F90 rename to src/ecwam/mboxb.F90 diff --git a/wam/Wam_oper/mchunk.F90 b/src/ecwam/mchunk.F90 similarity index 100% rename from wam/Wam_oper/mchunk.F90 rename to src/ecwam/mchunk.F90 diff --git a/wam/Wam_oper/mcout.F90 b/src/ecwam/mcout.F90 similarity index 100% rename from wam/Wam_oper/mcout.F90 rename to src/ecwam/mcout.F90 diff --git a/wam/Wam_oper/means.F90 b/src/ecwam/means.F90 similarity index 100% rename from wam/Wam_oper/means.F90 rename to src/ecwam/means.F90 diff --git a/wam/Wam_oper/meansqs.F90 b/src/ecwam/meansqs.F90 similarity index 100% rename from wam/Wam_oper/meansqs.F90 rename to src/ecwam/meansqs.F90 diff --git a/wam/Wam_oper/meansqs_gc.F90 b/src/ecwam/meansqs_gc.F90 similarity index 100% rename from wam/Wam_oper/meansqs_gc.F90 rename to src/ecwam/meansqs_gc.F90 diff --git a/wam/Wam_oper/meansqs_lf.F90 b/src/ecwam/meansqs_lf.F90 similarity index 100% rename from wam/Wam_oper/meansqs_lf.F90 rename to src/ecwam/meansqs_lf.F90 diff --git a/wam/Wam_oper/mfredir.F90 b/src/ecwam/mfredir.F90 similarity index 100% rename from wam/Wam_oper/mfredir.F90 rename to src/ecwam/mfredir.F90 diff --git a/wam/Wam_oper/mgrid.F90 b/src/ecwam/mgrid.F90 similarity index 100% rename from wam/Wam_oper/mgrid.F90 rename to src/ecwam/mgrid.F90 diff --git a/wam/Wam_oper/micep.F90 b/src/ecwam/micep.F90 similarity index 100% rename from wam/Wam_oper/micep.F90 rename to src/ecwam/micep.F90 diff --git a/wam/Wam_oper/mintf.F90 b/src/ecwam/mintf.F90 similarity index 100% rename from wam/Wam_oper/mintf.F90 rename to src/ecwam/mintf.F90 diff --git a/wam/Wam_oper/mnintw.F90 b/src/ecwam/mnintw.F90 similarity index 100% rename from wam/Wam_oper/mnintw.F90 rename to src/ecwam/mnintw.F90 diff --git a/wam/Wam_oper/mpabort.F90 b/src/ecwam/mpabort.F90 similarity index 100% rename from wam/Wam_oper/mpabort.F90 rename to src/ecwam/mpabort.F90 diff --git a/wam/Wam_oper/mpbcastgrid.F90 b/src/ecwam/mpbcastgrid.F90 similarity index 100% rename from wam/Wam_oper/mpbcastgrid.F90 rename to src/ecwam/mpbcastgrid.F90 diff --git a/wam/Wam_oper/mpbcastintfld.F90 b/src/ecwam/mpbcastintfld.F90 similarity index 100% rename from wam/Wam_oper/mpbcastintfld.F90 rename to src/ecwam/mpbcastintfld.F90 diff --git a/wam/Wam_oper/mpclose_unit.F90 b/src/ecwam/mpclose_unit.F90 similarity index 100% rename from wam/Wam_oper/mpclose_unit.F90 rename to src/ecwam/mpclose_unit.F90 diff --git a/wam/Wam_oper/mpcrtbl.F90 b/src/ecwam/mpcrtbl.F90 similarity index 100% rename from wam/Wam_oper/mpcrtbl.F90 rename to src/ecwam/mpcrtbl.F90 diff --git a/wam/Wam_oper/mpdecomp.F90 b/src/ecwam/mpdecomp.F90 similarity index 100% rename from wam/Wam_oper/mpdecomp.F90 rename to src/ecwam/mpdecomp.F90 diff --git a/wam/Wam_oper/mpdistribfl.F90 b/src/ecwam/mpdistribfl.F90 similarity index 100% rename from wam/Wam_oper/mpdistribfl.F90 rename to src/ecwam/mpdistribfl.F90 diff --git a/wam/Wam_oper/mpdistribscfld.F90 b/src/ecwam/mpdistribscfld.F90 similarity index 100% rename from wam/Wam_oper/mpdistribscfld.F90 rename to src/ecwam/mpdistribscfld.F90 diff --git a/wam/Wam_oper/mpexchng.F90 b/src/ecwam/mpexchng.F90 similarity index 100% rename from wam/Wam_oper/mpexchng.F90 rename to src/ecwam/mpexchng.F90 diff --git a/wam/Wam_oper/mpfldtoifs.F90 b/src/ecwam/mpfldtoifs.F90 similarity index 100% rename from wam/Wam_oper/mpfldtoifs.F90 rename to src/ecwam/mpfldtoifs.F90 diff --git a/wam/Wam_oper/mpgatherbc.F90 b/src/ecwam/mpgatherbc.F90 similarity index 100% rename from wam/Wam_oper/mpgatherbc.F90 rename to src/ecwam/mpgatherbc.F90 diff --git a/wam/Wam_oper/mpgatherfl.F90 b/src/ecwam/mpgatherfl.F90 similarity index 100% rename from wam/Wam_oper/mpgatherfl.F90 rename to src/ecwam/mpgatherfl.F90 diff --git a/wam/Wam_oper/mpgatherscfld.F90 b/src/ecwam/mpgatherscfld.F90 similarity index 100% rename from wam/Wam_oper/mpgatherscfld.F90 rename to src/ecwam/mpgatherscfld.F90 diff --git a/wam/Wam_oper/mpminmaxavg.F90 b/src/ecwam/mpminmaxavg.F90 similarity index 100% rename from wam/Wam_oper/mpminmaxavg.F90 rename to src/ecwam/mpminmaxavg.F90 diff --git a/wam/Wam_oper/mpuserin.F90 b/src/ecwam/mpuserin.F90 similarity index 100% rename from wam/Wam_oper/mpuserin.F90 rename to src/ecwam/mpuserin.F90 diff --git a/wam/Wam_oper/mstart.F90 b/src/ecwam/mstart.F90 similarity index 100% rename from wam/Wam_oper/mstart.F90 rename to src/ecwam/mstart.F90 diff --git a/wam/Wam_oper/mswell.F90 b/src/ecwam/mswell.F90 similarity index 100% rename from wam/Wam_oper/mswell.F90 rename to src/ecwam/mswell.F90 diff --git a/wam/Wam_oper/mtabs.F90 b/src/ecwam/mtabs.F90 similarity index 100% rename from wam/Wam_oper/mtabs.F90 rename to src/ecwam/mtabs.F90 diff --git a/wam/Wam_oper/mubuf.F90 b/src/ecwam/mubuf.F90 similarity index 100% rename from wam/Wam_oper/mubuf.F90 rename to src/ecwam/mubuf.F90 diff --git a/wam/Wam_oper/mwp1.F90 b/src/ecwam/mwp1.F90 similarity index 100% rename from wam/Wam_oper/mwp1.F90 rename to src/ecwam/mwp1.F90 diff --git a/wam/Wam_oper/mwp2.F90 b/src/ecwam/mwp2.F90 similarity index 100% rename from wam/Wam_oper/mwp2.F90 rename to src/ecwam/mwp2.F90 diff --git a/wam/Wam_oper/newwind.F90 b/src/ecwam/newwind.F90 similarity index 100% rename from wam/Wam_oper/newwind.F90 rename to src/ecwam/newwind.F90 diff --git a/wam/Wam_oper/nlweigt.F90 b/src/ecwam/nlweigt.F90 similarity index 100% rename from wam/Wam_oper/nlweigt.F90 rename to src/ecwam/nlweigt.F90 diff --git a/wam/Wam_oper/notim.F90 b/src/ecwam/notim.F90 similarity index 100% rename from wam/Wam_oper/notim.F90 rename to src/ecwam/notim.F90 diff --git a/wam/Wam_oper/ns_gc.F90 b/src/ecwam/ns_gc.F90 similarity index 100% rename from wam/Wam_oper/ns_gc.F90 rename to src/ecwam/ns_gc.F90 diff --git a/wam/Wam_oper/omegagc.F90 b/src/ecwam/omegagc.F90 similarity index 100% rename from wam/Wam_oper/omegagc.F90 rename to src/ecwam/omegagc.F90 diff --git a/wam/Wam_oper/out_onegrdpt.F90 b/src/ecwam/out_onegrdpt.F90 similarity index 100% rename from wam/Wam_oper/out_onegrdpt.F90 rename to src/ecwam/out_onegrdpt.F90 diff --git a/wam/Wam_oper/out_onegrdpt_sp.F90 b/src/ecwam/out_onegrdpt_sp.F90 similarity index 100% rename from wam/Wam_oper/out_onegrdpt_sp.F90 rename to src/ecwam/out_onegrdpt_sp.F90 diff --git a/wam/Wam_oper/outbc.F90 b/src/ecwam/outbc.F90 similarity index 100% rename from wam/Wam_oper/outbc.F90 rename to src/ecwam/outbc.F90 diff --git a/wam/Wam_oper/outbeta.F90 b/src/ecwam/outbeta.F90 similarity index 100% rename from wam/Wam_oper/outbeta.F90 rename to src/ecwam/outbeta.F90 diff --git a/wam/Wam_oper/outblock.F90 b/src/ecwam/outblock.F90 similarity index 100% rename from wam/Wam_oper/outblock.F90 rename to src/ecwam/outblock.F90 diff --git a/wam/Wam_oper/outbs.F90 b/src/ecwam/outbs.F90 similarity index 100% rename from wam/Wam_oper/outbs.F90 rename to src/ecwam/outbs.F90 diff --git a/wam/Wam_oper/outcom.F90 b/src/ecwam/outcom.F90 similarity index 100% rename from wam/Wam_oper/outcom.F90 rename to src/ecwam/outcom.F90 diff --git a/wam/Wam_oper/outgrid.F90 b/src/ecwam/outgrid.F90 similarity index 100% rename from wam/Wam_oper/outgrid.F90 rename to src/ecwam/outgrid.F90 diff --git a/wam/Wam_oper/outint.F90 b/src/ecwam/outint.F90 similarity index 100% rename from wam/Wam_oper/outint.F90 rename to src/ecwam/outint.F90 diff --git a/wam/Wam_oper/outmdldcp.F90 b/src/ecwam/outmdldcp.F90 similarity index 100% rename from wam/Wam_oper/outmdldcp.F90 rename to src/ecwam/outmdldcp.F90 diff --git a/wam/Wam_oper/outnam.F90 b/src/ecwam/outnam.F90 similarity index 100% rename from wam/Wam_oper/outnam.F90 rename to src/ecwam/outnam.F90 diff --git a/wam/Wam_oper/outpp.F90 b/src/ecwam/outpp.F90 similarity index 100% rename from wam/Wam_oper/outpp.F90 rename to src/ecwam/outpp.F90 diff --git a/wam/Wam_oper/outsetwmask.F90 b/src/ecwam/outsetwmask.F90 similarity index 100% rename from wam/Wam_oper/outsetwmask.F90 rename to src/ecwam/outsetwmask.F90 diff --git a/wam/Wam_oper/outspec.F90 b/src/ecwam/outspec.F90 similarity index 100% rename from wam/Wam_oper/outspec.F90 rename to src/ecwam/outspec.F90 diff --git a/wam/Wam_oper/outstep0.F90 b/src/ecwam/outstep0.F90 similarity index 100% rename from wam/Wam_oper/outstep0.F90 rename to src/ecwam/outstep0.F90 diff --git a/wam/Wam_oper/outwint.F90 b/src/ecwam/outwint.F90 similarity index 100% rename from wam/Wam_oper/outwint.F90 rename to src/ecwam/outwint.F90 diff --git a/wam/Wam_oper/outwnorm.F90 b/src/ecwam/outwnorm.F90 similarity index 100% rename from wam/Wam_oper/outwnorm.F90 rename to src/ecwam/outwnorm.F90 diff --git a/wam/Wam_oper/outwpsp.F90 b/src/ecwam/outwpsp.F90 similarity index 100% rename from wam/Wam_oper/outwpsp.F90 rename to src/ecwam/outwpsp.F90 diff --git a/wam/Wam_oper/outwspec.F90 b/src/ecwam/outwspec.F90 similarity index 100% rename from wam/Wam_oper/outwspec.F90 rename to src/ecwam/outwspec.F90 diff --git a/wam/Wam_oper/packi.F90 b/src/ecwam/packi.F90 similarity index 100% rename from wam/Wam_oper/packi.F90 rename to src/ecwam/packi.F90 diff --git a/wam/Wam_oper/packr.F90 b/src/ecwam/packr.F90 similarity index 100% rename from wam/Wam_oper/packr.F90 rename to src/ecwam/packr.F90 diff --git a/wam/module/parkind_wave.F90 b/src/ecwam/parkind_wave.F90 similarity index 100% rename from wam/module/parkind_wave.F90 rename to src/ecwam/parkind_wave.F90 diff --git a/wam/Wam_oper/parmean.F90 b/src/ecwam/parmean.F90 similarity index 100% rename from wam/Wam_oper/parmean.F90 rename to src/ecwam/parmean.F90 diff --git a/wam/Wam_oper/peak.F90 b/src/ecwam/peak.F90 similarity index 100% rename from wam/Wam_oper/peak.F90 rename to src/ecwam/peak.F90 diff --git a/wam/Wam_oper/peak_ang.F90 b/src/ecwam/peak_ang.F90 similarity index 100% rename from wam/Wam_oper/peak_ang.F90 rename to src/ecwam/peak_ang.F90 diff --git a/wam/Wam_oper/peak_freq.F90 b/src/ecwam/peak_freq.F90 similarity index 100% rename from wam/Wam_oper/peak_freq.F90 rename to src/ecwam/peak_freq.F90 diff --git a/wam/Wam_oper/peakfri.F90 b/src/ecwam/peakfri.F90 similarity index 100% rename from wam/Wam_oper/peakfri.F90 rename to src/ecwam/peakfri.F90 diff --git a/wam/Wam_oper/preset_wgrib_template.F90 b/src/ecwam/preset_wgrib_template.F90 similarity index 100% rename from wam/Wam_oper/preset_wgrib_template.F90 rename to src/ecwam/preset_wgrib_template.F90 diff --git a/wam/Wam_oper/prewind.F90 b/src/ecwam/prewind.F90 similarity index 100% rename from wam/Wam_oper/prewind.F90 rename to src/ecwam/prewind.F90 diff --git a/wam/Wam_oper/proenvhalo.F90 b/src/ecwam/proenvhalo.F90 similarity index 100% rename from wam/Wam_oper/proenvhalo.F90 rename to src/ecwam/proenvhalo.F90 diff --git a/wam/Wam_oper/propag_wam.F90 b/src/ecwam/propag_wam.F90 similarity index 100% rename from wam/Wam_oper/propag_wam.F90 rename to src/ecwam/propag_wam.F90 diff --git a/wam/Wam_oper/propags.F90 b/src/ecwam/propags.F90 similarity index 100% rename from wam/Wam_oper/propags.F90 rename to src/ecwam/propags.F90 diff --git a/wam/Wam_oper/propags1.F90 b/src/ecwam/propags1.F90 similarity index 100% rename from wam/Wam_oper/propags1.F90 rename to src/ecwam/propags1.F90 diff --git a/wam/Wam_oper/propags2.F90 b/src/ecwam/propags2.F90 similarity index 100% rename from wam/Wam_oper/propags2.F90 rename to src/ecwam/propags2.F90 diff --git a/wam/Wam_oper/propdot.F90 b/src/ecwam/propdot.F90 similarity index 100% rename from wam/Wam_oper/propdot.F90 rename to src/ecwam/propdot.F90 diff --git a/wam/Wam_oper/readbou.F90 b/src/ecwam/readbou.F90 similarity index 100% rename from wam/Wam_oper/readbou.F90 rename to src/ecwam/readbou.F90 diff --git a/wam/Wam_oper/readfl.F90 b/src/ecwam/readfl.F90 similarity index 100% rename from wam/Wam_oper/readfl.F90 rename to src/ecwam/readfl.F90 diff --git a/wam/Wam_oper/readpre.F90 b/src/ecwam/readpre.F90 similarity index 100% rename from wam/Wam_oper/readpre.F90 rename to src/ecwam/readpre.F90 diff --git a/wam/Wam_oper/readsta.F90 b/src/ecwam/readsta.F90 similarity index 100% rename from wam/Wam_oper/readsta.F90 rename to src/ecwam/readsta.F90 diff --git a/wam/Wam_oper/readstress.F90 b/src/ecwam/readstress.F90 similarity index 100% rename from wam/Wam_oper/readstress.F90 rename to src/ecwam/readstress.F90 diff --git a/wam/Wam_oper/readwgrib.F90 b/src/ecwam/readwgrib.F90 similarity index 100% rename from wam/Wam_oper/readwgrib.F90 rename to src/ecwam/readwgrib.F90 diff --git a/wam/Wam_oper/readwind.F90 b/src/ecwam/readwind.F90 similarity index 100% rename from wam/Wam_oper/readwind.F90 rename to src/ecwam/readwind.F90 diff --git a/wam/Wam_oper/recvnemofields.F90 b/src/ecwam/recvnemofields.F90 similarity index 100% rename from wam/Wam_oper/recvnemofields.F90 rename to src/ecwam/recvnemofields.F90 diff --git a/wam/Wam_oper/rotspec.F90 b/src/ecwam/rotspec.F90 similarity index 100% rename from wam/Wam_oper/rotspec.F90 rename to src/ecwam/rotspec.F90 diff --git a/wam/Wam_oper/runwam.F90 b/src/ecwam/runwam.F90 similarity index 100% rename from wam/Wam_oper/runwam.F90 rename to src/ecwam/runwam.F90 diff --git a/wam/Wam_oper/savspec.F90 b/src/ecwam/savspec.F90 similarity index 100% rename from wam/Wam_oper/savspec.F90 rename to src/ecwam/savspec.F90 diff --git a/wam/Wam_oper/savstress.F90 b/src/ecwam/savstress.F90 similarity index 100% rename from wam/Wam_oper/savstress.F90 rename to src/ecwam/savstress.F90 diff --git a/wam/Wam_oper/sbottom.F90 b/src/ecwam/sbottom.F90 similarity index 100% rename from wam/Wam_oper/sbottom.F90 rename to src/ecwam/sbottom.F90 diff --git a/wam/Wam_oper/scosfl.F90 b/src/ecwam/scosfl.F90 similarity index 100% rename from wam/Wam_oper/scosfl.F90 rename to src/ecwam/scosfl.F90 diff --git a/wam/Wam_oper/sdepthlim.F90 b/src/ecwam/sdepthlim.F90 similarity index 100% rename from wam/Wam_oper/sdepthlim.F90 rename to src/ecwam/sdepthlim.F90 diff --git a/wam/Wam_oper/sdissip.F90 b/src/ecwam/sdissip.F90 similarity index 100% rename from wam/Wam_oper/sdissip.F90 rename to src/ecwam/sdissip.F90 diff --git a/wam/Wam_oper/sdissip_ard.F90 b/src/ecwam/sdissip_ard.F90 similarity index 100% rename from wam/Wam_oper/sdissip_ard.F90 rename to src/ecwam/sdissip_ard.F90 diff --git a/wam/Wam_oper/sdissip_jan.F90 b/src/ecwam/sdissip_jan.F90 similarity index 100% rename from wam/Wam_oper/sdissip_jan.F90 rename to src/ecwam/sdissip_jan.F90 diff --git a/wam/Wam_oper/sdiwbk.F90 b/src/ecwam/sdiwbk.F90 similarity index 100% rename from wam/Wam_oper/sdiwbk.F90 rename to src/ecwam/sdiwbk.F90 diff --git a/wam/Wam_oper/se10mean.F90 b/src/ecwam/se10mean.F90 similarity index 100% rename from wam/Wam_oper/se10mean.F90 rename to src/ecwam/se10mean.F90 diff --git a/wam/Wam_oper/sebtmean.F90 b/src/ecwam/sebtmean.F90 similarity index 100% rename from wam/Wam_oper/sebtmean.F90 rename to src/ecwam/sebtmean.F90 diff --git a/wam/Wam_oper/second_order_lib.F90 b/src/ecwam/second_order_lib.F90 similarity index 100% rename from wam/Wam_oper/second_order_lib.F90 rename to src/ecwam/second_order_lib.F90 diff --git a/wam/Wam_oper/secondhh.F90 b/src/ecwam/secondhh.F90 similarity index 100% rename from wam/Wam_oper/secondhh.F90 rename to src/ecwam/secondhh.F90 diff --git a/wam/Wam_oper/secondhh_gen.F90 b/src/ecwam/secondhh_gen.F90 similarity index 100% rename from wam/Wam_oper/secondhh_gen.F90 rename to src/ecwam/secondhh_gen.F90 diff --git a/wam/Wam_oper/secspom.F90 b/src/ecwam/secspom.F90 similarity index 100% rename from wam/Wam_oper/secspom.F90 rename to src/ecwam/secspom.F90 diff --git a/wam/Wam_oper/semean.F90 b/src/ecwam/semean.F90 similarity index 100% rename from wam/Wam_oper/semean.F90 rename to src/ecwam/semean.F90 diff --git a/wam/Wam_oper/sep3tr.F90 b/src/ecwam/sep3tr.F90 similarity index 100% rename from wam/Wam_oper/sep3tr.F90 rename to src/ecwam/sep3tr.F90 diff --git a/wam/Wam_oper/sepwisw.F90 b/src/ecwam/sepwisw.F90 similarity index 100% rename from wam/Wam_oper/sepwisw.F90 rename to src/ecwam/sepwisw.F90 diff --git a/wam/Wam_oper/set_wflags.F90 b/src/ecwam/set_wflags.F90 similarity index 100% rename from wam/Wam_oper/set_wflags.F90 rename to src/ecwam/set_wflags.F90 diff --git a/wam/Wam_oper/setice.F90 b/src/ecwam/setice.F90 similarity index 100% rename from wam/Wam_oper/setice.F90 rename to src/ecwam/setice.F90 diff --git a/wam/Wam_oper/setmarstype.F90 b/src/ecwam/setmarstype.F90 similarity index 100% rename from wam/Wam_oper/setmarstype.F90 rename to src/ecwam/setmarstype.F90 diff --git a/wam/Wam_oper/setwavphys.F90 b/src/ecwam/setwavphys.F90 similarity index 100% rename from wam/Wam_oper/setwavphys.F90 rename to src/ecwam/setwavphys.F90 diff --git a/wam/Wam_oper/sinflx.F90 b/src/ecwam/sinflx.F90 similarity index 100% rename from wam/Wam_oper/sinflx.F90 rename to src/ecwam/sinflx.F90 diff --git a/wam/Wam_oper/sinput.F90 b/src/ecwam/sinput.F90 similarity index 100% rename from wam/Wam_oper/sinput.F90 rename to src/ecwam/sinput.F90 diff --git a/wam/Wam_oper/sinput_ard.F90 b/src/ecwam/sinput_ard.F90 similarity index 100% rename from wam/Wam_oper/sinput_ard.F90 rename to src/ecwam/sinput_ard.F90 diff --git a/wam/Wam_oper/sinput_jan.F90 b/src/ecwam/sinput_jan.F90 similarity index 100% rename from wam/Wam_oper/sinput_jan.F90 rename to src/ecwam/sinput_jan.F90 diff --git a/wam/Wam_oper/skewness.F90 b/src/ecwam/skewness.F90 similarity index 100% rename from wam/Wam_oper/skewness.F90 rename to src/ecwam/skewness.F90 diff --git a/wam/Wam_oper/snonlin.F90 b/src/ecwam/snonlin.F90 similarity index 100% rename from wam/Wam_oper/snonlin.F90 rename to src/ecwam/snonlin.F90 diff --git a/wam/Wam_oper/spectra.F90 b/src/ecwam/spectra.F90 similarity index 100% rename from wam/Wam_oper/spectra.F90 rename to src/ecwam/spectra.F90 diff --git a/wam/Wam_oper/spr.F90 b/src/ecwam/spr.F90 similarity index 100% rename from wam/Wam_oper/spr.F90 rename to src/ecwam/spr.F90 diff --git a/wam/Wam_oper/stat_nl.F90 b/src/ecwam/stat_nl.F90 similarity index 100% rename from wam/Wam_oper/stat_nl.F90 rename to src/ecwam/stat_nl.F90 diff --git a/wam/Wam_oper/sthq.F90 b/src/ecwam/sthq.F90 similarity index 100% rename from wam/Wam_oper/sthq.F90 rename to src/ecwam/sthq.F90 diff --git a/wam/Wam_oper/stokesdrift.F90 b/src/ecwam/stokesdrift.F90 similarity index 100% rename from wam/Wam_oper/stokesdrift.F90 rename to src/ecwam/stokesdrift.F90 diff --git a/wam/Wam_oper/stokestrn.F90 b/src/ecwam/stokestrn.F90 similarity index 100% rename from wam/Wam_oper/stokestrn.F90 rename to src/ecwam/stokestrn.F90 diff --git a/wam/Wam_oper/stress_gc.F90 b/src/ecwam/stress_gc.F90 similarity index 100% rename from wam/Wam_oper/stress_gc.F90 rename to src/ecwam/stress_gc.F90 diff --git a/wam/Wam_oper/stresso.F90 b/src/ecwam/stresso.F90 similarity index 100% rename from wam/Wam_oper/stresso.F90 rename to src/ecwam/stresso.F90 diff --git a/wam/Wam_oper/strspec.F90 b/src/ecwam/strspec.F90 similarity index 100% rename from wam/Wam_oper/strspec.F90 rename to src/ecwam/strspec.F90 diff --git a/wam/Wam_oper/tables_2nd.F90 b/src/ecwam/tables_2nd.F90 similarity index 100% rename from wam/Wam_oper/tables_2nd.F90 rename to src/ecwam/tables_2nd.F90 diff --git a/wam/Wam_oper/tabu_swellft.F90 b/src/ecwam/tabu_swellft.F90 similarity index 100% rename from wam/Wam_oper/tabu_swellft.F90 rename to src/ecwam/tabu_swellft.F90 diff --git a/wam/Wam_oper/tau_phi_hf.F90 b/src/ecwam/tau_phi_hf.F90 similarity index 100% rename from wam/Wam_oper/tau_phi_hf.F90 rename to src/ecwam/tau_phi_hf.F90 diff --git a/wam/Wam_oper/taut_z0.F90 b/src/ecwam/taut_z0.F90 similarity index 100% rename from wam/Wam_oper/taut_z0.F90 rename to src/ecwam/taut_z0.F90 diff --git a/wam/Wam_oper/topoar.F90 b/src/ecwam/topoar.F90 similarity index 100% rename from wam/Wam_oper/topoar.F90 rename to src/ecwam/topoar.F90 diff --git a/wam/Wam_oper/transf.F90 b/src/ecwam/transf.F90 similarity index 100% rename from wam/Wam_oper/transf.F90 rename to src/ecwam/transf.F90 diff --git a/wam/Wam_oper/transf_bfi.F90 b/src/ecwam/transf_bfi.F90 similarity index 100% rename from wam/Wam_oper/transf_bfi.F90 rename to src/ecwam/transf_bfi.F90 diff --git a/wam/Wam_oper/transf_r.F90 b/src/ecwam/transf_r.F90 similarity index 100% rename from wam/Wam_oper/transf_r.F90 rename to src/ecwam/transf_r.F90 diff --git a/wam/Wam_oper/transf_snl.F90 b/src/ecwam/transf_snl.F90 similarity index 100% rename from wam/Wam_oper/transf_snl.F90 rename to src/ecwam/transf_snl.F90 diff --git a/wam/Wam_oper/uibou.F90 b/src/ecwam/uibou.F90 similarity index 100% rename from wam/Wam_oper/uibou.F90 rename to src/ecwam/uibou.F90 diff --git a/wam/Wam_oper/uiprep.F90 b/src/ecwam/uiprep.F90 similarity index 100% rename from wam/Wam_oper/uiprep.F90 rename to src/ecwam/uiprep.F90 diff --git a/wam/Wam_oper/unsetice.F90 b/src/ecwam/unsetice.F90 similarity index 100% rename from wam/Wam_oper/unsetice.F90 rename to src/ecwam/unsetice.F90 diff --git a/wam/module/output_struct.F90 b/src/ecwam/unwam/output_struct.F90 similarity index 100% rename from wam/module/output_struct.F90 rename to src/ecwam/unwam/output_struct.F90 diff --git a/wam/module/unstruct_bound.F90 b/src/ecwam/unwam/unstruct_bound.F90 similarity index 100% rename from wam/module/unstruct_bound.F90 rename to src/ecwam/unwam/unstruct_bound.F90 diff --git a/wam/module/unstruct_curr.F90 b/src/ecwam/unwam/unstruct_curr.F90 similarity index 100% rename from wam/module/unstruct_curr.F90 rename to src/ecwam/unwam/unstruct_curr.F90 diff --git a/wam/module/unwam.F90 b/src/ecwam/unwam/unwam.F90 similarity index 100% rename from wam/module/unwam.F90 rename to src/ecwam/unwam/unwam.F90 diff --git a/wam/module/yow_rank_gloloc.F90 b/src/ecwam/unwam/yow_rank_gloloc.F90 similarity index 100% rename from wam/module/yow_rank_gloloc.F90 rename to src/ecwam/unwam/yow_rank_gloloc.F90 diff --git a/wam/module/yowchecksmodule.F90 b/src/ecwam/unwam/yowchecksmodule.F90 similarity index 100% rename from wam/module/yowchecksmodule.F90 rename to src/ecwam/unwam/yowchecksmodule.F90 diff --git a/wam/module/yowdatapool.F90 b/src/ecwam/unwam/yowdatapool.F90 similarity index 100% rename from wam/module/yowdatapool.F90 rename to src/ecwam/unwam/yowdatapool.F90 diff --git a/wam/module/yowelementpool.F90 b/src/ecwam/unwam/yowelementpool.F90 similarity index 100% rename from wam/module/yowelementpool.F90 rename to src/ecwam/unwam/yowelementpool.F90 diff --git a/wam/module/yowerror.F90 b/src/ecwam/unwam/yowerror.F90 similarity index 100% rename from wam/module/yowerror.F90 rename to src/ecwam/unwam/yowerror.F90 diff --git a/wam/module/yowexchangeModule.F90 b/src/ecwam/unwam/yowexchangeModule.F90 similarity index 100% rename from wam/module/yowexchangeModule.F90 rename to src/ecwam/unwam/yowexchangeModule.F90 diff --git a/wam/module/yowmpiModule.F90 b/src/ecwam/unwam/yowmpiModule.F90 similarity index 100% rename from wam/module/yowmpiModule.F90 rename to src/ecwam/unwam/yowmpiModule.F90 diff --git a/wam/module/yownodepool.F90 b/src/ecwam/unwam/yownodepool.F90 similarity index 100% rename from wam/module/yownodepool.F90 rename to src/ecwam/unwam/yownodepool.F90 diff --git a/wam/module/yowpd.F90 b/src/ecwam/unwam/yowpd.F90 similarity index 100% rename from wam/module/yowpd.F90 rename to src/ecwam/unwam/yowpd.F90 diff --git a/wam/module/yowpdlibmain.F90 b/src/ecwam/unwam/yowpdlibmain.F90 similarity index 100% rename from wam/module/yowpdlibmain.F90 rename to src/ecwam/unwam/yowpdlibmain.F90 diff --git a/wam/module/yowrankModule.F90 b/src/ecwam/unwam/yowrankModule.F90 similarity index 100% rename from wam/module/yowrankModule.F90 rename to src/ecwam/unwam/yowrankModule.F90 diff --git a/wam/module/yowsidepool.F90 b/src/ecwam/unwam/yowsidepool.F90 similarity index 100% rename from wam/module/yowsidepool.F90 rename to src/ecwam/unwam/yowsidepool.F90 diff --git a/wam/module/yowunblkrord.F90 b/src/ecwam/unwam/yowunblkrord.F90 similarity index 100% rename from wam/module/yowunblkrord.F90 rename to src/ecwam/unwam/yowunblkrord.F90 diff --git a/wam/module/yowunpool.F90 b/src/ecwam/unwam/yowunpool.F90 similarity index 100% rename from wam/module/yowunpool.F90 rename to src/ecwam/unwam/yowunpool.F90 diff --git a/wam/Wam_oper/updnemofields.F90 b/src/ecwam/updnemofields.F90 similarity index 100% rename from wam/Wam_oper/updnemofields.F90 rename to src/ecwam/updnemofields.F90 diff --git a/wam/Wam_oper/updnemostress.F90 b/src/ecwam/updnemostress.F90 similarity index 100% rename from wam/Wam_oper/updnemostress.F90 rename to src/ecwam/updnemostress.F90 diff --git a/wam/Wam_oper/userin.F90 b/src/ecwam/userin.F90 similarity index 100% rename from wam/Wam_oper/userin.F90 rename to src/ecwam/userin.F90 diff --git a/wam/Wam_oper/vmin.F90 b/src/ecwam/vmin.F90 similarity index 100% rename from wam/Wam_oper/vmin.F90 rename to src/ecwam/vmin.F90 diff --git a/wam/Wam_oper/vmin_d.F90 b/src/ecwam/vmin_d.F90 similarity index 100% rename from wam/Wam_oper/vmin_d.F90 rename to src/ecwam/vmin_d.F90 diff --git a/wam/Wam_oper/vplus.F90 b/src/ecwam/vplus.F90 similarity index 100% rename from wam/Wam_oper/vplus.F90 rename to src/ecwam/vplus.F90 diff --git a/wam/Wam_oper/vplus_d.F90 b/src/ecwam/vplus_d.F90 similarity index 100% rename from wam/Wam_oper/vplus_d.F90 rename to src/ecwam/vplus_d.F90 diff --git a/wam/Wam_oper/w_maxh.F90 b/src/ecwam/w_maxh.F90 similarity index 100% rename from wam/Wam_oper/w_maxh.F90 rename to src/ecwam/w_maxh.F90 diff --git a/wam/Wam_oper/w_mode_st.F90 b/src/ecwam/w_mode_st.F90 similarity index 100% rename from wam/Wam_oper/w_mode_st.F90 rename to src/ecwam/w_mode_st.F90 diff --git a/wam/module/wam_multio_mod.F90 b/src/ecwam/wam_multio_mod.F90 similarity index 100% rename from wam/module/wam_multio_mod.F90 rename to src/ecwam/wam_multio_mod.F90 diff --git a/wam/Wam_oper/wam_nproma.F90 b/src/ecwam/wam_nproma.F90 similarity index 100% rename from wam/Wam_oper/wam_nproma.F90 rename to src/ecwam/wam_nproma.F90 diff --git a/wam/Wam_oper/wam_sorti.F90 b/src/ecwam/wam_sorti.F90 similarity index 100% rename from wam/Wam_oper/wam_sorti.F90 rename to src/ecwam/wam_sorti.F90 diff --git a/wam/Wam_oper/wam_sortini.F90 b/src/ecwam/wam_sortini.F90 similarity index 100% rename from wam/Wam_oper/wam_sortini.F90 rename to src/ecwam/wam_sortini.F90 diff --git a/wam/Wam_oper/wam_u2l1cr.F90 b/src/ecwam/wam_u2l1cr.F90 similarity index 100% rename from wam/Wam_oper/wam_u2l1cr.F90 rename to src/ecwam/wam_u2l1cr.F90 diff --git a/wam/Wam_oper/wam_user_clock.F90 b/src/ecwam/wam_user_clock.F90 similarity index 100% rename from wam/Wam_oper/wam_user_clock.F90 rename to src/ecwam/wam_user_clock.F90 diff --git a/wam/Wam_oper/wamadswstar.F90 b/src/ecwam/wamadswstar.F90 similarity index 100% rename from wam/Wam_oper/wamadswstar.F90 rename to src/ecwam/wamadswstar.F90 diff --git a/wam/Wam_oper/wamcur.F90 b/src/ecwam/wamcur.F90 similarity index 100% rename from wam/Wam_oper/wamcur.F90 rename to src/ecwam/wamcur.F90 diff --git a/wam/Wam_oper/wamintgr.F90 b/src/ecwam/wamintgr.F90 similarity index 100% rename from wam/Wam_oper/wamintgr.F90 rename to src/ecwam/wamintgr.F90 diff --git a/wam/Wam_oper/wamodel.F90 b/src/ecwam/wamodel.F90 similarity index 100% rename from wam/Wam_oper/wamodel.F90 rename to src/ecwam/wamodel.F90 diff --git a/wam/Wam_oper/wamwnd.F90 b/src/ecwam/wamwnd.F90 similarity index 100% rename from wam/Wam_oper/wamwnd.F90 rename to src/ecwam/wamwnd.F90 diff --git a/wam/Wam_oper/wavemdl.F90 b/src/ecwam/wavemdl.F90 similarity index 100% rename from wam/Wam_oper/wavemdl.F90 rename to src/ecwam/wavemdl.F90 diff --git a/wam/Wam_oper/wdfluxes.F90 b/src/ecwam/wdfluxes.F90 similarity index 100% rename from wam/Wam_oper/wdfluxes.F90 rename to src/ecwam/wdfluxes.F90 diff --git a/wam/Wam_oper/wdirspread.F90 b/src/ecwam/wdirspread.F90 similarity index 100% rename from wam/Wam_oper/wdirspread.F90 rename to src/ecwam/wdirspread.F90 diff --git a/wam/Wam_oper/weflux.F90 b/src/ecwam/weflux.F90 similarity index 100% rename from wam/Wam_oper/weflux.F90 rename to src/ecwam/weflux.F90 diff --git a/wam/Wam_oper/wgrib2fdb.F90 b/src/ecwam/wgrib2fdb.F90 similarity index 100% rename from wam/Wam_oper/wgrib2fdb.F90 rename to src/ecwam/wgrib2fdb.F90 diff --git a/wam/Wam_oper/wgribencode.F90 b/src/ecwam/wgribencode.F90 similarity index 100% rename from wam/Wam_oper/wgribencode.F90 rename to src/ecwam/wgribencode.F90 diff --git a/wam/Wam_oper/wgribencode_model.F90 b/src/ecwam/wgribencode_model.F90 similarity index 100% rename from wam/Wam_oper/wgribencode_model.F90 rename to src/ecwam/wgribencode_model.F90 diff --git a/wam/Wam_oper/wgribenout.F90 b/src/ecwam/wgribenout.F90 similarity index 100% rename from wam/Wam_oper/wgribenout.F90 rename to src/ecwam/wgribenout.F90 diff --git a/wam/Wam_oper/wgribout.F90 b/src/ecwam/wgribout.F90 similarity index 100% rename from wam/Wam_oper/wgribout.F90 rename to src/ecwam/wgribout.F90 diff --git a/wam/Wam_oper/wnfluxes.F90 b/src/ecwam/wnfluxes.F90 similarity index 100% rename from wam/Wam_oper/wnfluxes.F90 rename to src/ecwam/wnfluxes.F90 diff --git a/wam/Wam_oper/wposnam.F90 b/src/ecwam/wposnam.F90 similarity index 100% rename from wam/Wam_oper/wposnam.F90 rename to src/ecwam/wposnam.F90 diff --git a/wam/Wam_oper/writefl.F90 b/src/ecwam/writefl.F90 similarity index 100% rename from wam/Wam_oper/writefl.F90 rename to src/ecwam/writefl.F90 diff --git a/wam/Wam_oper/writestress.F90 b/src/ecwam/writestress.F90 similarity index 100% rename from wam/Wam_oper/writestress.F90 rename to src/ecwam/writestress.F90 diff --git a/wam/Wam_oper/writsta.F90 b/src/ecwam/writsta.F90 similarity index 100% rename from wam/Wam_oper/writsta.F90 rename to src/ecwam/writsta.F90 diff --git a/wam/Wam_oper/wsigstar.F90 b/src/ecwam/wsigstar.F90 similarity index 100% rename from wam/Wam_oper/wsigstar.F90 rename to src/ecwam/wsigstar.F90 diff --git a/wam/Wam_oper/wsmfen.F90 b/src/ecwam/wsmfen.F90 similarity index 100% rename from wam/Wam_oper/wsmfen.F90 rename to src/ecwam/wsmfen.F90 diff --git a/wam/Wam_oper/wstream_strg.F90 b/src/ecwam/wstream_strg.F90 similarity index 100% rename from wam/Wam_oper/wstream_strg.F90 rename to src/ecwam/wstream_strg.F90 diff --git a/wam/Wam_oper/wvalloc.F90 b/src/ecwam/wvalloc.F90 similarity index 100% rename from wam/Wam_oper/wvalloc.F90 rename to src/ecwam/wvalloc.F90 diff --git a/wam/Wam_oper/wvdealloc.F90 b/src/ecwam/wvdealloc.F90 similarity index 100% rename from wam/Wam_oper/wvdealloc.F90 rename to src/ecwam/wvdealloc.F90 diff --git a/wam/Wam_oper/wvfricvelo.F90 b/src/ecwam/wvfricvelo.F90 similarity index 100% rename from wam/Wam_oper/wvfricvelo.F90 rename to src/ecwam/wvfricvelo.F90 diff --git a/wam/Wam_oper/wvwamdecomp.F90 b/src/ecwam/wvwamdecomp.F90 similarity index 100% rename from wam/Wam_oper/wvwamdecomp.F90 rename to src/ecwam/wvwamdecomp.F90 diff --git a/wam/Wam_oper/wvwaminit.F90 b/src/ecwam/wvwaminit.F90 similarity index 100% rename from wam/Wam_oper/wvwaminit.F90 rename to src/ecwam/wvwaminit.F90 diff --git a/wam/Wam_oper/wvwaminit1.F90 b/src/ecwam/wvwaminit1.F90 similarity index 100% rename from wam/Wam_oper/wvwaminit1.F90 rename to src/ecwam/wvwaminit1.F90 diff --git a/wam/module/yowabort.F90 b/src/ecwam/yowabort.F90 similarity index 100% rename from wam/module/yowabort.F90 rename to src/ecwam/yowabort.F90 diff --git a/wam/module/yowaltas.F90 b/src/ecwam/yowaltas.F90 similarity index 100% rename from wam/module/yowaltas.F90 rename to src/ecwam/yowaltas.F90 diff --git a/wam/module/yowassi.F90 b/src/ecwam/yowassi.F90 similarity index 100% rename from wam/module/yowassi.F90 rename to src/ecwam/yowassi.F90 diff --git a/wam/module/yowcard.F90 b/src/ecwam/yowcard.F90 similarity index 100% rename from wam/module/yowcard.F90 rename to src/ecwam/yowcard.F90 diff --git a/wam/module/yowcinp.F90 b/src/ecwam/yowcinp.F90 similarity index 100% rename from wam/module/yowcinp.F90 rename to src/ecwam/yowcinp.F90 diff --git a/wam/module/yowcoer.F90 b/src/ecwam/yowcoer.F90 similarity index 100% rename from wam/module/yowcoer.F90 rename to src/ecwam/yowcoer.F90 diff --git a/wam/module/yowconst_2nd.F90 b/src/ecwam/yowconst_2nd.F90 similarity index 100% rename from wam/module/yowconst_2nd.F90 rename to src/ecwam/yowconst_2nd.F90 diff --git a/wam/module/yowcoup.F90 b/src/ecwam/yowcoup.F90 similarity index 100% rename from wam/module/yowcoup.F90 rename to src/ecwam/yowcoup.F90 diff --git a/wam/module/yowcout.F90 b/src/ecwam/yowcout.F90 similarity index 100% rename from wam/module/yowcout.F90 rename to src/ecwam/yowcout.F90 diff --git a/wam/module/yowcpbo.F90 b/src/ecwam/yowcpbo.F90 similarity index 100% rename from wam/module/yowcpbo.F90 rename to src/ecwam/yowcpbo.F90 diff --git a/wam/module/yowcurg.F90 b/src/ecwam/yowcurg.F90 similarity index 100% rename from wam/module/yowcurg.F90 rename to src/ecwam/yowcurg.F90 diff --git a/wam/module/yowcurr.F90 b/src/ecwam/yowcurr.F90 similarity index 100% rename from wam/module/yowcurr.F90 rename to src/ecwam/yowcurr.F90 diff --git a/wam/module/yowdes.F90 b/src/ecwam/yowdes.F90 similarity index 100% rename from wam/module/yowdes.F90 rename to src/ecwam/yowdes.F90 diff --git a/wam/module/yowdrvtype.F90 b/src/ecwam/yowdrvtype.F90 similarity index 100% rename from wam/module/yowdrvtype.F90 rename to src/ecwam/yowdrvtype.F90 diff --git a/wam/module/yowfpbo.F90 b/src/ecwam/yowfpbo.F90 similarity index 100% rename from wam/module/yowfpbo.F90 rename to src/ecwam/yowfpbo.F90 diff --git a/wam/module/yowfred.F90 b/src/ecwam/yowfred.F90 similarity index 100% rename from wam/module/yowfred.F90 rename to src/ecwam/yowfred.F90 diff --git a/wam/module/yowgrib.F90 b/src/ecwam/yowgrib.F90 similarity index 100% rename from wam/module/yowgrib.F90 rename to src/ecwam/yowgrib.F90 diff --git a/wam/module/yowgrib_handles.F90 b/src/ecwam/yowgrib_handles.F90 similarity index 100% rename from wam/module/yowgrib_handles.F90 rename to src/ecwam/yowgrib_handles.F90 diff --git a/wam/module/yowgribhd.F90 b/src/ecwam/yowgribhd.F90 similarity index 100% rename from wam/module/yowgribhd.F90 rename to src/ecwam/yowgribhd.F90 diff --git a/wam/module/yowgrid.F90 b/src/ecwam/yowgrid.F90 similarity index 100% rename from wam/module/yowgrid.F90 rename to src/ecwam/yowgrid.F90 diff --git a/wam/module/yowice.F90 b/src/ecwam/yowice.F90 similarity index 100% rename from wam/module/yowice.F90 rename to src/ecwam/yowice.F90 diff --git a/wam/module/yowincludes.h b/src/ecwam/yowincludes.h similarity index 100% rename from wam/module/yowincludes.h rename to src/ecwam/yowincludes.h diff --git a/wam/module/yowindn.F90 b/src/ecwam/yowindn.F90 similarity index 100% rename from wam/module/yowindn.F90 rename to src/ecwam/yowindn.F90 diff --git a/wam/module/yowintp.F90 b/src/ecwam/yowintp.F90 similarity index 100% rename from wam/module/yowintp.F90 rename to src/ecwam/yowintp.F90 diff --git a/wam/module/yowjons.F90 b/src/ecwam/yowjons.F90 similarity index 100% rename from wam/module/yowjons.F90 rename to src/ecwam/yowjons.F90 diff --git a/wam/module/yowmap.F90 b/src/ecwam/yowmap.F90 similarity index 100% rename from wam/module/yowmap.F90 rename to src/ecwam/yowmap.F90 diff --git a/wam/module/yowmean.F90 b/src/ecwam/yowmean.F90 similarity index 100% rename from wam/module/yowmean.F90 rename to src/ecwam/yowmean.F90 diff --git a/wam/module/yowmespas.F90 b/src/ecwam/yowmespas.F90 similarity index 100% rename from wam/module/yowmespas.F90 rename to src/ecwam/yowmespas.F90 diff --git a/wam/module/yowmpp.F90 b/src/ecwam/yowmpp.F90 similarity index 100% rename from wam/module/yowmpp.F90 rename to src/ecwam/yowmpp.F90 diff --git a/wam/module/yownemoflds.F90 b/src/ecwam/yownemoflds.F90 similarity index 100% rename from wam/module/yownemoflds.F90 rename to src/ecwam/yownemoflds.F90 diff --git a/wam/module/yownemoio.F90 b/src/ecwam/yownemoio.F90 similarity index 100% rename from wam/module/yownemoio.F90 rename to src/ecwam/yownemoio.F90 diff --git a/wam/module/yowparam.F90 b/src/ecwam/yowparam.F90 similarity index 100% rename from wam/module/yowparam.F90 rename to src/ecwam/yowparam.F90 diff --git a/wam/module/yowpcons.F90 b/src/ecwam/yowpcons.F90 similarity index 100% rename from wam/module/yowpcons.F90 rename to src/ecwam/yowpcons.F90 diff --git a/wam/module/yowphys.F90 b/src/ecwam/yowphys.F90 similarity index 100% rename from wam/module/yowphys.F90 rename to src/ecwam/yowphys.F90 diff --git a/wam/module/yowprproc.F90 b/src/ecwam/yowprproc.F90 similarity index 100% rename from wam/module/yowprproc.F90 rename to src/ecwam/yowprproc.F90 diff --git a/wam/module/yowrefd.F90 b/src/ecwam/yowrefd.F90 similarity index 100% rename from wam/module/yowrefd.F90 rename to src/ecwam/yowrefd.F90 diff --git a/wam/module/yowshal.F90 b/src/ecwam/yowshal.F90 similarity index 100% rename from wam/module/yowshal.F90 rename to src/ecwam/yowshal.F90 diff --git a/wam/module/yowspec.F90 b/src/ecwam/yowspec.F90 similarity index 100% rename from wam/module/yowspec.F90 rename to src/ecwam/yowspec.F90 diff --git a/wam/module/yowsphere.F90 b/src/ecwam/yowsphere.F90 similarity index 100% rename from wam/module/yowsphere.F90 rename to src/ecwam/yowsphere.F90 diff --git a/wam/module/yowstat.F90 b/src/ecwam/yowstat.F90 similarity index 100% rename from wam/module/yowstat.F90 rename to src/ecwam/yowstat.F90 diff --git a/wam/module/yowtabl.F90 b/src/ecwam/yowtabl.F90 similarity index 100% rename from wam/module/yowtabl.F90 rename to src/ecwam/yowtabl.F90 diff --git a/wam/module/yowtemp.F90 b/src/ecwam/yowtemp.F90 similarity index 100% rename from wam/module/yowtemp.F90 rename to src/ecwam/yowtemp.F90 diff --git a/wam/module/yowtest.F90 b/src/ecwam/yowtest.F90 similarity index 100% rename from wam/module/yowtest.F90 rename to src/ecwam/yowtest.F90 diff --git a/wam/module/yowtext.F90 b/src/ecwam/yowtext.F90 similarity index 100% rename from wam/module/yowtext.F90 rename to src/ecwam/yowtext.F90 diff --git a/wam/module/yowtrains.F90 b/src/ecwam/yowtrains.F90 similarity index 100% rename from wam/module/yowtrains.F90 rename to src/ecwam/yowtrains.F90 diff --git a/wam/module/yowubuf.F90 b/src/ecwam/yowubuf.F90 similarity index 100% rename from wam/module/yowubuf.F90 rename to src/ecwam/yowubuf.F90 diff --git a/wam/module/yowunit.F90 b/src/ecwam/yowunit.F90 similarity index 100% rename from wam/module/yowunit.F90 rename to src/ecwam/yowunit.F90 diff --git a/wam/module/yowwami.F90 b/src/ecwam/yowwami.F90 similarity index 100% rename from wam/module/yowwami.F90 rename to src/ecwam/yowwami.F90 diff --git a/wam/module/yowwind.F90 b/src/ecwam/yowwind.F90 similarity index 100% rename from wam/module/yowwind.F90 rename to src/ecwam/yowwind.F90 diff --git a/wam/module/yowwndg.F90 b/src/ecwam/yowwndg.F90 similarity index 100% rename from wam/module/yowwndg.F90 rename to src/ecwam/yowwndg.F90 diff --git a/wam/Wam_oper/z0wave.F90 b/src/ecwam/z0wave.F90 similarity index 100% rename from wam/Wam_oper/z0wave.F90 rename to src/ecwam/z0wave.F90 diff --git a/wam/Sar/uraopc.F.old b/wam/Sar/uraopc.F.old deleted file mode 100644 index 7f8baed27..000000000 --- a/wam/Sar/uraopc.F.old +++ /dev/null @@ -1,86 +0,0 @@ -C ====================================================================== -C - SUBROUTINE URAOPC (csubna, ksub, llsuvi, lltest) -C -C ====================================================================== -C -C**** *URAOPC* - SET OUTPUT CONTROL SWITCHES. -C -C B. HANSEN ECMWF MARCH 1992 -C -C** PURPOSE. -C -------- -C SETTING OF OUTPUT CONTROL LOGICALS. -C -C** INTERFACE. -C ---------- -C CALL URAOPC (CSUBNA, KSUB, LASUVI, LATEST) -C -C I/ *CSUBNA* NAME OF CALLING SUB-ROUTINE. -C I/ *KSUB* SUB-ROUTINE LEVEL OF CALLLING SUB-ROUTINE. -C /O *LASUVI* LOGICAL SWITCH (TRUE: SV-OUTPUT, -C FALSE: NO SV_OUTPUT). -C /O *LATEST* LOGICAL SWITCH (TRU: TEST-OUTPUT, -C FALSE: NO TEST_OUTPUT). -C -C EXTERNALS. -C ---------- -C NONE. -C -C METHOD. -C ------- -C NONE. -C -C REFERENCES. -C ----------- -C NONE -C -C ---------------------------------------------------------------------- -C -#include - DATA lflow / .FALSE. / -C ---------------------------------------------------------------------- -C - INTEGER i_get_unit, iun - SAVE iun -C -C ---------------------------------------------------------------------- -C -C* 1.0 INITIALIZATION. -C --------------------- -C - 1000 CONTINUE - lltest = .FALSE. - llsuvi = .FALSE. -C - IF (lflow) THEN - iun=i_get_unit(-1,'flow','s','f',0) - WRITE(iun,9000)' in routine >',csubna,'< ksub is >',ksub,'<' - ENDIF -C - IF (ksub .LE. msuvi) THEN - llsuvi = .TRUE. - ELSE - DO 1001 j=1,jpctl - IF (csuvi(j) .EQ. csubna ) THEN - llsuvi = .TRUE. - GOTO 1002 - ENDIF - 1001 CONTINUE - 1002 CONTINUE - ENDIF -C - IF (ksub .LE. mtest) THEN - lltest = .TRUE. - ELSE - DO 1003 j=1,jpctl - IF (ctest(j) .EQ. csubna ) THEN - lltest = .TRUE. - GOTO 1004 - ENDIF - 1003 CONTINUE - 1004 CONTINUE - ENDIF - RETURN - 9000 FORMAT(A13,A7,A11,I2,A1) - END