Context Navigation

← Previous Changeset
Next Changeset →

Changeset 13295

Timestamp:

2020-07-10T20:24:21+02:00 (5 years ago)

Author:

acc

Message:

Replace do-loop macros in the trunk with alternative forms with greater flexibility for extra halo applications. This alters a lot of routines but does not change any behaviour or results. do_loop_substitute.h90 is greatly simplified by this change. SETTE results are identical to those with the previous revision

Location:

NEMO/trunk

Files:

: 225 edited

cfgs/C1D_PAPA/MY_SRC/usrdef_zgr.F90 (modified) (view diffs)
src/ABL/ablmod.F90 (modified) (view diffs)
src/ICE/icealb.F90 (modified) (view diffs)
src/ICE/icecor.F90 (modified) (view diffs)
src/ICE/icectl.F90 (modified) (view diffs)
src/ICE/icedyn.F90 (modified) (view diffs)
src/ICE/icedyn_adv_pra.F90 (modified) (view diffs)
src/ICE/icedyn_adv_umx.F90 (modified) (view diffs)
src/ICE/icedyn_rdgrft.F90 (modified) (view diffs)
src/ICE/icedyn_rhg_evp.F90 (modified) (view diffs)
src/ICE/iceistate.F90 (modified) (view diffs)
src/ICE/iceitd.F90 (modified) (view diffs)
src/ICE/icesbc.F90 (modified) (view diffs)
src/ICE/icethd.F90 (modified) (view diffs)
src/ICE/icethd_do.F90 (modified) (view diffs)
src/ICE/iceupdate.F90 (modified) (view diffs)
src/ICE/icevar.F90 (modified) (view diffs)
src/ICE/icewri.F90 (modified) (view diffs)
src/NST/agrif_oce_sponge.F90 (modified) (view diffs)
src/NST/agrif_user.F90 (modified) (view diffs)
src/OCE/ASM/asminc.F90 (modified) (view diffs)
src/OCE/C1D/dtauvd.F90 (modified) (view diffs)
src/OCE/C1D/dyncor_c1d.F90 (modified) (view diffs)
src/OCE/C1D/dyndmp.F90 (modified) (view diffs)
src/OCE/CRS/crsfld.F90 (modified) (view diffs)
src/OCE/DIA/diaar5.F90 (modified) (view diffs)
src/OCE/DIA/diacfl.F90 (modified) (view diffs)
src/OCE/DIA/diahth.F90 (modified) (view diffs)
src/OCE/DIA/diaptr.F90 (modified) (view diffs)
src/OCE/DIA/diawri.F90 (modified) (view diffs)
src/OCE/DIU/diu_bulk.F90 (modified) (view diffs)
src/OCE/DIU/diu_coolskin.F90 (modified) (view diffs)
src/OCE/DOM/dommsk.F90 (modified) (view diffs)
src/OCE/DOM/domqco.F90 (modified) (view diffs)
src/OCE/DOM/domvvl.F90 (modified) (view diffs)
src/OCE/DOM/domwri.F90 (modified) (view diffs)
src/OCE/DOM/domzgr.F90 (modified) (view diffs)
src/OCE/DOM/dtatsd.F90 (modified) (view diffs)
src/OCE/DOM/istate.F90 (modified) (view diffs)
src/OCE/DYN/divhor.F90 (modified) (view diffs)
src/OCE/DYN/dynadv_cen2.F90 (modified) (view diffs)
src/OCE/DYN/dynadv_ubs.F90 (modified) (view diffs)
src/OCE/DYN/dynatf.F90 (modified) (view diffs)
src/OCE/DYN/dynatf_qco.F90 (modified) (view diffs)
src/OCE/DYN/dynhpg.F90 (modified) (view diffs)
src/OCE/DYN/dynkeg.F90 (modified) (view diffs)
src/OCE/DYN/dynldf_iso.F90 (modified) (view diffs)
src/OCE/DYN/dynldf_lap_blp.F90 (modified) (view diffs)
src/OCE/DYN/dynspg.F90 (modified) (view diffs)
src/OCE/DYN/dynspg_exp.F90 (modified) (view diffs)
src/OCE/DYN/dynspg_ts.F90 (modified) (view diffs)
src/OCE/DYN/dynvor.F90 (modified) (view diffs)
src/OCE/DYN/dynzad.F90 (modified) (view diffs)
src/OCE/DYN/dynzdf.F90 (modified) (view diffs)
src/OCE/DYN/sshwzv.F90 (modified) (view diffs)
src/OCE/DYN/wet_dry.F90 (modified) (view diffs)
src/OCE/ICB/icbclv.F90 (modified) (view diffs)
src/OCE/ICB/icbini.F90 (modified) (view diffs)
src/OCE/IOM/iom.F90 (modified) (view diffs)
src/OCE/ISF/isfcavmlt.F90 (modified) (view diffs)
src/OCE/ISF/isfcpl.F90 (modified) (view diffs)
src/OCE/ISF/isfdiags.F90 (modified) (view diffs)
src/OCE/ISF/isfhdiv.F90 (modified) (view diffs)
src/OCE/ISF/isfload.F90 (modified) (view diffs)
src/OCE/ISF/isftbl.F90 (modified) (view diffs)
src/OCE/LDF/ldfc1d_c2d.F90 (modified) (view diffs)
src/OCE/LDF/ldfdyn.F90 (modified) (view diffs)
src/OCE/LDF/ldfslp.F90 (modified) (view diffs)
src/OCE/LDF/ldftra.F90 (modified) (view diffs)
src/OCE/OBS/obs_oper.F90 (modified) (view diffs)
src/OCE/OBS/obs_readmdt.F90 (modified) (view diffs)
src/OCE/SBC/cyclone.F90 (modified) (view diffs)
src/OCE/SBC/fldread.F90 (modified) (view diffs)
src/OCE/SBC/geo2ocean.F90 (modified) (view diffs)
src/OCE/SBC/sbc_oce.F90 (modified) (view diffs)
src/OCE/SBC/sbcblk.F90 (modified) (view diffs)
src/OCE/SBC/sbcblk_algo_coare3p0.F90 (modified) (view diffs)
src/OCE/SBC/sbcblk_algo_coare3p6.F90 (modified) (view diffs)
src/OCE/SBC/sbcblk_algo_ecmwf.F90 (modified) (view diffs)
src/OCE/SBC/sbcblk_algo_ncar.F90 (modified) (view diffs)
src/OCE/SBC/sbcblk_phy.F90 (modified) (view diffs)
src/OCE/SBC/sbcblk_skin_coare.F90 (modified) (view diffs)
src/OCE/SBC/sbcblk_skin_ecmwf.F90 (modified) (view diffs)
src/OCE/SBC/sbccpl.F90 (modified) (view diffs)
src/OCE/SBC/sbcdcy.F90 (modified) (view diffs)
src/OCE/SBC/sbcflx.F90 (modified) (view diffs)
src/OCE/SBC/sbcice_cice.F90 (modified) (view diffs)
src/OCE/SBC/sbcice_if.F90 (modified) (view diffs)
src/OCE/SBC/sbcrnf.F90 (modified) (view diffs)
src/OCE/SBC/sbcssr.F90 (modified) (view diffs)
src/OCE/SBC/sbcwave.F90 (modified) (view diffs)
src/OCE/STO/stopar.F90 (modified) (view diffs)
src/OCE/STO/stopts.F90 (modified) (view diffs)
src/OCE/TRA/eosbn2.F90 (modified) (view diffs)
src/OCE/TRA/traadv_cen.F90 (modified) (view diffs)
src/OCE/TRA/traadv_fct.F90 (modified) (view diffs)
src/OCE/TRA/traadv_mus.F90 (modified) (view diffs)
src/OCE/TRA/traadv_qck.F90 (modified) (view diffs)
src/OCE/TRA/traadv_ubs.F90 (modified) (view diffs)
src/OCE/TRA/traatf.F90 (modified) (view diffs)
src/OCE/TRA/traatf_qco.F90 (modified) (view diffs)
src/OCE/TRA/trabbc.F90 (modified) (view diffs)
src/OCE/TRA/trabbl.F90 (modified) (view diffs)
src/OCE/TRA/tradmp.F90 (modified) (view diffs)
src/OCE/TRA/traisf.F90 (modified) (view diffs)
src/OCE/TRA/traldf_iso.F90 (modified) (view diffs)
src/OCE/TRA/traldf_lap_blp.F90 (modified) (view diffs)
src/OCE/TRA/traldf_triad.F90 (modified) (view diffs)
src/OCE/TRA/tramle.F90 (modified) (view diffs)
src/OCE/TRA/tranpc.F90 (modified) (view diffs)
src/OCE/TRA/traqsr.F90 (modified) (view diffs)
src/OCE/TRA/trasbc.F90 (modified) (view diffs)
src/OCE/TRA/trazdf.F90 (modified) (view diffs)
src/OCE/TRA/zpshde.F90 (modified) (view diffs)
src/OCE/TRD/trddyn.F90 (modified) (view diffs)
src/OCE/TRD/trdglo.F90 (modified) (view diffs)
src/OCE/TRD/trdken.F90 (modified) (view diffs)
src/OCE/TRD/trdmxl.F90 (modified) (view diffs)
src/OCE/TRD/trdtra.F90 (modified) (view diffs)
src/OCE/TRD/trdvor.F90 (modified) (view diffs)
src/OCE/USR/usrdef_hgr.F90 (modified) (view diffs)
src/OCE/USR/usrdef_istate.F90 (modified) (view diffs)
src/OCE/USR/usrdef_sbc.F90 (modified) (view diffs)
src/OCE/ZDF/zdfddm.F90 (modified) (view diffs)
src/OCE/ZDF/zdfdrg.F90 (modified) (view diffs)
src/OCE/ZDF/zdfevd.F90 (modified) (view diffs)
src/OCE/ZDF/zdfgls.F90 (modified) (view diffs)
src/OCE/ZDF/zdfiwm.F90 (modified) (view diffs)
src/OCE/ZDF/zdfmxl.F90 (modified) (view diffs)
src/OCE/ZDF/zdfosm.F90 (modified) (view diffs)
src/OCE/ZDF/zdfric.F90 (modified) (view diffs)
src/OCE/ZDF/zdfsh2.F90 (modified) (view diffs)
src/OCE/ZDF/zdfswm.F90 (modified) (view diffs)
src/OCE/ZDF/zdftke.F90 (modified) (view diffs)
src/OCE/do_loop_substitute.h90 (modified) (view diffs)
src/OCE/lib_fortran.F90 (modified) (view diffs)
src/OFF/dtadyn.F90 (modified) (view diffs)
src/SWE/asminc.F90 (modified) (view diffs)
src/SWE/diawri.F90 (modified) (view diffs)
src/SWE/domain.F90 (modified) (view diffs)
src/SWE/dommsk.F90 (modified) (view diffs)
src/SWE/domvvl.F90 (modified) (view diffs)
src/SWE/dynatf.F90 (modified) (view diffs)
src/SWE/dynkeg.F90 (modified) (view diffs)
src/SWE/dynldf_lap_blp.F90 (modified) (view diffs)
src/SWE/dynvor.F90 (modified) (view diffs)
src/SWE/ldfdyn.F90 (modified) (view diffs)
src/SWE/sbcice_cice.F90 (modified) (view diffs)
src/SWE/step.F90 (modified) (view diffs)
src/SWE/stepLF.F90 (modified) (view diffs)
src/SWE/stpRK3.F90 (modified) (view diffs)
src/TOP/C14/trcatm_c14.F90 (modified) (view diffs)
src/TOP/C14/trcsms_c14.F90 (modified) (view diffs)
src/TOP/C14/trcwri_c14.F90 (modified) (view diffs)
src/TOP/CFC/trcini_cfc.F90 (modified) (view diffs)
src/TOP/CFC/trcsms_cfc.F90 (modified) (view diffs)
src/TOP/PISCES/P2Z/p2zbio.F90 (modified) (view diffs)
src/TOP/PISCES/P2Z/p2zexp.F90 (modified) (view diffs)
src/TOP/PISCES/P2Z/p2zopt.F90 (modified) (view diffs)
src/TOP/PISCES/P2Z/p2zsed.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zagg.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zbc.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zbio.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zche.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zfechem.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zflx.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zligand.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zlim.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zlys.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zmeso.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zmicro.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zmort.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zopt.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zpoc.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zprod.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zrem.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zsed.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zsink.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p4zsms.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p5zlim.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p5zmeso.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p5zmicro.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p5zmort.F90 (modified) (view diffs)
src/TOP/PISCES/P4Z/p5zprod.F90 (modified) (view diffs)
src/TOP/PISCES/SED/sedchem.F90 (modified) (view diffs)
src/TOP/PISCES/SED/seddta.F90 (modified) (view diffs)
src/TOP/PISCES/SED/sedini.F90 (modified) (view diffs)
src/TOP/PISCES/SED/sedsfc.F90 (modified) (view diffs)
src/TOP/PISCES/SED/trcdmp_sed.F90 (modified) (view diffs)
src/TOP/PISCES/trcwri_pisces.F90 (modified) (view diffs)
src/TOP/TRP/trcatf.F90 (modified) (view diffs)
src/TOP/TRP/trcdmp.F90 (modified) (view diffs)
src/TOP/TRP/trcldf.F90 (modified) (view diffs)
src/TOP/TRP/trcrad.F90 (modified) (view diffs)
src/TOP/TRP/trcsbc.F90 (modified) (view diffs)
src/TOP/TRP/trcsink.F90 (modified) (view diffs)
src/TOP/TRP/trdmxl_trc.F90 (modified) (view diffs)
src/TOP/trcbc.F90 (modified) (view diffs)
src/TOP/trcdta.F90 (modified) (view diffs)
tests/BENCH/MY_SRC/usrdef_hgr.F90 (modified) (view diffs)
tests/BENCH/MY_SRC/usrdef_istate.F90 (modified) (view diffs)
tests/BENCH/MY_SRC/usrdef_sbc.F90 (modified) (view diffs)
tests/CANAL/MY_SRC/diawri.F90 (modified) (view diffs)
tests/CANAL/MY_SRC/domvvl.F90 (modified) (view diffs)
tests/CANAL/MY_SRC/trazdf.F90 (modified) (view diffs)
tests/CANAL/MY_SRC/usrdef_hgr.F90 (modified) (view diffs)
tests/CANAL/MY_SRC/usrdef_istate.F90 (modified) (view diffs)
tests/ICE_ADV1D/MY_SRC/usrdef_hgr.F90 (modified) (view diffs)
tests/ICE_ADV2D/MY_SRC/usrdef_hgr.F90 (modified) (view diffs)
tests/ICE_AGRIF/MY_SRC/usrdef_hgr.F90 (modified) (view diffs)
tests/ISOMIP+/MY_SRC/dtatsd.F90 (modified) (view diffs)
tests/ISOMIP+/MY_SRC/eosbn2.F90 (modified) (view diffs)
tests/ISOMIP+/MY_SRC/istate.F90 (modified) (view diffs)
tests/ISOMIP+/MY_SRC/tradmp.F90 (modified) (view diffs)
tests/ISOMIP/MY_SRC/usrdef_hgr.F90 (modified) (view diffs)
tests/ISOMIP/MY_SRC/usrdef_zgr.F90 (modified) (view diffs)
tests/LOCK_EXCHANGE/MY_SRC/usrdef_hgr.F90 (modified) (view diffs)
tests/OVERFLOW/MY_SRC/usrdef_hgr.F90 (modified) (view diffs)
tests/OVERFLOW/MY_SRC/usrdef_zgr.F90 (modified) (view diffs)
tests/VORTEX/MY_SRC/domvvl.F90 (modified) (view diffs)
tests/VORTEX/MY_SRC/usrdef_hgr.F90 (modified) (view diffs)
tests/VORTEX/MY_SRC/usrdef_istate.F90 (modified) (view diffs)
tests/WAD/MY_SRC/usrdef_hgr.F90 (modified) (view diffs)
tests/WAD/MY_SRC/usrdef_istate.F90 (modified) (view diffs)
tests/WAD/MY_SRC/usrdef_zgr.F90 (modified) (view diffs)

Note: See TracChangeset for help on using the changeset viewer.

New URL for NEMO forge! http://forge.nemo-ocean.eu

Context Navigation

Changeset 13295

Download in other formats: