Input buildinfo: https://buildinfos.debian.net/buildinfo-pool/o/oasis3/oasis3_3.mct+dfsg.121022-15_amd64.buildinfo Use metasnap for getting required timestamps New buildinfo file: /tmp/oasis3-3.mct+dfsg.121022-15ox6xkqdw/oasis3_3.mct+dfsg.121022-15_amd64.buildinfo Get source package info: oasis3=3.mct+dfsg.121022-15 Source URL: http://snapshot.notset.fr/mr/package/oasis3/3.mct+dfsg.121022-15/srcfiles?fileinfo=1 env -i PATH=/usr/sbin:/usr/bin:/sbin:/bin TMPDIR=/tmp mmdebstrap --arch=amd64 --include=adduser=3.118 autoconf=2.69-11.1 automake=1:1.16.2-3 autopoint=0.19.8.1-10 autotools-dev=20180224.1 base-files=11 base-passwd=3.5.47 bash=5.0-6 binutils=2.35-1 binutils-common=2.35-1 binutils-x86-64-linux-gnu=2.35-1 bsdextrautils=2.36-2 bsdutils=1:2.36-2 build-essential=12.8 bzip2=1.0.8-4 coreutils=8.32-3 cpp=4:10.1.0-1 cpp-10=10.2.0-3 cpp-9=9.3.0-16 dash=0.5.10.2-7 debconf=1.5.74 debhelper=13.2 debianutils=4.11 dh-autoreconf=19 dh-fortran-mod=0.17 dh-strip-nondeterminism=1.9.0-1 diffutils=1:3.7-3 dpkg=1.20.5 dpkg-dev=1.20.5 dwz=0.13-5 file=1:5.38-5 findutils=4.7.0-1 fontconfig-config=2.13.1-4.2 fonts-dejavu-core=2.37-2 fonts-lmodern=2.004.5-6 fonts-urw-base35=20170801.1-3 g++=4:10.1.0-1 g++-10=10.2.0-3 gcc=4:10.1.0-1 gcc-10=10.2.0-3 gcc-10-base=10.2.0-3 gcc-9=9.3.0-16 gcc-9-base=9.3.0-16 gettext=0.19.8.1-10 gettext-base=0.19.8.1-10 gfortran=4:10.1.0-1 gfortran-10=10.2.0-3 gfortran-9=9.3.0-16 ghostscript=9.52~dfsg-1 grep=3.4-1 groff-base=1.22.4-5 gzip=1.10-2 hdf5-helpers=1.10.6+repack-2 hostname=3.23 ibverbs-providers=29.0-1 init-system-helpers=1.58 intltool-debian=0.35.0+20060710.5 libacl1=2.2.53-8 libaec-dev=1.0.4-1 libaec0=1.0.4-1 libapache-pom-java=18-1 libarchive-zip-perl=1.68-1 libasan5=9.3.0-16 libasan6=10.2.0-3 libatomic1=10.2.0-3 libattr1=1:2.4.48-5 libaudit-common=1:2.8.5-3 libaudit1=1:2.8.5-3+b1 libavahi-client3=0.8-3 libavahi-common-data=0.8-3 libavahi-common3=0.8-3 libbinutils=2.35-1 libblkid1=2.36-2 libbrotli1=1.0.7-7 libbsd0=0.10.0-1 libbz2-1.0=1.0.8-4 libc-bin=2.31-2 libc-dev-bin=2.31-2 libc6=2.31-2 libc6-dev=2.31-2 libcairo2=1.16.0-4 libcap-ng0=0.7.9-2.2 libcbor0=0.5.0+dfsg-2 libcc1-0=10.2.0-3 libcom-err2=1.45.6-1 libcommons-logging-java=1.2-2 libcommons-parent-java=43-1 libcroco3=0.6.13-1 libcrypt-dev=1:4.4.16-1 libcrypt1=1:4.4.16-1 libctf-nobfd0=2.35-1 libctf0=2.35-1 libcups2=2.3.3-2 libcurl3-gnutls=7.68.0-1+b1 libcurl4-gnutls-dev=7.68.0-1+b1 libdb5.3=5.3.28+dfsg1-0.6 libdbus-1-3=1.12.20-1 libdebconfclient0=0.253 libdebhelper-perl=13.2 libdpkg-perl=1.20.5 libedit2=3.1-20191231-1 libelf1=0.180-1+b1 libevent-2.1-7=2.1.12-stable-1 libevent-core-2.1-7=2.1.12-stable-1 libevent-dev=2.1.12-stable-1 libevent-extra-2.1-7=2.1.12-stable-1 libevent-openssl-2.1-7=2.1.12-stable-1 libevent-pthreads-2.1-7=2.1.12-stable-1 libexpat1=2.2.9-1 libfabric1=1.6.2-3+b1 libffi7=3.3-4 libfido2-1=1.4.0-2 libfile-libmagic-perl=1.22-1 libfile-stripnondeterminism-perl=1.9.0-1 libfontbox-java=1:1.8.16-2 libfontconfig1=2.13.1-4.2 libfreetype6=2.10.2+dfsg-3 libgcc-10-dev=10.2.0-3 libgcc-9-dev=9.3.0-16 libgcc-s1=10.2.0-3 libgcrypt20=1.8.6-2 libgdbm-compat4=1.18.1-5 libgdbm6=1.18.1-5 libgfortran-10-dev=10.2.0-3 libgfortran-9-dev=9.3.0-16 libgfortran5=10.2.0-3 libglib2.0-0=2.64.4-1 libgmp10=2:6.2.0+dfsg-6 libgnutls30=3.6.14-2+b1 libgomp1=10.2.0-3 libgpg-error0=1.38-2 libgraphite2-3=1.3.14-1 libgs9=9.52~dfsg-1 libgs9-common=9.52~dfsg-1 libgssapi-krb5-2=1.17-10 libharfbuzz0b=2.6.7-1 libhdf5-103-1=1.10.6+repack-2 libhdf5-cpp-103-1=1.10.6+repack-2 libhdf5-dev=1.10.6+repack-2 libhdf5-fortran-102=1.10.6+repack-2 libhdf5-hl-100=1.10.6+repack-2 libhdf5-hl-cpp-100=1.10.6+repack-2 libhdf5-hl-fortran-100=1.10.6+repack-2 libhogweed6=3.6-2 libhwloc-dev=2.2.0+dfsg-3 libhwloc-plugins=2.2.0+dfsg-3 libhwloc15=2.2.0+dfsg-3 libibverbs-dev=29.0-1 libibverbs1=29.0-1 libice6=2:1.0.9-2 libicu67=67.1-3 libidn11=1.33-2.4 libidn2-0=2.3.0-1 libijs-0.35=0.35-15 libisl22=0.22.1-1 libitm1=10.2.0-3 libjbig0=2.1-3.1+b2 libjbig2dec0=0.18+20200417-1 libjpeg-dev=1:2.0.5-1.1 libjpeg62-turbo=1:2.0.5-1.1 libjpeg62-turbo-dev=1:2.0.5-1.1 libk5crypto3=1.17-10 libkeyutils1=1.6.1-2 libkpathsea6=2020.20200327.54578-4+b1 libkrb5-3=1.17-10 libkrb5support0=1.17-10 liblcms2-2=2.9-4+b1 libldap-2.4-2=2.4.50+dfsg-1+b1 libldap-common=2.4.50+dfsg-1 liblsan0=10.2.0-3 libltdl-dev=2.4.6-14 libltdl7=2.4.6-14 liblz4-1=1.9.2-2 liblzma5=5.2.4-1+b1 libmagic-mgc=1:5.38-5 libmagic1=1:5.38-5 libmount1=2.36-2 libmpc3=1.2.0~rc1-1 libmpfr6=4.1.0-3 libncursesw6=6.2-1 libnetcdf-dev=1:4.7.4-1 libnetcdf18=1:4.7.4-1 libnetcdff-dev=4.5.3+ds-1 libnetcdff7=4.5.3+ds-1 libnettle8=3.6-2 libnghttp2-14=1.41.0-2 libnl-3-200=3.4.0-1+b1 libnl-3-dev=3.4.0-1+b1 libnl-route-3-200=3.4.0-1+b1 libnl-route-3-dev=3.4.0-1+b1 libnuma-dev=2.0.12-1+b1 libnuma1=2.0.12-1+b1 libopenjp2-7=2.3.1-1 libopenmpi-dev=4.0.4-2 libopenmpi3=4.0.4-2 libp11-kit0=0.23.20-1 libpam-modules=1.3.1-5 libpam-modules-bin=1.3.1-5 libpam-runtime=1.3.1-5 libpam0g=1.3.1-5 libpaper-utils=1.1.28+b1 libpaper1=1.1.28+b1 libpciaccess0=0.16-1 libpcre2-8-0=10.34-7 libpcre3=2:8.39-13 libpdfbox-java=1:1.8.16-2 libperl5.30=5.30.3-4 libpipeline1=1.5.2-2 libpixman-1-0=0.36.0-1 libpmix2=3.1.5-1 libpng16-16=1.6.37-2 libpsl5=0.21.0-1.1 libpsm-infinipath1=3.3+20.604758e7-6+b1 libpsm2-2=11.2.86-1 libptexenc1=2020.20200327.54578-4+b1 libpython3-stdlib=3.8.2-3 libpython3.8-minimal=3.8.5-2 libpython3.8-stdlib=3.8.5-2 libquadmath0=10.2.0-3 librdmacm1=29.0-1 libreadline8=8.0-4 librtmp1=2.4+20151223.gitfa8646d.1-2+b2 libsasl2-2=2.1.27+dfsg-2 libsasl2-modules-db=2.1.27+dfsg-2 libseccomp2=2.4.3-1+b1 libselinux1=3.1-2 libsemanage-common=3.1-1 libsemanage1=3.1-1 libsepol1=3.1-1 libsigsegv2=2.12-2 libsm6=2:1.2.3-1 libsmartcols1=2.36-2 libsqlite3-0=3.32.3-1 libssh2-1=1.8.0-2.1 libssl1.1=1.1.1g-1 libstdc++-10-dev=10.2.0-3 libstdc++6=10.2.0-3 libsub-override-perl=0.09-2 libsynctex2=2020.20200327.54578-4+b1 libsystemd0=245.7-1 libsz2=1.0.4-1 libtasn1-6=4.16.0-2 libteckit0=2.5.8+ds2-5 libtexlua53=2020.20200327.54578-4+b1 libtexluajit2=2020.20200327.54578-4+b1 libtiff5=4.1.0+git191117-2 libtinfo6=6.2-1 libtool=2.4.6-14 libtsan0=10.2.0-3 libubsan1=10.2.0-3 libuchardet0=0.0.7-1 libucx0=1.8.1-2 libudev1=245.7-1 libunistring2=0.9.10-4 libuuid1=2.36-2 libwebp6=0.6.1-2+b1 libx11-6=2:1.6.10-3 libx11-data=2:1.6.10-3 libxau6=1:1.0.8-1+b2 libxaw7=2:1.0.13-1+b2 libxcb-render0=1.14-2 libxcb-shm0=1.14-2 libxcb1=1.14-2 libxdmcp6=1:1.1.2-3 libxext6=2:1.3.3-1+b2 libxi6=2:1.7.10-1 libxml2=2.9.10+dfsg-5+b1 libxmu6=2:1.1.2-2+b3 libxnvctrl0=450.57-1 libxpm4=1:3.5.12-1 libxrender1=1:0.9.10-1 libxt6=1:1.1.5-1+b3 libzstd1=1.4.5+dfsg-3 libzzip-0-13=0.13.62-3.2 linux-libc-dev=5.7.10-1 login=1:4.8.1-1 lsb-base=11.1.0 m4=1.4.18-4 make=4.3-4 man-db=2.9.3-2 mawk=1.3.4.20200120-2 mime-support=3.64 mpi-default-dev=1.13 ncurses-base=6.2-1 ncurses-bin=6.2-1 ocl-icd-libopencl1=2.2.12-4 openmpi-bin=4.0.4-2 openmpi-common=4.0.4-2 openssh-client=1:8.3p1-1 passwd=1:4.8.1-1 patch=2.7.6-6 perl=5.30.3-4 perl-base=5.30.3-4 perl-modules-5.30=5.30.3-4 po-debconf=1.0.21 poppler-data=0.4.9-2 preview-latex-style=11.91-2 python3=3.8.2-3 python3-minimal=3.8.2-3 python3.8=3.8.5-2 python3.8-minimal=3.8.5-2 readline-common=8.0-4 sed=4.7-1 sensible-utils=0.0.12+nmu1 sysvinit-utils=2.96-3 t1utils=1.41-4 tar=1.30+dfsg-7 tex-common=6.15 texlive-base=2020.20200804-1 texlive-binaries=2020.20200327.54578-4+b1 texlive-latex-base=2020.20200804-1 texlive-latex-extra=2020.20200804-1 texlive-latex-recommended=2020.20200804-1 texlive-pictures=2020.20200804-1 ucf=3.0043 util-linux=2.36-2 x11-common=1:7.7+20 xdg-utils=1.1.3-2 xz-utils=5.2.4-1+b1 zlib1g=1:1.2.11.dfsg-2 zlib1g-dev=1:1.2.11.dfsg-2 --variant=apt --aptopt=Acquire::Check-Valid-Until "false" --aptopt=Acquire::http::Dl-Limit "1000"; --aptopt=Acquire::https::Dl-Limit "1000"; --aptopt=Acquire::Retries "5"; --aptopt=APT::Get::allow-downgrades "true"; --keyring=/usr/share/keyrings/ --essential-hook=chroot "$1" sh -c "apt-get --yes install fakeroot util-linux" --essential-hook=copy-in /usr/share/keyrings/debian-archive-bullseye-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-security-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-stable.gpg /usr/share/keyrings/debian-archive-buster-automatic.gpg /usr/share/keyrings/debian-archive-buster-security-automatic.gpg /usr/share/keyrings/debian-archive-buster-stable.gpg /usr/share/keyrings/debian-archive-keyring.gpg /usr/share/keyrings/debian-archive-removed-keys.gpg /usr/share/keyrings/debian-archive-stretch-automatic.gpg /usr/share/keyrings/debian-archive-stretch-security-automatic.gpg /usr/share/keyrings/debian-archive-stretch-stable.gpg /usr/share/keyrings/debian-ports-archive-keyring-removed.gpg /usr/share/keyrings/debian-ports-archive-keyring.gpg /usr/share/keyrings/debian-keyring.gpg /etc/apt/trusted.gpg.d/ --essential-hook=chroot "$1" sh -c "rm /etc/apt/sources.list && echo 'deb http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb-src http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb http://snapshot.notset.fr/archive/debian/20200809T145301Z/ unstable main deb http://snapshot.notset.fr/archive/debian/20200803T091658Z/ unstable main' >> /etc/apt/sources.list && apt-get update" --customize-hook=chroot "$1" useradd --no-create-home -d /nonexistent -p "" builduser -s /bin/bash --customize-hook=chroot "$1" env sh -c "apt-get source --only-source -d oasis3=3.mct+dfsg.121022-15 && mkdir -p /build/oasis3-QbOzCD && dpkg-source --no-check -x /*.dsc /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022 && chown -R builduser:builduser /build/oasis3-QbOzCD" --customize-hook=chroot "$1" env --unset=TMPDIR runuser builduser -c "cd /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022 && env DEB_BUILD_OPTIONS="parallel=4" LC_ALL="C.UTF-8" SOURCE_DATE_EPOCH="1596613306" dpkg-buildpackage -uc -a amd64 --build=any" --customize-hook=sync-out /build/oasis3-QbOzCD /tmp/oasis3-3.mct+dfsg.121022-15ox6xkqdw bullseye /dev/null deb http://snapshot.notset.fr/archive/debian/20200803T091658Z unstable main I: automatically chosen mode: root I: chroot architecture amd64 is equal to the host's architecture I: automatically chosen format: tar I: using /tmp/mmdebstrap.T1tZrrrkCK as tempdir I: running apt-get update... I: downloading packages with apt... I: extracting archives... I: installing essential packages... I: running --essential-hook in shell: sh -c 'chroot "$1" sh -c "apt-get --yes install fakeroot util-linux"' exec /tmp/mmdebstrap.T1tZrrrkCK Reading package lists... Building dependency tree... util-linux is already the newest version (2.36-2). The following NEW packages will be installed: fakeroot libfakeroot 0 upgraded, 2 newly installed, 0 to remove and 0 not upgraded. Need to get 132 kB of archives. After this operation, 393 kB of additional disk space will be used. Get:1 http://snapshot.notset.fr/archive/debian/20200803T091658Z unstable/main amd64 libfakeroot amd64 1.24-1 [45.7 kB] Get:2 http://snapshot.notset.fr/archive/debian/20200803T091658Z unstable/main amd64 fakeroot amd64 1.24-1 [85.9 kB] debconf: delaying package configuration, since apt-utils is not installed Fetched 132 kB in 0s (968 kB/s) Selecting previously unselected package libfakeroot:amd64. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 4578 files and directories currently installed.) Preparing to unpack .../libfakeroot_1.24-1_amd64.deb ... Unpacking libfakeroot:amd64 (1.24-1) ... Selecting previously unselected package fakeroot. Preparing to unpack .../fakeroot_1.24-1_amd64.deb ... Unpacking fakeroot (1.24-1) ... Setting up libfakeroot:amd64 (1.24-1) ... Setting up fakeroot (1.24-1) ... update-alternatives: using /usr/bin/fakeroot-sysv to provide /usr/bin/fakeroot (fakeroot) in auto mode Processing triggers for libc-bin (2.31-2) ... I: running special hook: copy-in /usr/share/keyrings/debian-archive-bullseye-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-security-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-stable.gpg /usr/share/keyrings/debian-archive-buster-automatic.gpg /usr/share/keyrings/debian-archive-buster-security-automatic.gpg /usr/share/keyrings/debian-archive-buster-stable.gpg /usr/share/keyrings/debian-archive-keyring.gpg /usr/share/keyrings/debian-archive-removed-keys.gpg /usr/share/keyrings/debian-archive-stretch-automatic.gpg /usr/share/keyrings/debian-archive-stretch-security-automatic.gpg /usr/share/keyrings/debian-archive-stretch-stable.gpg /usr/share/keyrings/debian-ports-archive-keyring-removed.gpg /usr/share/keyrings/debian-ports-archive-keyring.gpg /usr/share/keyrings/debian-keyring.gpg /etc/apt/trusted.gpg.d/ I: running --essential-hook in shell: sh -c 'chroot "$1" sh -c "rm /etc/apt/sources.list && echo 'deb http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb-src http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb http://snapshot.notset.fr/archive/debian/20200809T145301Z/ unstable main deb http://snapshot.notset.fr/archive/debian/20200803T091658Z/ unstable main' >> /etc/apt/sources.list && apt-get update"' exec /tmp/mmdebstrap.T1tZrrrkCK Get:1 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm InRelease [81.6 kB] Get:2 http://snapshot.notset.fr/archive/debian/20200809T145301Z unstable InRelease [146 kB] Hit:3 http://snapshot.notset.fr/archive/debian/20200803T091658Z unstable InRelease Ign:4 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main Sources Ign:5 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main amd64 Packages Ign:4 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main Sources Ign:5 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main amd64 Packages Ign:4 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main Sources Ign:5 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main amd64 Packages Get:4 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main Sources [11.4 MB] Get:5 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main amd64 Packages [11.1 MB] Ign:6 http://snapshot.notset.fr/archive/debian/20200809T145301Z unstable/main amd64 Packages Ign:6 http://snapshot.notset.fr/archive/debian/20200809T145301Z unstable/main amd64 Packages Ign:6 http://snapshot.notset.fr/archive/debian/20200809T145301Z unstable/main amd64 Packages Get:6 http://snapshot.notset.fr/archive/debian/20200809T145301Z unstable/main amd64 Packages [11.3 MB] Fetched 34.0 MB in 33s (1023 kB/s) Reading package lists... I: installing remaining packages inside the chroot... I: running --customize-hook in shell: sh -c 'chroot "$1" useradd --no-create-home -d /nonexistent -p "" builduser -s /bin/bash' exec /tmp/mmdebstrap.T1tZrrrkCK I: running --customize-hook in shell: sh -c 'chroot "$1" env sh -c "apt-get source --only-source -d oasis3=3.mct+dfsg.121022-15 && mkdir -p /build/oasis3-QbOzCD && dpkg-source --no-check -x /*.dsc /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022 && chown -R builduser:builduser /build/oasis3-QbOzCD"' exec /tmp/mmdebstrap.T1tZrrrkCK Reading package lists... NOTICE: 'oasis3' packaging is maintained in the 'Git' version control system at: https://salsa.debian.org:/science-team/oasis3.git Please use: git clone https://salsa.debian.org:/science-team/oasis3.git to retrieve the latest (possibly unreleased) updates to the package. Need to get 5742 kB of source archives. Get:1 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main oasis3 3.mct+dfsg.121022-15 (dsc) [2255 B] Get:2 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main oasis3 3.mct+dfsg.121022-15 (tar) [5723 kB] Get:3 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main oasis3 3.mct+dfsg.121022-15 (diff) [16.4 kB] Fetched 5742 kB in 8s (733 kB/s) Download complete and in download only mode W: Download is performed unsandboxed as root as file 'oasis3_3.mct+dfsg.121022-15.dsc' couldn't be accessed by user '_apt'. - pkgAcquire::Run (13: Permission denied) dpkg-source: info: extracting oasis3 in /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022 dpkg-source: info: unpacking oasis3_3.mct+dfsg.121022.orig.tar.xz dpkg-source: info: unpacking oasis3_3.mct+dfsg.121022-15.debian.tar.xz dpkg-source: info: using patch list from debian/patches/series dpkg-source: info: applying make-debian.patch dpkg-source: info: applying reproducible.patch dpkg-source: info: applying protex.patch dpkg-source: info: applying esc-chars.patch I: running --customize-hook in shell: sh -c 'chroot "$1" env --unset=TMPDIR runuser builduser -c "cd /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022 && env DEB_BUILD_OPTIONS="parallel=4" LC_ALL="C.UTF-8" SOURCE_DATE_EPOCH="1596613306" dpkg-buildpackage -uc -a amd64 --build=any"' exec /tmp/mmdebstrap.T1tZrrrkCK dpkg-buildpackage: info: source package oasis3 dpkg-buildpackage: info: source version 3.mct+dfsg.121022-15 dpkg-buildpackage: info: source distribution unstable dpkg-buildpackage: info: source changed by Alastair McKinstry dpkg-source --before-build . dpkg-buildpackage: info: host architecture amd64 fakeroot debian/rules clean dh clean debian/rules override_dh_clean make[1]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' dh_clean /usr/bin/make -C lib/mct/doc clean make[2]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc' cd texsrc; make clean make[3]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc/texsrc' rm -f *.F90 rm -f *.tex make[3]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc/texsrc' rm -f *.dvi *.log *.bbl *.blg *.aux *.toc make[2]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc' find . -name '.svn' -exec rm -rf {} \; || echo "Deleting .svn directories" find: ‘./examples/test_interpolation/.svn’: No such file or directory find: ‘./examples/test_interpolation/data_oasis3/.svn’: No such file or directory find: ‘./examples/test_interpolation/data_oasis3/namcouple_map_conserv_torc_lmdz/.svn’: No such file or directory find: ‘./examples/test_rmp_esmf/.svn’: No such file or directory find: ‘./examples/test_rmp_esmf/data_esmf/.svn’: No such file or directory find: ‘./examples/.svn’: No such file or directory find: ‘./examples/tutorial/.svn’: No such file or directory find: ‘./examples/tutorial/data_oasis3/.svn’: No such file or directory find: ‘./lib/scrip/src/.svn’: No such file or directory find: ‘./lib/scrip/.svn’: No such file or directory find: ‘./lib/.svn’: No such file or directory find: ‘./lib/mct/mpeu/.svn’: No such file or directory find: ‘./lib/mct/examples/climate_concur1/.svn’: No such file or directory find: ‘./lib/mct/examples/.svn’: No such file or directory find: ‘./lib/mct/examples/simple/.svn’: No such file or directory find: ‘./lib/mct/examples/climate_sequen1/.svn’: No such file or directory find: ‘./lib/mct/protex/.svn’: No such file or directory find: ‘./lib/mct/m4/.svn’: No such file or directory find: ‘./lib/mct/.svn’: No such file or directory find: ‘./lib/mct/mpi-serial/.svn’: No such file or directory find: ‘./lib/mct/mct/.svn’: No such file or directory find: ‘./lib/mct/doc/texsrc/.svn’: No such file or directory find: ‘./lib/mct/doc/.svn’: No such file or directory find: ‘./lib/psmile/src/.svn’: No such file or directory find: ‘./lib/psmile/.svn’: No such file or directory find: ‘./lib/psmile/include/.svn’: No such file or directory find: ‘./util/make_dir/.svn’: No such file or directory find: ‘./util/.svn’: No such file or directory find: ‘./doc/.svn’: No such file or directory find: ‘./doc/figures/.svn’: No such file or directory Deleting .svn directories rm -rf lib/mct/doc/*.pdf build /usr/bin/make -C /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir -f TopMakefileOasis3 ARCH=debian TOP=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/ realclean ARCH=debian || echo "realclean done already" make[2]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' make -f TopMakefileOasis3 cleanlibs make[3]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' cleaning oasis3-mct libraries rm -f /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip/* rm -f /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct/* rm -f -r /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mctdir/* rm -f /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1/* rm -f /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/libscrip.a rm -f /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/libmct.a rm -f /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/libmpeu.a rm -f /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/libpsmile.MPI1.a make[3]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' make[2]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' make[1]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' debian/rules build-arch dh build-arch dh_update_autotools_config -a dh_autoreconf -a debian/rules override_dh_auto_build make[1]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' /usr/bin/make -C /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir -f TopMakefileOasis3 ARCH=debian TOP=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/ CHAN=MPI1 default make[2]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' make -f TopMakefileOasis3 makedirs make[3]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' make[3]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' make -f TopMakefileOasis3 makemct make[3]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' => Compiling library mpeu and mct (cd /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mctdir; cp -f -r -p /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/mct/* .;\ ./configure MPIFC="/usr/bin/mpif90 -Wall -I/usr/include" FC="/usr/bin/mpif90 -Wall -I/usr/include" CC="gcc -I/usr/include" ; \ make ; \ cp -f ./*/lib*.a /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/; \ cp -f ./*/*.o /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct/; \ cp -f ./*/*.mod /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct/;) checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether gcc -I/usr/include accepts -g... yes checking for gcc -I/usr/include option to accept ISO C89... none needed checking how to run the C preprocessor... gcc -I/usr/include -E checking for grep that handles long lines and -e... /bin/grep checking for egrep... /bin/grep -E checking for ANSI C header files... yes checking for sys/types.h... yes checking for sys/stat.h... yes checking for stdlib.h... yes checking for string.h... yes checking for memory.h... yes checking for strings.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for unistd.h... yes checking whether byte ordering is bigendian... no checking whether we are using the GNU Fortran compiler... yes checking whether /usr/bin/mpif90 -Wall -I/usr/include accepts -g... yes checking for Fortran flag to compile .F90 files... none checking for mpif90... /usr/bin/mpif90 -Wall -I/usr/include checking for MPI_Init... yes checking for mpif.h... yes Checking Compiler Version checking how to get the version output from /usr/bin/mpif90 -Wall -I/usr/include... --version checking for Fortran flag to compile preprocessed .F files... none checking how to define symbols for preprocessed Fortran... -D checking how to get verbose linking output from /usr/bin/mpif90 -Wall -I/usr/include... -v checking for Fortran libraries of /usr/bin/mpif90 -Wall -I/usr/include... -L/usr/lib/x86_64-linux-gnu/openmpi/lib/fortran/gfortran -L/usr/lib/gcc/x86_64-linux-gnu/10 -L/usr/lib/gcc/x86_64-linux-gnu/10/../../../x86_64-linux-gnu -L/usr/lib/gcc/x86_64-linux-gnu/10/../../../../lib -L/lib/x86_64-linux-gnu -L/lib/../lib -L/usr/lib/x86_64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/10/../../.. -lmpi_usempif08 -lmpi_usempi_ignore_tkr -lmpi_mpifh -lmpi -lopen-rte -lopen-pal -lhwloc -ldl -levent_core -levent_pthreads -lutil -lgfortran -lm -lrt -lz -lquadmath -lpthread checking for dummy main to link with Fortran libraries... none checking for Fortran name-mangling scheme... lower case, underscore, no extra underscore Hostname=afbe49d7dabe Machine=x86_64 OS=Linux Output Variables: {CC=gcc -I/usr/include} {CFLAGS=-g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -Wformat -Werror=format-security} {FC=/usr/bin/mpif90 -Wall -I/usr/include} {FCFLAGS=-g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch} {PROGFCFLAGS=}{CPPDEFS= -DSYSLINUX -DCPR} {OPT=} {DEBUG=} {REAL8=} {BIT64=} {ENDIAN=} {MPIFC=/usr/bin/mpif90 -Wall -I/usr/include} {MPILIBS=} {MPIHEADER=} {INCLUDEFLAG=-I} {INCLUDEPATH=} {AR=ar cq} {BABELROOT=} {COMPILER_ROOT=} {PYTHON=} {PYTHONOPTS=} {FORT_SIZE=} {prefix=NONE} {SRCDIR=} {FC_DEFINE=-D} configure: creating ./config.status config.status: creating Makefile.conf config.status: creating config.h Please check the Makefile.conf Have a nice day! make[4]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir' make[5]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu' gcc -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -Wformat -Werror=format-security -I. -I../ get_zeits.c /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_mpif.F90 m_mpif.F90:31:2: 31 | module m_mpif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:32:2: 32 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:33:2: 33 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:35:2: 35 | public :: MPI_INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:36:2: 36 | public :: MPI_REAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:37:2: 37 | public :: MPI_DOUBLE_PRECISION | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:38:2: 38 | public :: MPI_LOGICAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:39:2: 39 | public :: MPI_CHARACTER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:41:2: 41 | public :: MPI_REAL4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:42:2: 42 | public :: MPI_REAL8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:44:2: 44 | public :: MPI_COMM_WORLD | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:45:2: 45 | public :: MPI_COMM_NULL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:47:2: 47 | public :: MPI_SUM | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:48:2: 48 | public :: MPI_PROD | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:49:2: 49 | public :: MPI_MIN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:50:4: 50 | public :: MPI_MAX | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:52:2: 52 | public :: MPI_MAX_ERROR_STRING | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:53:2: 53 | public :: MPI_STATUS_SIZE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:54:2: 54 | public :: MPI_ANY_SOURCE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:66:2: 66 | character(len=*),parameter :: myname='MCT(MPEU)::m_mpif' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif.F90:68:2: 68 | end module m_mpif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_realkinds.F90 m_realkinds.F90:17:15: 17 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:19:25: 19 | public :: kind_r4 ! real*4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:20:25: 20 | public :: kind_r8 ! real*8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:21:24: 21 | public :: kind_r ! default real | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:22:20: 22 | public :: SP ! default REAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:23:20: 23 | public :: DP ! default DOUBLE_PRECISION | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_realkinds.F90:24:20: 24 | public :: FP ! general floating point precision | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_stdio.F90 m_stdio.F90:16:2: 16 | module m_stdio | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:17:2: 17 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:18:2: 18 | private | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:20:2: 20 | public :: stdin ! a unit linked to UNIX stdin | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:21:2: 21 | public :: stdout ! a unit linked to UNIX stdout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:22:2: 22 | public :: stderr ! a unit linked to UNIX stderr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:24:2: 24 | public :: LEN_FILENAME | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:36:2: 36 | integer, parameter :: stdin = 5 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:37:2: 37 | integer, parameter :: stdout = 6 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:46:2: 46 | integer, parameter :: stderr = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_stdio.F90:49:2: 49 | integer, parameter :: LEN_FILENAME = 128 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_mpif90.F90 m_mpif90.F90:26:37: 26 | use m_mpif, only : MP_INTEGER => MPI_INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:27:34: 27 | use m_mpif, only : MP_REAL => MPI_REAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:28:46: 28 | use m_mpif, only : MP_DOUBLE_PRECISION & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:29:2: 29 | => MPI_DOUBLE_PRECISION | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:30:37: 30 | use m_mpif, only : MP_LOGICAL => MPI_LOGICAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:31:39: 31 | use m_mpif, only : MP_CHARACTER => MPI_CHARACTER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:33:35: 33 | use m_mpif, only : MP_REAL4 => MPI_REAL4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:34:35: 34 | use m_mpif, only : MP_REAL8 => MPI_REAL8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:36:40: 36 | use m_mpif, only : MP_COMM_WORLD => MPI_COMM_WORLD | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:37:39: 37 | use m_mpif, only : MP_COMM_NULL => MPI_COMM_NULL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:38:33: 38 | use m_mpif, only : MP_SUM => MPI_SUM | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:39:34: 39 | use m_mpif, only : MP_PROD => MPI_PROD | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:40:34: 40 | use m_mpif, only : MP_MIN => MPI_MIN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:41:34: 41 | use m_mpif, only : MP_MAX => MPI_MAX | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:42:46: 42 | use m_mpif, only : MP_MAX_ERROR_STRING & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:43:2: 43 | => MPI_MAX_ERROR_STRING | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:45:40: 45 | use m_mpif, only : MP_ANY_SOURCE => MPI_ANY_SOURCE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:142:37: 142 | interface MP_type; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:143:11: 143 | typeI_, & ! MPI_INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:144:11: 144 | typeL_, & ! MPI_LOGICAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:145:11: 145 | typeC_, & ! MPI_CHARACTER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:146:12: 146 | typeSP_, & ! MPI_REAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:147:12: 147 | typeDP_, & ! MPI_DOUBLE_PRECISION | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:148:12: 148 | typeI1_, & ! MPI_INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:149:12: 149 | typeL1_, & ! MPI_LOGICAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:150:12: 150 | typeC1_, & ! MPI_CHARACTER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:151:13: 151 | typeSP1_, & ! MPI_REAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:152:13: 152 | typeDP1_, & ! MPI_DOUBLE_PRECISION | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:153:12: 153 | typeI2_, & ! MPI_INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:154:12: 154 | typeL2_, & ! MPI_LOGICAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:155:12: 155 | typeC2_, & ! MPI_CHARACTER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:156:13: 156 | typeSP2_, & ! MPI_REAL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:157:12: 157 | typeDP2_ ! MPI_DOUBLE_PRECISION | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:217:59: 217 | subroutine MPI_cart_create(comm_old,ndims,dims,periods, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:218:4: 218 | reorder,comm_cart,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:217:59: 217 | subroutine MPI_cart_create(comm_old,ndims,dims,periods, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:218:4: 218 | reorder,comm_cart,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:676:40: 676 | write(stderr,'(4a,i4)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:677:2: 677 | MP_proc,' error, ierror =',ierror | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:676:40: 676 | write(stderr,'(4a,i4)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:677:2: 677 | MP_proc,' error, ierror =',ierror | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:676:40: 676 | write(stderr,'(4a,i4)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:677:2: 677 | MP_proc,' error, ierror =',ierror | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:676:40: 676 | write(stderr,'(4a,i4)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:677:2: 677 | MP_proc,' error, ierror =',ierror | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:676:40: 676 | write(stderr,'(4a,i4)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:677:2: 677 | MP_proc,' error, ierror =',ierror | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:679:37: 679 | write(stderr,'(6a)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:680:2: 680 | MP_proc,' error, "',estr(1:ln),'"' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:679:37: 679 | write(stderr,'(6a)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:680:2: 680 | MP_proc,' error, "',estr(1:ln),'"' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:679:37: 679 | write(stderr,'(6a)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:680:2: 680 | MP_proc,' error, "',estr(1:ln),'"' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:679:37: 679 | write(stderr,'(6a)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:680:2: 680 | MP_proc,' error, "',estr(1:ln),'"' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:679:37: 679 | write(stderr,'(6a)') proc,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:680:2: 680 | MP_proc,' error, "',estr(1:ln),'"' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpif90.F90:631:26: 631 | function typeDP2_(rval) | 1 Warning: Unused dummy argument ‘rval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:604:26: 604 | function typeSP2_(rval) | 1 Warning: Unused dummy argument ‘rval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:579:25: 579 | function typeC2_(cval) | 1 Warning: Unused dummy argument ‘cval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:554:25: 554 | function typeL2_(lval) | 1 Warning: Unused dummy argument ‘lval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:529:25: 529 | function typeI2_(ival) | 1 Warning: Unused dummy argument ‘ival’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:502:26: 502 | function typeDP1_(rval) | 1 Warning: Unused dummy argument ‘rval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:475:26: 475 | function typeSP1_(rval) | 1 Warning: Unused dummy argument ‘rval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:450:25: 450 | function typeC1_(cval) | 1 Warning: Unused dummy argument ‘cval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:425:25: 425 | function typeL1_(lval) | 1 Warning: Unused dummy argument ‘lval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:400:25: 400 | function typeI1_(ival) | 1 Warning: Unused dummy argument ‘ival’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:373:25: 373 | function typeDP_(rval) | 1 Warning: Unused dummy argument ‘rval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:346:25: 346 | function typeSP_(rval) | 1 Warning: Unused dummy argument ‘rval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:321:24: 321 | function typeC_(cval) | 1 Warning: Unused dummy argument ‘cval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:296:24: 296 | function typeL_(lval) | 1 Warning: Unused dummy argument ‘lval’ at (1) [-Wunused-dummy-argument] m_mpif90.F90:271:24: 271 | function typeI_(ival) | 1 Warning: Unused dummy argument ‘ival’ at (1) [-Wunused-dummy-argument] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_dropdead.F90 m_dropdead.F90:17:15: 17 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:19:14: 19 | public :: die ! terminate a program with a condition | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:21:39: 21 | interface die; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:22:2: 22 | die_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:23:2: 23 | diex_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:53:44: 53 | character(len=*),intent(in) :: where ! where it is called | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:79:51: 79 | write(stderr,'(z3.3,5a)') myrank,'.',myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:92:52: 92 | write(stderr,'(5a)') 'unknown rank .',myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:123:44: 123 | character(len=*),intent(in) :: where ! where it is called | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:154:51: 154 | write(stderr,'(z3.3,9a)') myrank,'.',myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:155:35: 155 | ': from ',trim(where),'()', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:156:40: 156 | ', line ',trim(adjustl(lineno)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:170:52: 170 | write(stderr,'(9a)') 'unknown rank .',myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:171:35: 171 | ': from ',trim(where),'()', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_dropdead.F90:172:40: 172 | ', line ',trim(adjustl(lineno)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_chars.F90 m_chars.F90:15:2: 15 | module m_chars | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:16:2: 16 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:17:2: 17 | private | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:19:2: 19 | public :: operator (.upper.) ! convert a string to uppercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:20:2: 20 | public :: uppercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:22:2: 22 | public :: operator (.lower.) ! convert a string to lowercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:23:2: 23 | public :: lowercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:25:2: 25 | interface operator (.upper.) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:26:2: 26 | module procedure upper_case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:27:2: 27 | end interface | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:28:2: 28 | interface uppercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:29:2: 29 | module procedure upper_case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:30:2: 30 | end interface | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:32:2: 32 | interface operator (.lower.) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:33:2: 33 | module procedure lower_case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:34:2: 34 | end interface | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:35:2: 35 | interface lowercase | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:36:2: 36 | module procedure lower_case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:37:2: 37 | end interface | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:71:47: 71 | if(str(i:i).ge.'a'.and.str(i:i).le.'z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:72:8: 72 | ustr(i:i)=char(ichar(str(i:i))+il2u) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:71:47: 71 | if(str(i:i).ge.'a'.and.str(i:i).le.'z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:72:8: 72 | ustr(i:i)=char(ichar(str(i:i))+il2u) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:71:47: 71 | if(str(i:i).ge.'a'.and.str(i:i).le.'z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:72:8: 72 | ustr(i:i)=char(ichar(str(i:i))+il2u) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:71:47: 71 | if(str(i:i).ge.'a'.and.str(i:i).le.'z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:72:8: 72 | ustr(i:i)=char(ichar(str(i:i))+il2u) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:101:47: 101 | if(str(i:i).ge.'A'.and.str(i:i).le.'Z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:102:8: 102 | lstr(i:i)=char(ichar(str(i:i))+iu2l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:101:47: 101 | if(str(i:i).ge.'A'.and.str(i:i).le.'Z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:102:8: 102 | lstr(i:i)=char(ichar(str(i:i))+iu2l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:101:47: 101 | if(str(i:i).ge.'A'.and.str(i:i).le.'Z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:102:8: 102 | lstr(i:i)=char(ichar(str(i:i))+iu2l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:101:47: 101 | if(str(i:i).ge.'A'.and.str(i:i).le.'Z') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_chars.F90:102:8: 102 | lstr(i:i)=char(ichar(str(i:i))+iu2l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_flow.F90 m_flow.F90:17:15: 17 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_flow.F90:148:36: 148 | WRITE(lu,'(4a)',advance='no') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_flow.F90:185:14: 185 | integer :: i | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_ioutil.F90 m_ioutil.F90:18:2: 18 | module m_ioutil | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:19:2: 19 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:20:2: 20 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:22:2: 22 | public :: opntext,clstext ! open/close a text file | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:23:2: 23 | public :: opnieee,clsieee ! open/close a binary sequential file | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:24:2: 24 | public :: luavail ! return a free logical unit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:25:2: 25 | public :: luflush ! flush the buffer of a given unit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:40:2: 40 | character(len=*),parameter :: myname="MCT(MPEU)::m_ioutil" | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:41:2: 41 | integer,parameter :: MX_LU=99 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:93:2: 93 | character(len=*),parameter :: myname_=myname//'::opnieee' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:95:2: 95 | integer,parameter :: iA=ichar('a') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:96:2: 96 | integer,parameter :: mA=ichar('A') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:97:2: 97 | integer,parameter :: iZ=ichar('z') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:99:2: 99 | logical :: direct | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:100:2: 100 | character(len=16) :: clen | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:101:2: 101 | character(len=len(status)) :: Ustat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:102:2: 102 | integer :: i,ic | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:107:2: 107 | ier = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:109:2: 109 | direct=.false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:110:2: 110 | if(present(recl)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:111:2: 111 | if(recl<0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:112:2: 112 | clen='****************' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:113:2: 113 | write(clen,'(i16)',iostat=ier) recl | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:114:2: 114 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:116:2: 116 | ier=-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:117:2: 117 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:118:2: 118 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:119:2: 119 | direct = recl>0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:120:2: 120 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:139:2: 139 | do i=1,len(status) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:140:2: 140 | ic=ichar(status(i:i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:141:2: 141 | if(ic >= iA .and. ic <= iZ) ic=ic+(mA-iA) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:142:2: 142 | Ustat(i:i)=char(ic) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:143:2: 143 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:145:2: 145 | select case(Ustat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:147:2: 147 | case ('APPEND') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:149:2: 149 | if(direct) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:150:2: 150 | write(stderr,'(2a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:152:2: 152 | ier=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:153:2: 153 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:154:2: 154 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:156:2: 156 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:2: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:156:10: 156 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:2: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:156:10: 156 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:2: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:163:2: 163 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:156:10: 156 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:2: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:156:10: 156 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:2: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:16: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:16: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:16: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:157:16: 157 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:2: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:158:19: 158 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:2: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:159:27: 159 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:2: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:28: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:28: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:28: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:28: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:160:28: 160 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:2: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:161:25: 161 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:2: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:163:2: 163 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:26: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:163:2: 163 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:26: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:163:2: 163 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:162:26: 162 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:163:2: 163 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:165:2: 165 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:167:2: 167 | if(direct) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:168:2: 168 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:2: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:168:12: 168 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:2: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:168:12: 168 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:2: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:175:2: 175 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:168:12: 168 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:2: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:168:12: 168 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:2: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:18: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:18: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:18: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:169:18: 169 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:2: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:170:21: 170 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:2: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:171:29: 171 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:2: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:26: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:26: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:26: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:26: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:172:26: 172 | access ='direct', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:2: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:173:24: 173 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:2: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:175:2: 175 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:20: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:175:2: 175 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:20: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:175:2: 175 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:174:20: 174 | recl =recl, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:175:2: 175 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:177:2: 177 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:178:2: 178 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:2: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:178:12: 178 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:2: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:178:12: 178 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:2: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:185:2: 185 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:178:12: 178 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:2: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:178:12: 178 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:2: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:18: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:18: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:18: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:179:18: 179 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:2: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:180:21: 180 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:2: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:181:29: 181 | form ='unformatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:2: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:30: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:30: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:30: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:30: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:182:30: 182 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:2: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:183:24: 183 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:2: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:185:2: 185 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:26: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:185:2: 185 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:26: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:185:2: 185 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:184:26: 184 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:185:2: 185 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:186:2: 186 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:188:2: 188 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:190:2: 190 | end subroutine opnieee | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:209:2: 209 | subroutine clsieee(lu,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:210:2: 210 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:211:2: 211 | integer, intent(in) :: lu ! the unit used by opnieee() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:212:2: 212 | integer, intent(out) :: ier ! the status | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:218:2: 218 | close(lu,iostat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:223:2: 223 | end subroutine clsieee | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:257:2: 257 | character(len=*),parameter :: myname_=myname//'::opntext' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:259:2: 259 | integer,parameter :: iA=ichar('a') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:260:2: 260 | integer,parameter :: mA=ichar('A') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:261:2: 261 | integer,parameter :: iZ=ichar('z') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:263:2: 263 | character(len=len(status)) :: Ustat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:264:2: 264 | integer :: i,ic | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:271:2: 271 | do i=1,len(status) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:272:2: 272 | ic=ichar(status(i:i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:273:2: 273 | if(ic >= iA .and. ic <= iZ) ic=ic+(mA-iA) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:274:2: 274 | Ustat(i:i)=char(ic) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:275:2: 275 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:277:2: 277 | select case(Ustat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:279:2: 279 | case ('APPEND') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:281:2: 281 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:2: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:281:10: 281 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:2: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:281:10: 281 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:2: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:288:2: 288 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:281:10: 281 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:2: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:281:10: 281 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:2: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:16: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:16: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:16: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:282:16: 282 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:2: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:283:19: 283 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:2: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:284:25: 284 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:2: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:28: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:28: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:28: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:28: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:285:28: 285 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:2: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:286:25: 286 | status ='unknown', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:2: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:288:2: 288 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:26: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:288:2: 288 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:26: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:288:2: 288 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:287:26: 287 | position ='append', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:288:2: 288 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:290:2: 290 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:292:2: 292 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:2: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:292:10: 292 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:2: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:292:10: 292 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:2: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:299:2: 299 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:292:10: 292 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:2: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:292:10: 292 | open( & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:2: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:16: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:16: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:16: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:293:16: 293 | unit =lu, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:2: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:294:19: 294 | file =fname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:2: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:295:25: 295 | form ='formatted', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:2: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:28: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:28: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:28: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:28: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:296:28: 296 | access ='sequential', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:2: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:297:22: 297 | status =status, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:2: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:299:2: 299 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:24: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:299:2: 299 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:24: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:299:2: 299 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:298:24: 298 | position ='asis', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:299:2: 299 | iostat =ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:301:2: 301 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:303:2: 303 | end subroutine opntext | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:327:2: 327 | close(lu,iostat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:332:2: 332 | end subroutine clstext | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:347:2: 347 | function luavail() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:348:2: 348 | use m_stdio | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:349:2: 349 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:350:2: 350 | integer :: luavail ! result | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:369:2: 369 | integer lu,ios | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:370:2: 370 | logical inuse | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:372:2: 372 | lu=10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:373:2: 373 | ios=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:374:2: 374 | inuse=.true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:376:2: 376 | do while(ios.eq.0 .and. inuse .and. lu.le.MX_LU) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:377:2: 377 | lu=lu+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:378:2: 378 | inquire(unit=lu,opened=inuse,iostat=ios) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:379:2: 379 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:381:2: 381 | if(ios.ne.0) lu=-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:382:2: 382 | luavail=lu | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ioutil.F90:417:16: 417 | integer :: ier | 1 Warning: Unused variable ‘ier’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_mpout.F90 m_mpout.F90:18:15: 18 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:20:23: 20 | public :: mpout ! The file handle as a Fortran logical unit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:22:28: 22 | public :: mpout_open ! open the multiple output streams | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:23:29: 23 | public :: mpout_close ! close the multiple output streams | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:24:28: 24 | public :: mpout_sync ! sync. the multiple output streams | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:25:29: 25 | public :: mpout_flush ! flush the multople output streams | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:26:28: 26 | public :: mpout_ison ! verify if mpout is proper defined | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:27:27: 27 | public :: mpout_log ! write a message to mpout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:73:37: 73 | integer,parameter :: mpout_MASK=3 ! every four PEs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:149:40: 149 | write(stderr,'(4a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mpout.F90:195:47: 195 | write(stderr,'(2a,i3.3,a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_die.F90 m_die.F90:18:15: 18 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:20:21: 20 | public :: die ! signal an exception | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:21:22: 21 | public :: diex ! a special die() supporting macros | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:22:27: 22 | public :: perr,warn ! message(s) to stderr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:23:26: 23 | public :: perr_die ! to be phased out | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:24:24: 24 | public :: MP_die ! a special die() for MPI errors | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:25:25: 25 | public :: MP_perr ! perr for MPI errors, from m_mpif90 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:26:29: 26 | public :: MP_perr_die ! a special die() for MPI errors | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:27:25: 27 | public :: assert_ ! used by ASSERT() macro of assert.H | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:29:39: 29 | interface die; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:30:2: 30 | die0_, & ! die(where) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:31:2: 31 | die1_, & ! die(where,message) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:32:2: 32 | die2_, & ! die(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:33:2: 33 | die4_ ! die(where,mesg1,ival1,mesg2,ival2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:36:40: 36 | interface diex; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:37:2: 37 | diex_ ! diex(where,filename,lineno) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:40:40: 40 | interface perr; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:41:2: 41 | perr1_, & ! perr(where,message) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:42:2: 42 | perr2_, & ! perr(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:43:2: 43 | perr4_ ! perr(where,mesg1,ival1,mesg2,ival2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:45:40: 45 | interface warn; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:46:2: 46 | perr1_, & ! perr(where,message) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:47:2: 47 | perr2_, & ! perr(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:48:2: 48 | perr4_ ! perr(where,mesg1,ival1,mesg2,ival2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:51:44: 51 | interface perr_die; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:52:2: 52 | die2_ ! perr_die(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:55:42: 55 | interface MP_die; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:56:2: 56 | MPdie2_ ! MP_die(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:58:47: 58 | interface MP_perr_die; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:59:2: 59 | MPdie2_ ! MP_die(where,proc,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:292:36: 292 | write(stderr,'(5a)') where,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:293:2: 293 | proc,' error, stat =',trim(adjustl(cer)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:292:36: 292 | write(stderr,'(5a)') where,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:293:2: 293 | proc,' error, stat =',trim(adjustl(cer)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:292:36: 292 | write(stderr,'(5a)') where,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:293:2: 293 | proc,' error, stat =',trim(adjustl(cer)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:292:36: 292 | write(stderr,'(5a)') where,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:293:2: 293 | proc,' error, stat =',trim(adjustl(cer)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:292:36: 292 | write(stderr,'(5a)') where,': ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:293:2: 293 | proc,' error, stat =',trim(adjustl(cer)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:329:44: 329 | write(stderr,'(10a)') where,': error, ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:2: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:329:44: 329 | write(stderr,'(10a)') where,': error, ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:2: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:329:44: 329 | write(stderr,'(10a)') where,': error, ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:2: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:329:44: 329 | write(stderr,'(10a)') where,': error, ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:2: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:329:44: 329 | write(stderr,'(10a)') where,': error, ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:2: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:331:2: 331 | mesg2,'=',trim(adjustl(cval2)),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:39: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:331:2: 331 | mesg2,'=',trim(adjustl(cval2)),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:39: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:331:2: 331 | mesg2,'=',trim(adjustl(cval2)),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:39: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:331:2: 331 | mesg2,'=',trim(adjustl(cval2)),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:330:39: 330 | mesg1,'=',trim(adjustl(cval1)),', ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:331:2: 331 | mesg2,'=',trim(adjustl(cval2)),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:377:43: 377 | Character(Len=*), Intent(In) :: str ! a message | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:378:44: 378 | Character(Len=*), Intent(In) :: file ! a filename | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:379:35: 379 | Integer, Intent(In) :: line ! a line number | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_die.F90:372:26: 372 | subroutine assert_(str, file, line) | 1 Warning: Unused dummy argument ‘str’ at (1) [-Wunused-dummy-argument] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_IndexBin_char.F90 m_IndexBin_char.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:19:45: 19 | interface IndexBin; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:20:2: 20 | IndexBin0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:21:2: 21 | IndexBin1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:22:2: 22 | IndexBin1w_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:65:2: 65 | allocate(inew(n),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:66:2: 66 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:67:2: 67 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:69:2: 69 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:70:2: 70 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:74:11: 74 | lc(0)=1 ! the location of values the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:80:17: 80 | lc(1)=ln(0)+1 ! the location of values not the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:104:2: 104 | deallocate(inew) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:144:2: 144 | allocate(ibin(n),inew(n),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:145:2: 145 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:146:2: 146 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:148:2: 148 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:149:2: 149 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:162:41: 162 | call search_(keys(ix),nbin,bins,ib) ! ib = 1:nbin; =0 if not found | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:179:16: 179 | ib=ibin(i) ! the bin-index of keys(indx(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:187:22: 187 | inew(ni)=indx(i) ! the current value is put in the new order | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_char.F90:194:2: 194 | deallocate(ibin,inew) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_IndexBin_integer.F90 m_IndexBin_integer.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:19:45: 19 | interface IndexBin; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:20:2: 20 | IndexBin0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:21:2: 21 | IndexBin1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:22:2: 22 | IndexBin1w_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:65:2: 65 | allocate(inew(n),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:66:2: 66 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:67:2: 67 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:69:2: 69 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:70:2: 70 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:74:11: 74 | lc(0)=1 ! the location of values the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:80:17: 80 | lc(1)=ln(0)+1 ! the location of values not the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:104:2: 104 | deallocate(inew) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:144:2: 144 | allocate(ibin(n),inew(n),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:145:2: 145 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:146:2: 146 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:148:2: 148 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:149:2: 149 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:162:41: 162 | call search_(keys(ix),nbin,bins,ib) ! ib = 1:nbin; =0 if not found | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:179:16: 179 | ib=ibin(i) ! the bin-index of keys(indx(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:187:22: 187 | inew(ni)=indx(i) ! the current value is put in the new order | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_integer.F90:194:2: 194 | deallocate(ibin,inew) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_IndexBin_logical.F90 m_IndexBin_logical.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:19:45: 19 | interface IndexBin; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:20:2: 20 | IndexBin0_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:63:2: 63 | allocate(inew(n),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:64:2: 64 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:65:2: 65 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:67:2: 67 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:68:2: 68 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:72:11: 72 | lc(0)=1 ! the location of values the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:78:17: 78 | lc(1)=ln(0)+1 ! the location of values not the same as key0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_IndexBin_logical.F90:102:2: 102 | deallocate(inew) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_mall.F90 m_mall.F90:17:15: 17 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:34:47: 34 | interface mall_mci; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:35:2: 35 | ciI0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:36:2: 36 | ciI1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:37:2: 37 | ciI2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:38:2: 38 | ciI3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:39:2: 39 | ciR0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:40:2: 40 | ciR1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:41:2: 41 | ciR2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:42:2: 42 | ciR3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:43:2: 43 | ciD0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:44:2: 44 | ciD1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:45:2: 45 | ciD2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:46:2: 46 | ciD3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:47:2: 47 | ciL0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:48:2: 48 | ciL1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:49:2: 49 | ciL2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:50:2: 50 | ciL3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:51:2: 51 | ciC0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:52:2: 52 | ciC1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:53:2: 53 | ciC2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:54:2: 54 | ciC3_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:57:47: 57 | interface mall_mco; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:58:2: 58 | coI0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:59:2: 59 | coI1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:60:2: 60 | coI2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:61:2: 61 | coI3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:62:2: 62 | coR0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:63:2: 63 | coR1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:64:2: 64 | coR2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:65:2: 65 | coR3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:66:2: 66 | coD0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:67:2: 67 | coD1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:68:2: 68 | coD2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:69:2: 69 | coD3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:70:2: 70 | coL0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:71:2: 71 | coL1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:72:2: 72 | coL2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:73:2: 73 | coL3_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:74:2: 74 | coC0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:75:2: 75 | coC1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:76:2: 76 | coC2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:77:2: 77 | coC3_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:101:31: 101 | integer, save :: nreset = 0 ! number of reset_() calls | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:102:38: 102 | logical, save :: started = .false. ! the module is in use | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:104:26: 104 | integer, save :: n_ =0 ! number of accouting bins. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:110:35: 110 | logical,save :: mall_on=.false. ! mall activity switch | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:113:39: 113 | integer,dimension(MXL),save :: mci_ ! maximum ci_() calls | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:115:39: 115 | integer,dimension(MXL),save :: nci_ ! net ci_() calls | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:117:39: 117 | integer,dimension(MXL),save :: hwm_ ! high-water-mark of allocate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:119:39: 119 | integer,dimension(MXL),save :: nwm_ ! net-water-mark of allocate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:741:38: 741 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1332:38: 1332 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1381:41: 1381 | write(stderr,'(2a,i4)') trim(thread), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1412:41: 1412 | write(stderr,'(2a,i4)') trim(thread), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1459:52: 1459 | write(lu,'(a,t39,4(2x,a))',iostat=ier) '[MALL]', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1490:55: 1490 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1491:2: 1491 | mci_(i),nci_(i),flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1490:55: 1490 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1491:2: 1491 | mci_(i),nci_(i),flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1490:55: 1490 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1491:2: 1491 | mci_(i),nci_(i),flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1490:55: 1490 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1491:2: 1491 | mci_(i),nci_(i),flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1490:55: 1490 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1491:2: 1491 | mci_(i),nci_(i),flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1504:53: 1504 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1505:2: 1505 | mci,nci,flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1504:53: 1504 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1505:2: 1505 | mci,nci,flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1504:53: 1504 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1505:2: 1505 | mci,nci,flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1504:53: 1504 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1505:2: 1505 | mci,nci,flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1504:53: 1504 | write(lu,'(a,2(2x,i6),a,2(2x,a6),a)') name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1505:2: 1505 | mci,nci,flag_ci,hwm_wd,nwm_wd,flag_wm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1509:50: 1509 | if(nreset /= 1) write(lu,'(2a,i3,a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_mall.F90:1094:25: 1094 | subroutine coL0_(marg,thread) | 1 Warning: Unused dummy argument ‘marg’ at (1) [-Wunused-dummy-argument] m_mall.F90:986:25: 986 | subroutine coD0_(marg,thread) | 1 Warning: Unused dummy argument ‘marg’ at (1) [-Wunused-dummy-argument] m_mall.F90:878:25: 878 | subroutine coR0_(marg,thread) | 1 Warning: Unused dummy argument ‘marg’ at (1) [-Wunused-dummy-argument] m_mall.F90:774:25: 774 | subroutine coI0_(marg,thread) | 1 Warning: Unused dummy argument ‘marg’ at (1) [-Wunused-dummy-argument] m_mall.F90:503:25: 503 | subroutine ciL0_(marg,thread) | 1 Warning: Unused dummy argument ‘marg’ at (1) [-Wunused-dummy-argument] m_mall.F90:395:25: 395 | subroutine ciD0_(marg,thread) | 1 Warning: Unused dummy argument ‘marg’ at (1) [-Wunused-dummy-argument] m_mall.F90:287:25: 287 | subroutine ciR0_(marg,thread) | 1 Warning: Unused dummy argument ‘marg’ at (1) [-Wunused-dummy-argument] m_mall.F90:183:25: 183 | subroutine ciI0_(marg,thread) | 1 Warning: Unused dummy argument ‘marg’ at (1) [-Wunused-dummy-argument] m_mall.F90:1365:0: 1365 | subroutine cix_(thread,stat,fnam,line) | Warning: ‘cix_’ defined but not used [-Wunused-function] m_mall.F90:1397:0: 1397 | subroutine cox_(thread,stat,fnam,line) | Warning: ‘cox_’ defined but not used [-Wunused-function] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_String.F90 m_String.F90:24:15: 24 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:28:24: 28 | public :: String ! The class data structure | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:39:24: 39 | public :: toChar | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:40:22: 40 | public :: char ! convert to a CHARACTER(*) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:43:22: 43 | public :: init ! set a CHARACTER(*) type to a String | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:46:23: 46 | public :: clean ! Deallocate memory occupied by a String | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:49:21: 49 | public :: len ! length of a String | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:52:23: 52 | public :: bcast ! Broadcast a String | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:60:37: 60 | interface char; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:61:2: 61 | str2ch0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:62:2: 62 | ch12ch0_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:65:39: 65 | interface toChar; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:66:2: 66 | str2ch0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:67:2: 67 | ch12ch0_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:70:44: 70 | interface String_init; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:71:2: 71 | initc_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:72:2: 72 | initc1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:73:2: 73 | inits_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:76:37: 76 | interface init; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:77:2: 77 | initc_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:78:2: 78 | initc1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:79:2: 79 | inits_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:89:42: 89 | interface String_mci; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:90:12: 90 | mci0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:91:12: 91 | mci1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:92:12: 92 | mci2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:96:42: 96 | interface String_mco; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:97:12: 97 | mco0_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:98:12: 98 | mco1_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:99:12: 99 | mco2_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:103:41: 103 | interface ptr_chars; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:240:2: 240 | if(mall_ison()) call mall_mci(str%c,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:291:2: 291 | if(mall_ison()) call mall_mci(str%c,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:339:2: 339 | allocate(oStr%c(ln),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:340:2: 340 | if(ier /= 0) call die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:342:2: 342 | if(mall_ison()) call mall_mci(oStr%c,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:383:2: 383 | if(mall_ison()) call mall_mco(str%c,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:475:2: 475 | if(mall_ison()) call mall_mci(Str%c,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_String.F90:478:17: 457 | call MPI_bcast(ln,1,MP_INTEGER,root,comm,ier) | 2 ...... 478 | call MPI_bcast(Str%c(1),ln,MP_CHARACTER,root,comm,ier) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (CHARACTER(1)/INTEGER(4)). m_String.F90:532:22: 532 | subroutine mco0_(marg,thread) | 1 Warning: Unused dummy argument ‘marg’ at (1) [-Wunused-dummy-argument] m_String.F90:498:22: 498 | subroutine mci0_(marg,thread) | 1 Warning: Unused dummy argument ‘marg’ at (1) [-Wunused-dummy-argument] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_List.F90 m_List.F90:57:15: 57 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:61:22: 61 | public :: List ! The class data structure | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:67:2: 67 | character(len=1),dimension(:),pointer :: bf | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:68:2: 68 | integer, dimension(:,:),pointer :: lc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:95:37: 95 | interface init ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:96:14: 96 | init_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:97:17: 97 | initStr_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:102:37: 102 | interface index; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:109:37: 109 | interface get ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:110:13: 110 | get_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:111:16: 111 | getall_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:203:30: 203 | type(List),intent(out) :: aList ! an indexed string values | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:224:24: 224 | if(ib==i) ib=i+1 ! moving ib up, starting from the next | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:227:2: 227 | ni=ni+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:228:2: 228 | id=1 ! mark a ':' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:230:14: 230 | ib=i+1 ! moving ib up, starting from the next | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:233:22: 233 | if(id==1) then ! count an earlier marked ':' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:234:2: 234 | id=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:235:2: 235 | le=le+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:249:2: 249 | if(mall_ison()) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:250:2: 250 | call mall_mci(aList%bf,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:251:2: 251 | call mall_mci(aList%lc,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:252:2: 252 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:266:24: 266 | if(ib==i) ib=i+1 ! moving ib up, starting from the next | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:269:2: 269 | ni=ni+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:270:2: 270 | aList%lc(0:1,ni)=(/lb,le/) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:271:2: 271 | id=1 ! mark a ':' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:274:14: 274 | ib=i+1 ! moving ib up, starting from the next | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:275:15: 275 | lb=le+2 ! skip to the next non-':' and non-',' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:278:22: 278 | if(id==1) then ! copy an earlier marked ':' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:279:2: 279 | id=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:280:2: 280 | le=le+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:320:31: 320 | type(String),intent(in) :: pstr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:324:30: 324 | type(List),intent(out) :: aList ! an indexed string values | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:374:44: 374 | type(String),dimension(:),intent(in) :: strs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:378:30: 378 | type(List),intent(out) :: aList ! an indexed string values | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:395:13: 395 | le=le+n-1 ! for n-1 ":"s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:397:2: 397 | allocate(ch1(le),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:398:2: 398 | if(ier/=0) call die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:414:2: 414 | deallocate(ch1,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:415:2: 415 | if(ier/=0) call die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:470:2: 470 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:472:2: 472 | if(ier /= 0) call warn(myname_,'deallocate(aList%...)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:601:44: 601 | type(List), intent(in) :: aList ! a List of names | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:602:43: 602 | character(len=*),intent(in) :: item ! a given item name | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:622:41: 622 | ITEM_COMPARE: do i=1,size(aList%lc,2) ! == nitem_(aList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:644:2: 644 | if(aList%bf(lb+j-1) == item(j:j)) then ! a match for this character | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:645:2: 645 | nMatch = nMatch + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:646:2: 646 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:647:2: 647 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:648:2: 648 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:657:2: 657 | index_ = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:658:2: 658 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:699:44: 699 | type(List), intent(in) :: aList ! a List of names | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:771:26: 771 | subroutine copy_(yL,xL) ! yL=xL | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:817:2: 817 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1225:2: 1225 | call get_(DummStr, n, yL) ! retrieve nth tag as a String | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1227:2: 1227 | if( indexStr_(xL, Dummstr) /= n ) then ! a discrepency spotted. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1228:2: 1228 | call String_clean(Dummstr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1229:2: 1229 | myIdentical = .FALSE. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1230:2: 1230 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1231:2: 1231 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1232:2: 1232 | call String_clean(Dummstr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1233:2: 1233 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1235:2: 1235 | myIdentical = .TRUE. ! we survived the whole test process. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1293:41: 1293 | type(List), intent(in) :: aList ! an indexed string values | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1409:41: 1409 | type(List), intent(in) :: aList ! an indexed string values | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1584:2: 1584 | call init_(oList,'') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1586:2: 1586 | if((nitem_(iList1) == 0) .and. (nitem_(iList2) > 0)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1587:2: 1587 | call copy_(oList, iList2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1588:2: 1588 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1589:2: 1589 | if((nitem_(iList1) > 0) .and. (nitem_(iList2) == 0)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1590:2: 1590 | call copy_(oList,iList1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1591:2: 1591 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1606:2: 1606 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1608:2: 1608 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1615:2: 1615 | CatBuff(i) = iList1%bf(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1621:2: 1621 | CatBuff(Length1 + 1 + i) = iList2%bf(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1638:2: 1638 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1640:2: 1640 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1727:2: 1727 | call die(myname_, 'Attempting to broadcast an empty list!',& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:1728:2: 1728 | CharBufferSize_(ioList)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_List.F90:409:15: 409 | ch1(lc:le)=ptr_chars(strs(i)) | 1 Warning: POINTER-valued function appears on right-hand side of assignment at (1) [-Wsurprising] m_List.F90:1945:15: 1927 | call MPI_RECV(length, 1, MP_type(length), source, TagBase, comm, & | 2 ...... 1945 | call MPI_RECV(DummStr%c(1), length, MP_CHARACTER, source, TagBase+1, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (CHARACTER(1)/INTEGER(4)). m_List.F90:1846:15: 1831 | call MPI_SEND(length, 1, MP_type(length), dest, TagBase, comm, ierr) | 2 ...... 1846 | call MPI_SEND(DummStr%c(1), length, MP_CHARACTER, dest, TagBase+1, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (CHARACTER(1)/INTEGER(4)). m_List.F90:983:0: 983 | end function CharBufferSize_ | Warning: ‘__result_charbuffersize_’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_List.F90:957:0: 957 | integer function CharBufferSize_(inList) | note: ‘__result_charbuffersize_’ was declared here /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_MergeSorts.F90 m_MergeSorts.F90:22:15: 22 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:29:2: 29 | module procedure setn_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:30:2: 30 | module procedure set_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:33:2: 33 | module procedure iSortn_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:34:2: 34 | module procedure rSortn_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:35:2: 35 | module procedure dSortn_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:36:2: 36 | module procedure cSortn_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:37:2: 37 | module procedure iSort_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:38:2: 38 | module procedure rSort_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:39:2: 39 | module procedure dSort_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:40:2: 40 | module procedure cSort_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:41:2: 41 | module procedure iSort1_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:42:2: 42 | module procedure rSort1_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:43:2: 43 | module procedure dSort1_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:44:2: 44 | module procedure cSort1_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:95:32: 95 | integer, intent(in) :: n ! size of indx(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:96:50: 96 | integer, dimension(n), intent(out) :: indx ! indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:119:50: 119 | integer, dimension(:), intent(out) :: indx ! indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:299:38: 299 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:416:38: 416 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:533:38: 533 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:649:38: 649 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:766:38: 766 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:884:38: 884 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:1002:38: 1002 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MergeSorts.F90:1119:38: 1119 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_Filename.F90 m_Filename.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Filename.F90:18:31: 18 | public :: Filename_base ! basename() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Filename.F90:19:30: 19 | public :: Filename_dir ! dirname() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Filename.F90:57:10: 57 | lb=l+1 ! correct either a '/' is in the string or not. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_FcComms.F90 m_FcComms.F90:30:15: 30 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_FcComms.F90:427:33: 427 | call mpi_irecv ( recvbuf(displs(q)+1), recvcnts(q), & | 1 ...... 570 | call mpi_irecv ( recvbuf(displs(q)+1), recvcnts(q), & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:430:32: 430 | call mpi_send ( signal, 1, recvtype, p, mtag, comm, ier ) | 1 ...... 573 | call mpi_send ( signal, 1, recvtype, p, mtag, comm, ier ) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:449:26: 449 | call mpi_recv ( signal, 1, sendtype, root, mtag, comm, & | 1 ...... 592 | call mpi_recv ( signal, 1, sendtype, root, mtag, comm, & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:451:27: 451 | call mpi_rsend ( sendbuf, sendcnt, sendtype, root, mtag, & | 1 ...... 594 | call mpi_rsend ( sendbuf, sendcnt, sendtype, root, mtag, & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:462:22: 462 | call mpi_gatherv (sendbuf, sendcnt, sendtype, & | 1 ...... 605 | call mpi_gatherv (sendbuf, sendcnt, sendtype, & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). m_FcComms.F90:178:21: 178 | call mpi_gather (sendbuf, sendcnt, sendtype, & | 1 ...... 320 | call mpi_gather (sendbuf, sendcnt, sendtype, & | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_Permuter.F90 m_Permuter.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:18:24: 18 | public :: permute | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:21:41: 21 | interface permute; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:22:2: 22 | permutei_, & ! integer in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:23:2: 23 | permuteio_, & ! integer with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:24:2: 24 | permutei1_, & ! integer in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:25:2: 25 | permuteio1_, & ! integer with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:26:2: 26 | permuter_, & ! real in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:27:2: 27 | permutero_, & ! real with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:28:2: 28 | permuter1_, & ! real in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:29:2: 29 | permutero1_, & ! real with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:30:2: 30 | permuted_, & ! dble in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:31:2: 31 | permutedo_, & ! dble with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:32:2: 32 | permuted1_, & ! dble in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:33:2: 33 | permutedo1_, & ! dble with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:34:2: 34 | permutel_, & ! logical in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:35:2: 35 | permutelo_, & ! logical with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:36:2: 36 | permutel1_, & ! logical in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:37:2: 37 | permutelo1_ ! logical with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:40:43: 40 | interface unpermute; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:41:2: 41 | unpermutei_, & ! integer in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:42:2: 42 | unpermuteio_, & ! integer with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:43:2: 43 | unpermutei1_, & ! integer in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:44:2: 44 | unpermuteio1_, & ! integer with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:45:2: 45 | unpermuter_, & ! real in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:46:2: 46 | unpermutero_, & ! real with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:47:2: 47 | unpermuter1_, & ! real in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:48:2: 48 | unpermutero1_, & ! real with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:49:2: 49 | unpermuted_, & ! dble in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:50:2: 50 | unpermutedo_, & ! dble with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:51:2: 51 | unpermuted1_, & ! dble in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:52:2: 52 | unpermutedo1_, & ! dble with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:53:2: 53 | unpermutel_, & ! logical in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:54:2: 54 | unpermutelo_, & ! logical with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:55:2: 55 | unpermutel1_, & ! logical in place | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:56:2: 56 | unpermutelo1_ ! logical with an output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:96:2: 96 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:105:2: 105 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:170:2: 170 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:179:2: 179 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:245:2: 245 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:254:2: 254 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:321:2: 321 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:330:2: 330 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:397:2: 397 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:406:2: 406 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:473:2: 473 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:482:2: 482 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:548:2: 548 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:557:2: 557 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:622:2: 622 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:631:2: 631 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:697:2: 697 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:706:2: 706 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:773:2: 773 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:782:2: 782 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:850:2: 850 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:859:2: 859 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:928:2: 928 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:937:2: 937 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1006:2: 1006 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1015:2: 1015 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1084:2: 1084 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1093:2: 1093 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1161:2: 1161 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1170:2: 1170 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1237:2: 1237 | if(ier/=0) call perr_die(myname_,'allocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Permuter.F90:1246:2: 1246 | if(ier/=0) call perr_die(myname_,'deallocate()',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_rankMerge.F90 m_rankMerge.F90:16:15: 16 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:18:25: 18 | public :: rankSet ! set inital ranks | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:19:27: 19 | public :: rankMerge ! merge two ranks | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:24:45: 24 | interface rankMerge; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:25:2: 25 | imerge_, & ! rank-merging two integer arrays | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:26:2: 26 | rmerge_, & ! rank-merging two real arrays | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:27:2: 27 | dmerge_, & ! rank-merging two dble arrays | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:28:2: 28 | uniq_ ! merging to rank arrays | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:31:52: 31 | interface IndexedRankMerge; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:32:2: 32 | iindexmerge_, & ! merging two index arrays of integers | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:33:2: 33 | rindexmerge_, & ! merging two index arrays of reals | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:34:2: 34 | dindexmerge_ ! merging two index arrays of dbles | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:85:53: 85 | integer,dimension(:),intent(in) :: value_j ! value of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:86:53: 86 | integer,dimension(:),intent(in) :: value_i ! value of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:88:53: 88 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:89:53: 89 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:115:11: 115 | krank=0 ! a preset rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:120:23: 120 | if(geti) then ! .eqv. j>nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:121:25: 121 | if(i>ni) exit ! i>ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:123:14: 123 | else ! .eqv. j<=nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:137:25: 137 | krank=krank+1 ! the next rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:165:54: 165 | real(SP),dimension(:),intent(in) :: value_i ! value of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:166:54: 166 | real(SP),dimension(:),intent(in) :: value_j ! value of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:168:53: 168 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:169:53: 169 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:195:11: 195 | krank=0 ! a preset rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:200:23: 200 | if(geti) then ! .eqv. j>nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:201:25: 201 | if(i>ni) exit ! i>ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:203:14: 203 | else ! .eqv. j<=nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:217:25: 217 | krank=krank+1 ! the next rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:245:54: 245 | real(DP),dimension(:),intent(in) :: value_i ! value of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:246:54: 246 | real(DP),dimension(:),intent(in) :: value_j ! value of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:248:53: 248 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:249:53: 249 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:275:11: 275 | krank=0 ! a preset rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:280:23: 280 | if(geti) then ! .eqv. j>nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:281:25: 281 | if(i>ni) exit ! i>ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:283:14: 283 | else ! .eqv. j<=nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:297:25: 297 | krank=krank+1 ! the next rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:325:52: 325 | integer,dimension(:),intent(in) :: indx_i ! of the i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:326:52: 326 | integer,dimension(:),intent(in) :: indx_j ! of the j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:327:51: 327 | integer,dimension(:),intent(in) :: value ! of the full | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:329:53: 329 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:330:53: 330 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:356:11: 356 | krank=0 ! a preset rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:361:23: 361 | if(geti) then ! .eqv. j>nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:362:25: 362 | if(i>ni) exit ! i>ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:363:2: 363 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:365:14: 365 | else ! .eqv. j<=nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:366:2: 366 | lj=indx_j(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:369:2: 369 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:381:25: 381 | krank=krank+1 ! the next rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:410:52: 410 | integer,dimension(:),intent(in) :: indx_i ! of the i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:411:52: 411 | integer,dimension(:),intent(in) :: indx_j ! of the j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:412:52: 412 | real(SP),dimension(:),intent(in) :: value ! of the full | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:414:53: 414 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:415:53: 415 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:441:11: 441 | krank=0 ! a preset rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:446:23: 446 | if(geti) then ! .eqv. j>nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:447:25: 447 | if(i>ni) exit ! i>ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:448:2: 448 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:450:14: 450 | else ! .eqv. j<=nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:451:2: 451 | lj=indx_j(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:454:2: 454 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:466:25: 466 | krank=krank+1 ! the next rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:494:52: 494 | integer,dimension(:),intent(in) :: indx_i ! of the i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:495:52: 495 | integer,dimension(:),intent(in) :: indx_j ! of the j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:496:52: 496 | real(DP),dimension(:),intent(in) :: value ! of the full | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:498:53: 498 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:499:53: 499 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:525:11: 525 | krank=0 ! a preset rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:530:23: 530 | if(geti) then ! .eqv. j>nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:531:25: 531 | if(i>ni) exit ! i>ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:532:2: 532 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:534:14: 534 | else ! .eqv. j<=nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:535:2: 535 | lj=indx_j(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:538:2: 538 | li=indx_i(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:550:25: 550 | krank=krank+1 ! the next rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:577:53: 577 | integer,dimension(:),intent(inout) :: krank_i ! rank of i-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:578:53: 578 | integer,dimension(:),intent(inout) :: krank_j ! rank of j-vec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:600:23: 600 | if(geti) then ! .eqv. j>nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:601:25: 601 | if(i>ni) exit ! i>ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:602:14: 602 | else ! .eqv. j<=nj | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:604:52: 604 | if(geti) geti = krank_i(i) <= krank_j(j) ! if(i<=ni) .. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:607:23: 607 | krank=krank+1 ! the next rank value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:609:2: 609 | if(geti) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:610:2: 610 | krank_i(i)=krank | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:611:2: 611 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:612:2: 612 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:613:2: 613 | krank_j(j)=krank | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:614:2: 614 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_rankMerge.F90:615:2: 615 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_SortingTools.F90 m_SortingTools.F90:34:24: 34 | use m_MergeSorts !only : IndexSet,IndexSort | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:35:30: 35 | use m_IndexBin_integer !only : IndexBin | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:36:27: 36 | use m_IndexBin_char !only : IndexBin | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:37:30: 37 | use m_IndexBin_logical !only : IndexBin | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:38:23: 38 | use m_rankMerge !only : RankSet,RankMerge,IndexedRankMerge | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:39:22: 39 | use m_Permuter !only : Permute, Unpermute | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:43:15: 43 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:45:26: 45 | public :: IndexSet ! define an initial list of indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:46:27: 46 | public :: IndexSort ! index for a new rank out of the old | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:47:26: 47 | public :: IndexBin ! index for sorting bins | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:48:25: 48 | public :: RankSet ! define an initial list of ranks | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SortingTools.F90:49:27: 49 | public :: RankMerge ! merge two arrays by re-ranking | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_StrTemplate.F90 m_StrTemplate.F90:36:15: 36 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:38:29: 38 | public :: StrTemplate ! Substitute variables in a template | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:41:2: 41 | module procedure strTemplate_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:57:56: 57 | character(len=3),parameter,dimension(12) :: mon_lc = (/ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:58:39: 58 | 'jan','feb','mar','apr','may','jun', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:59:38: 59 | 'jul','aug','sep','oct','nov','dec' /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:61:56: 61 | character(len=3),parameter,dimension(12) :: mon_wd = (/ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:62:39: 62 | 'Jan','Feb','Mar','Apr','May','Jun', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:63:38: 63 | 'Jul','Aug','Sep','Oct','Nov','Dec' /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:65:56: 65 | character(len=3),parameter,dimension(12) :: mon_uc = (/ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:66:39: 66 | 'JAN','FEB','MAR','APR','MAY','JUN', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:67:38: 67 | 'JUL','AUG','SEP','OCT','NOV','DEC' /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:86:43: 86 | character(len=*),intent(out) :: str ! the output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:88:44: 88 | character(len=*),intent(in ) :: tmpl ! a "format" | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:133:56: 133 | write(stderr,'(4a)') myname_,': unknown class: ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:134:2: 134 | trim(tmpl_class),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:133:56: 133 | write(stderr,'(4a)') myname_,': unknown class: ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:134:2: 134 | trim(tmpl_class),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:133:56: 133 | write(stderr,'(4a)') myname_,': unknown class: ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:134:2: 134 | trim(tmpl_class),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:133:56: 133 | write(stderr,'(4a)') myname_,': unknown class: ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:134:2: 134 | trim(tmpl_class),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:133:56: 133 | write(stderr,'(4a)') myname_,': unknown class: ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:134:2: 134 | trim(tmpl_class),'.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:189:2: 189 | if(nymd < 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:190:2: 190 | call perr(myname_,'nymd < 0',nymd) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:191:2: 191 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:192:2: 192 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:193:2: 193 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:194:2: 194 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:209:2: 209 | if(nhms < 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:210:2: 210 | call perr(myname_,'nhms < 0',nhms) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:211:2: 211 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:212:2: 212 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:213:2: 213 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:214:2: 214 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:223:26: 223 | ln_tmpl=len_trim(tmpl) ! size of the format template | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:224:20: 224 | ln_str =len(str) ! size of the output string | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:234:31: 234 | do while( i+istp <= ln_tmpl ) ! A loop over all tokens in (tmpl) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:236:21: 236 | if(k>ln_Str) exit ! truncate the output here. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:254:2: 254 | write(stderr,'(2a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:256:2: 256 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:257:2: 257 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:258:2: 258 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:271:13: 271 | k=k+1 ! kstp=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:286:2: 286 | write(stderr,'(2a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:288:2: 288 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:289:2: 289 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:290:2: 290 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:296:2: 296 | write(stderr,'(2a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:298:2: 298 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:299:2: 299 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:300:2: 300 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:306:39: 306 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:312:18: 312 | end select ! case(c1//c2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:313:16: 313 | end select ! case(c1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:321:2: 321 | write(sbuf,'(i2.2)') iy2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:322:2: 322 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:324:2: 324 | write(sbuf,'(i4.4)') iy4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:325:2: 325 | kstp=4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:327:2: 327 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:329:2: 329 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:330:2: 330 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:331:2: 331 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:337:2: 337 | if(imo < 10) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:338:2: 338 | write(sbuf,'(i1)') imo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:339:2: 339 | kstp=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:340:2: 340 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:341:2: 341 | write(sbuf,'(i2)') imo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:342:2: 342 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:343:2: 343 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:345:2: 345 | write(sbuf,'(i2.2)') imo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:346:2: 346 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:348:2: 348 | sbuf=mon_lc(imo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:349:2: 349 | kstp=3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:351:2: 351 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:353:2: 353 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:354:2: 354 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:355:2: 355 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:361:2: 361 | sbuf=mon_wd(imo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:362:2: 362 | kstp=3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:364:2: 364 | sbuf=mon_uc(imo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:365:2: 365 | kstp=3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:367:2: 367 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:369:2: 369 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:370:2: 370 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:371:2: 371 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:377:2: 377 | if(idy < 10) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:378:2: 378 | write(sbuf,'(i1)') idy | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:379:2: 379 | kstp=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:380:2: 380 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:381:2: 381 | write(sbuf,'(i2)') idy | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:382:2: 382 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:383:2: 383 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:385:2: 385 | write(sbuf,'(i2.2)') idy | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:386:2: 386 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:388:2: 388 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:390:2: 390 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:391:2: 391 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:392:2: 392 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:398:2: 398 | if(ihr < 10) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:399:2: 399 | write(sbuf,'(i1)') ihr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:400:2: 400 | kstp=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:401:2: 401 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:402:2: 402 | write(sbuf,'(i2)') ihr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:403:2: 403 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:404:2: 404 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:406:2: 406 | write(sbuf,'(i2.2)') ihr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:407:2: 407 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:409:2: 409 | write(sbuf,'(i3.3)') ihr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:410:2: 410 | kstp=3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:412:2: 412 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:414:2: 414 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:415:2: 415 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:416:2: 416 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:422:2: 422 | write(sbuf,'(i2.2)') imn | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:423:2: 423 | kstp=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:425:2: 425 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:427:2: 427 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:428:2: 428 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:429:2: 429 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:433:2: 433 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:435:2: 435 | if(.not.present(stat)) call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:436:2: 436 | stat=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:438:16: 438 | end select ! case(c1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_StrTemplate.F90:450:14: 450 | end select ! case(c0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_FileResolv.F90 m_FileResolv.F90:96:32: 96 | character(len=*), parameter :: myname = 'MCT(MPEU)::FileResolv' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_FileResolv.F90:195:2: 195 | else ! shut down | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_inpak90.F90 m_inpak90.F90:242:25: 242 | public :: I90_AtoF ! ASCII to float (function) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:243:25: 243 | public :: I90_AtoI ! ASCII to integer (function) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:246:25: 246 | public :: I90_GInt ! returns next integer number (function) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:252:2: 252 | fltgetsp, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:253:2: 253 | fltgetdp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:295:37: 295 | integer,parameter :: MALLSIZE_=10 ! just an estimation | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:404:39: 404 | if(i90_depth <= 0) nullify(i90_now) ! just an initialization | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:409:2: 409 | call perr(myname_,'(overflow)',i90_depth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:410:2: 410 | ier=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:411:2: 411 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:415:2: 415 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:416:2: 416 | call perr(myname_,'allocate(new)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:417:2: 417 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:418:2: 418 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:420:2: 420 | if(mall_ison()) call mall_ci(MALLSIZE_,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:423:2: 423 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:424:2: 424 | call perr(myname_,'allocate(new%..)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:425:2: 425 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:426:2: 426 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:428:2: 428 | if(mall_ison()) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:429:2: 429 | call mall_mci(new%buffer,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:430:2: 430 | call mall_mci(new%this_line,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:431:2: 431 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:464:2: 464 | call perr(myname_,'(underflow)',i90_depth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:465:2: 465 | ier=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:466:2: 466 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:471:2: 471 | if(mall_ison()) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:472:2: 472 | call mall_mco(i90_now%this_line,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:473:2: 473 | call mall_mco(i90_now%buffer,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:474:2: 474 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:477:2: 477 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:478:2: 478 | call perr(myname_,'deallocate(new%..)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:479:2: 479 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:480:2: 480 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:482:2: 482 | if(mall_ison()) call mall_co(MALLSIZE_,myname) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:485:2: 485 | if(ier /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:486:2: 486 | call perr(myname_,'deallocate(new)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:487:2: 487 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:488:2: 488 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:505:2: 505 | use m_die,only : perr,die | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:506:2: 506 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:507:2: 507 | integer,optional, intent(out) :: stat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:568:2: 568 | use m_ioutil, only : luavail,opntext,clstext | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:569:2: 569 | use m_die, only : perr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:632:2: 632 | call perr(myname_,'(overflow)',i90_depth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:633:2: 633 | iret=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:634:2: 634 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:641:22: 641 | lu = luavail() ! a more portable version | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:652:2: 652 | write(stderr,'(2a,i5)') myname_,': opntext() error, ios =',ios | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:663:23: 663 | call push_(ios) ! to create buffer space | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:665:2: 665 | write(stderr,'(2a,i5)') myname_,': push_() error, ios =',ios | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:704:2: 704 | call clstext(lu,ios) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:705:2: 705 | if(ios /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:706:2: 706 | iret=-99 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:707:2: 707 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:708:2: 708 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:778:2: 778 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:779:2: 779 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:780:2: 780 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:781:2: 781 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:897:2: 897 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:898:2: 898 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:899:2: 899 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:900:2: 900 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1008:2: 1008 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1009:2: 1009 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1010:2: 1010 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1011:2: 1011 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1021:51: 1021 | ie = min(index(i90_now%this_line,BLK), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1022:2: 1022 | index(i90_now%this_line,EOL)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1021:51: 1021 | ie = min(index(i90_now%this_line,BLK), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1022:2: 1022 | index(i90_now%this_line,EOL)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1021:51: 1021 | ie = min(index(i90_now%this_line,BLK), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1022:2: 1022 | index(i90_now%this_line,EOL)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1134:2: 1134 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1135:2: 1135 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1136:2: 1136 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1137:2: 1137 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1210:2: 1210 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1211:2: 1211 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1212:2: 1212 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1213:2: 1213 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1217:39: 1217 | read(token,*,iostat=ios) x ! Does it require an extension? | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1274:2: 1274 | if(i90_depth <= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1275:2: 1275 | iret = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1276:2: 1276 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1277:2: 1277 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1546:42: 1546 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1547:2: 1547 | string(i:i) .ne. '$' ) go to 11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1607:42: 1607 | if ( string(i:i) .ne. ' ' .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1608:2: 1608 | string(i:i) .ne. TAB ) go to 21 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1669:2: 1669 | write(stderr,'(2a)') 'i90/lablin: cannot find label ', label | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1939:17: 1939 | print *, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1949:17: 1949 | print *, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_inpak90.F90:1721:17: 1721 | fltgetsp = x | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_inpak90.F90:369:17: 362 | call MPI_Bcast(i90_now%buffer,NBUF_MAX,MP_CHARACTER,root,comm,ier) | 2 ...... 369 | call MPI_Bcast(i90_now%nbuf,1,MP_INTEGER,root,comm,ier) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/CHARACTER(*)). m_inpak90.F90:1947:32: 1947 | subroutine iunits ( mifans, moftrm, moferr, miftrm ) | 1 Warning: Unused dummy argument ‘mifans’ at (1) [-Wunused-dummy-argument] m_inpak90.F90:1947:56: 1947 | subroutine iunits ( mifans, moftrm, moferr, miftrm ) | 1 Warning: Unused dummy argument ‘miftrm’ at (1) [-Wunused-dummy-argument] m_inpak90.F90:1947:48: 1947 | subroutine iunits ( mifans, moftrm, moferr, miftrm ) | 1 Warning: Unused dummy argument ‘moferr’ at (1) [-Wunused-dummy-argument] m_inpak90.F90:1947:40: 1947 | subroutine iunits ( mifans, moftrm, moferr, miftrm ) | 1 Warning: Unused dummy argument ‘moftrm’ at (1) [-Wunused-dummy-argument] m_inpak90.F90:1882:0: 1882 | subroutine TokGet ( token, default ) | Warning: ‘tokget’ defined but not used [-Wunused-function] m_inpak90.F90:1938:0: 1938 | subroutine iniin() | Warning: ‘iniin’ defined but not used [-Wunused-function] m_inpak90.F90:1947:0: 1947 | subroutine iunits ( mifans, moftrm, moferr, miftrm ) | Warning: ‘iunits’ defined but not used [-Wunused-function] m_inpak90.F90:1276:0: 1276 | return | Warning: ‘__result_i90_gint’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_inpak90.F90:1212:0: 1212 | return | Warning: ‘__result_i90_gfloat’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_TraceBack.F90 m_TraceBack.F90:35:2: 35 | GenTraceBackString1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_TraceBack.F90:36:2: 36 | GenTraceBackString2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -I. -I../ -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch m_zeit.F90 m_zeit.F90:17:15: 17 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:19:25: 19 | public :: zeit_ci ! push a new name to the timer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:20:25: 20 | public :: zeit_co ! pop the current name on the timer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:21:28: 21 | public :: zeit_flush ! print per PE timing | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:22:31: 22 | public :: zeit_allflush ! print all PE timing | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:23:28: 23 | public :: zeit_reset ! reset the timers to its initial state | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:27:25: 27 | public :: MWTIME ! MPI_Wtime() wall-clock time | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:28:25: 28 | public :: XWTIME ! times() wall-clock time | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:29:25: 29 | public :: PUTIME ! times() process user time | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:30:25: 30 | public :: PSTIME ! times() process system time | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:31:25: 31 | public :: CUTIME ! times() user time of all child-processes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:32:25: 32 | public :: CSTIME ! times() system time of all child-processes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:33:25: 33 | public :: ALLTIME ! all of above | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:166:61: 166 | integer,parameter :: ALLTIME = MWTIME + XWTIME + PUTIME + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:167:2: 167 | PSTIME + CUTIME + CSTIME | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:166:61: 166 | integer,parameter :: ALLTIME = MWTIME + XWTIME + PUTIME + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:167:2: 167 | PSTIME + CUTIME + CSTIME | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:166:61: 166 | integer,parameter :: ALLTIME = MWTIME + XWTIME + PUTIME + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:167:2: 167 | PSTIME + CUTIME + CSTIME | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:170:37: 170 | integer,parameter :: MASKS(0:5) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:171:2: 171 | (/ MWTIME,XWTIME,PUTIME,PSTIME,CUTIME,CSTIME /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:170:37: 170 | integer,parameter :: MASKS(0:5) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:171:2: 171 | (/ MWTIME,XWTIME,PUTIME,PSTIME,CUTIME,CSTIME /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:170:37: 170 | integer,parameter :: MASKS(0:5) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:171:2: 171 | (/ MWTIME,XWTIME,PUTIME,PSTIME,CUTIME,CSTIME /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:170:37: 170 | integer,parameter :: MASKS(0:5) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:171:2: 171 | (/ MWTIME,XWTIME,PUTIME,PSTIME,CUTIME,CSTIME /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:174:47: 174 | character(len=8),parameter :: HEADER(0:5) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:175:8: 175 | (/ '[MWTIME]','[XWTIME]','[PUTIME]', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:176:35: 176 | '[PSTIME]','[CUTIME]','[CSTIME]' /) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:179:33: 179 | integer,parameter :: MXN= 250 ! the size of a name list | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:182:32: 182 | integer,parameter :: NSZ= 36 ! the size of a name | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:183:32: 183 | integer,parameter :: MXS= 64 ! the depth of the timer stack | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:189:23: 189 | character(len=NSZ), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:190:2: 190 | save :: ciname=' ' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:191:23: 191 | character(len=NSZ), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:192:2: 192 | save :: coname=' ' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:194:27: 194 | integer,save :: mxdep=0 ! the maximum ndep value recorded | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:195:27: 195 | integer,save :: ndep=-1 ! depth, number of net ci_() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:196:32: 196 | integer,save :: lnk_n(0:MXS) ! name index of the depth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:198:16: 198 | integer,save :: nname=-1 ! number of accounts | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:199:23: 199 | character(len=NSZ), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:200:2: 200 | save,dimension(0:MXN) :: name_l ! the accounts | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:201:33: 201 | integer,save,dimension(0:MXN) :: knt_l ! counts of ci_() calls | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:202:44: 202 | integer,save,dimension(0:MXN) :: level_l ! remaining ci_() counts | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:204:30: 204 | real*8,save,dimension(0:5) :: zts_sv ! the last timings | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:206:46: 206 | real*8,save,dimension(0:5,0:MXN) :: zts_l ! credited to a name | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:207:46: 207 | real*8,save,dimension(0:5,0:MXN) :: szts_l ! all under the name | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:208:47: 208 | real*8,save,dimension(0:5,0:MXN) :: szts_sv ! the last ci_ timings | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:246:38: 246 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:271:22: 271 | zts_sv(i)=zts(i) ! update the record | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:328:44: 328 | character(len=*), intent(in) :: name ! account name | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:352:38: 352 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:370:35: 370 | level_l(lname)=level_l(lname)-1 ! close a level | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:373:30: 373 | tms0=zts(i)- zts_sv(i) ! NET by the _account_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:374:36: 374 | tms1=zts(i)-szts_sv(i,lname) ! within its SCOPE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:378:31: 378 | if(level_l(lname) == 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:395:23: 395 | tms(i,1)=tms1 ! only the sub-segments | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:503:26: 503 | found = nname >= MXN ! Can not handle too many accounts? | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:504:13: 504 | ith=MXN ! Then use the account for ".foo." | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:506:25: 506 | if(.not.found) then ! Otherwise, add a new account. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:517:2: 517 | szts_l(i,ith)=0. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:545:32: 545 | integer,intent(in) :: lu ! logical unit for the output | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:571:47: 571 | if(.not.balanced) write(lu,'(5a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:584:35: 584 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:625:32: 625 | real*8,parameter :: res=.001 ! (sec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:647:43: 647 | write(lu,'(a,t14,a,t21,a,t31,a,t52,a)') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:648:37: 648 | HEADER(itm), 'counts','period', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:649:28: 649 | 'NET m:s %', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:688:2: 688 | write(num,'(i4)') mxdep | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:690:2: 690 | write(lu,'(2(a,i3),2a,t26,2(1x,f8.2,1x,i4.2,a,i2.2,1x,f6.2,a))')& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:691:2: 691 | name(1:ln),nreset,'s',ndep,'/',num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:2: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:691:40: 691 | name(1:ln),nreset,'s',ndep,'/',num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:2: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:691:40: 691 | name(1:ln),nreset,'s',ndep,'/',num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:2: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:691:40: 691 | name(1:ln),nreset,'s',ndep,'/',num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:2: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:691:40: 691 | name(1:ln),nreset,'s',ndep,'/',num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:2: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:693:2: 693 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:41: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:693:2: 693 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:41: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:693:2: 693 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:41: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:693:2: 693 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:692:41: 692 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:693:2: 693 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:702:2: 702 | name(1:ln),knt_l(l),zt_percall, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:2: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:702:36: 702 | name(1:ln),knt_l(l),zt_percall, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:2: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:702:36: 702 | name(1:ln),knt_l(l),zt_percall, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:2: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:702:36: 702 | name(1:ln),knt_l(l),zt_percall, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:2: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:702:36: 702 | name(1:ln),knt_l(l),zt_percall, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:2: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:704:2: 704 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:41: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:704:2: 704 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:41: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:704:2: 704 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:41: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:704:2: 704 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:703:41: 703 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:704:2: 704 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:710:2: 710 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:711:2: 711 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:710:41: 710 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:711:2: 711 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:710:41: 710 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:711:2: 711 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:710:41: 710 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:711:2: 711 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:710:41: 710 | zt,zt_min,':',zt_sec,zt_percent,tag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:711:2: 711 | sz,sz_min,':',sz_sec,sz_percent,tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:751:25: 751 | real*8,dimension(0:5) :: zts | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:783:2: 783 | ztbf(i,0,l)=ztbf(i,0,l) + zts(i) - zts_sv(i ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:784:2: 784 | ztbf(i,1,l)=ztbf(i,1,l) + zts(i) -szts_sv(i,l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:792:38: 792 | write(stderr,'(2a,i3)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:805:2: 805 | ztbf,nbf,mp_Type_ztbf,root,comm,ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:807:40: 807 | write(stderr,'(2a,i3)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:816:40: 816 | write(stderr,'(2a,i3)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:823:40: 823 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:829:2: 829 | ztmp,nbf,mp_Type_ztbf,root,comm,ier ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:831:40: 831 | write(stderr,'(2a,i3)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:847:37: 847 | if(iand(MASKS(i),imask) /= 0) & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:848:2: 848 | call mp_balances_(lu,i,nPE,ztmp,indx_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:856:40: 856 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:920:32: 920 | real*8,parameter :: res=.001 ! (sec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:939:32: 939 | write(lu,'(3a,t18,a,t58,a)') & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:940:35: 940 | HEADER(itm),'x',adjustl(num), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:941:43: 941 | 'NET avg max imx x% r% i%', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:964:33: 964 | zts_o=zts_o+ztmp(itm,0,l,k) ! compute sum() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:965:33: 965 | zts_s=zts_s+ztmp(itm,1,l,k) ! compute sum() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:972:26: 972 | zta_o=zts_o/max(1,nPE) ! compute mean() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:973:26: 973 | zta_s=zts_s/max(1,nPE) ! compute mean() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:998:2: 998 | name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:2: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:998:14: 998 | name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:2: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:998:14: 998 | name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:2: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:998:14: 998 | name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:2: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:998:14: 998 | name(1:ln), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:2: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:1000:2: 1000 | zta_s,ztm_s,ix_s,x_s,r_s,i_s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:32: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:1000:2: 1000 | zta_s,ztm_s,ix_s,x_s,r_s,i_s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:32: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:1000:2: 1000 | zta_s,ztm_s,ix_s,x_s,r_s,i_s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:32: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:1000:2: 1000 | zta_s,ztm_s,ix_s,x_s,r_s,i_s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:999:32: 999 | zta_o,ztm_o,ix_o,x_o,r_o,i_o, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_zeit.F90:1000:2: 1000 | zta_s,ztm_s,ix_s,x_s,r_s,i_s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] rm -f libmpeu.a ar cq libmpeu.a get_zeits.o m_IndexBin_char.o m_IndexBin_integer.o m_IndexBin_logical.o m_List.o m_MergeSorts.o m_Filename.o m_FcComms.o m_Permuter.o m_SortingTools.o m_String.o m_StrTemplate.o m_chars.o m_die.o m_dropdead.o m_FileResolv.o m_flow.o m_inpak90.o m_ioutil.o m_mall.o m_mpif.o m_mpif90.o m_mpout.o m_rankMerge.o m_realkinds.o m_stdio.o m_TraceBack.o m_zeit.o make[5]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu' make[5]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mct' /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_MCTWorld.F90 m_MCTWorld.F90:35:25: 35 | integer :: ncomps ! Total number of components | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:38:49: 38 | integer,dimension(:),pointer :: nprocspid ! Number of processes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:184:27: 184 | integer, intent(in) :: ncomps ! number of components | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:185:27: 185 | integer, intent(in) :: globalcomm ! global communicator | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:250:2: 250 | globalcomm, reqs(i), ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:404:27: 404 | integer, intent(in) :: ncomps ! number of components | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:405:27: 405 | integer, intent(in) :: globalcomm ! global communicator | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:406:27: 406 | integer, intent(in) :: mycomm ! my communicator | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:712:27: 712 | integer, intent(in) :: comp_rank ! process rank on the communicator | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:714:27: 714 | integer, intent(in) :: comp_id ! component id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:753:2: 753 | comp_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:770:2: 770 | comp_rank, "on component ",comp_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:812:27: 812 | integer, intent(in) :: comp_id ! component id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:831:2: 831 | world_comp_root | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MCTWorld.F90:323:22: 263 | call MPI_SEND(mysize,1,MP_INTEGER,0,myids(i),globalcomm,ier) | 2 ...... 323 | call MPI_SEND(Gprocids,mysize,MP_INTEGER,0,myids(i),globalcomm,ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_MCTWorld.F90:503:38: 503 | integer :: ier,Gsize,myGid,MCTcomm,i,j | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] m_MCTWorld.F90:503:40: 503 | integer :: ier,Gsize,myGid,MCTcomm,i,j | 1 Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable] m_MCTWorld.F90:195:45: 195 | integer :: ier,myGid,myLid,i,mysize,Gsize,j | 1 Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable] m_MCTWorld.F90:271:0: 271 | call MPI_WAITALL(size(reqs), reqs, status, ier) | Warning: ‘reqs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_MCTWorld.F90:370:0: 370 | deallocate(compids,reqs,status,nprocs,tmparray,stat=ier) | Warning: ‘tmparray.data’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_MCTWorld.F90:202:45: 202 | integer, dimension(:,:),pointer :: tmparray | ^ Warning: ‘tmparray.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_MCTWorld.F90:344:0: 344 | root_idGprocid = transpose(tmparray) | Warning: ‘tmparray.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_MCTWorld.F90:202:45: 202 | integer, dimension(:,:),pointer :: tmparray | ^ Warning: ‘tmparray.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_MCTWorld.F90:202:45: Warning: ‘tmparray.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_AttrVect.F90 m_AttrVect.F90:77:15: 77 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:117:22: 117 | public :: init ! create a local vector | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:118:23: 118 | public :: clean ! clean the local vector | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:119:22: 119 | public :: zero ! zero the local vector | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:120:23: 120 | public :: lsize ! size of the local vector | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:121:24: 121 | public :: nIAttr ! number of integer attributes on local | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:122:24: 122 | public :: nRAttr ! number of real attributes on local | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:123:25: 123 | public :: indexIA ! index the integer attributes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:124:25: 124 | public :: indexRA ! index the real attributes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:137:22: 137 | public :: Copy ! copy attributes from one Av to another | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:138:23: 138 | public :: RCopy ! copy real attributes from one Av to another | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:139:23: 139 | public :: ICopy ! copy integer attributes from one Av to another | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:153:41: 153 | interface init ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:324:2: 324 | call init(aV%rList,rList) ! init.List() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:330:2: 330 | call init(aV%iList,iList) ! init.List() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:334:23: 334 | nIA=nitem(aV%iList) ! nitem.List() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:335:23: 335 | nRA=nitem(aV%rList) ! nitem.List() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:340:46: 340 | allocate( aV%iAttr(nIA,n),aV%rAttr(nRA,n), stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:614:2: 614 | call List_clean(aV%iList,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:615:2: 615 | if(ier/=0) stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:617:2: 617 | call List_clean(aV%iList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:627:2: 627 | call List_clean(aV%rList,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:628:2: 628 | if(ier/=0) stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:630:2: 630 | call List_clean(aV%rList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:646:2: 646 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:647:2: 647 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:648:2: 648 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:649:2: 649 | call warn(myname_,'deallocate(aV%iAttr)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:650:2: 650 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:666:2: 666 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:667:2: 667 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:668:2: 668 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:669:2: 669 | call warn(myname_,'deallocate(aV%rAttr)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:670:2: 670 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:750:2: 750 | call die(myname_,'attribute array length mismatch', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:751:2: 751 | iLength-rLength) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:755:2: 755 | lsize_ = rLength | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:759:2: 759 | lsize_ = iLength | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:790:21: 790 | use m_die,only : die | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:791:23: 791 | use m_stdio,only : stderr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1097:2: 1097 | call GenTraceBackString(myTrace, perrWith, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1099:2: 1099 | call GenTraceBackString(myTrace, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1116:2: 1116 | write(stderr,'(5a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1119:2: 1119 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1204:2: 1204 | call GenTraceBackString(myTrace, perrWith, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1206:2: 1206 | call GenTraceBackString(myTrace, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1218:2: 1218 | write(stderr,'(5a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1223:2: 1223 | write(stderr,'(5a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1226:2: 1226 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1491:2: 1491 | status = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1493:2: 1493 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1560:2: 1560 | status = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1562:2: 1562 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1818:2: 1818 | call GenTraceBackString(myTrace, perrWith, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1820:2: 1820 | call GenTraceBackString(myTrace, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1836:2: 1836 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1840:2: 1840 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1841:2: 1841 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1846:2: 1846 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1848:2: 1848 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1849:2: 1849 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1962:2: 1962 | call GenTraceBackString(myTrace, perrWith, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1964:2: 1964 | call GenTraceBackString(myTrace, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1980:2: 1980 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1984:2: 1984 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1985:2: 1985 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1990:2: 1990 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1992:2: 1992 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:1993:2: 1993 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2069:2: 2069 | call GenTraceBackString(myTrace, perrWith, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2071:2: 2071 | call GenTraceBackString(myTrace, myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2087:2: 2087 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2091:2: 2091 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2092:2: 2092 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2097:2: 2097 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2099:2: 2099 | write(stderr,'(2a)') 'Traceback: ',String_ToChar(myTrace) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2100:2: 2100 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2178:2: 2178 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2182:2: 2182 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2187:2: 2187 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2191:2: 2191 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2266:2: 2266 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2270:2: 2270 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2275:2: 2275 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2279:2: 2279 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2347:2: 2347 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2351:2: 2351 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2356:2: 2356 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2360:2: 2360 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2679:2: 2679 | do j=1,aVsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2680:2: 2680 | aVout%rAttr(outxmin+i,j) = aVin%rAttr(inxmin+i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2681:2: 2681 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2682:2: 2682 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2689:2: 2689 | do i=1,num_indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2690:2: 2690 | aVout%rAttr(outxmin+i,j) = aVin%rAttr(inxmin+i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2691:2: 2691 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2692:2: 2692 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3019:5: 3019 | aVout%iAttr(outxmin+i,j) = aVin%iAttr(inxmin+i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3029:5: 3029 | aVout%iAttr(outxmin+i,j) = aVin%iAttr(inxmin+i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3174:2: 3174 | TrListIsPresent = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3175:2: 3175 | if(present(TrList)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3176:2: 3176 | if(len_trim(TrList) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3177:2: 3177 | TrListIsPresent = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3178:2: 3178 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3179:2: 3179 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3186:2: 3186 | if(TrListIsPresent) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3187:2: 3187 | call RCopyL_(aVin,aVout,rList,TrList,vector=usevector) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3188:2: 3188 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3189:2: 3189 | call RCopyL_(aVin,aVout,rList,vector=usevector) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3190:2: 3190 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3198:2: 3198 | TiListIsPresent = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3199:2: 3199 | if(present(TiList)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3200:2: 3200 | if(len_trim(TiList) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3201:2: 3201 | TiListIsPresent = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3202:2: 3202 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3203:2: 3203 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3210:2: 3210 | if(TiListIsPresent) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3211:2: 3211 | call ICopyL_(aVin,aVout,iList,TiList,vector=usevector) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3212:2: 3212 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3213:2: 3213 | call ICopyL_(aVin,aVout,iList,vector=usevector) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3214:2: 3214 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3364:2: 3364 | rIndex(n) = List_index(aV%rList, String_tochar(key)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3366:2: 3366 | rIndex(n) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3369:2: 3369 | iIndex(n) = List_index(aV%iList, String_tochar(key)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3371:2: 3371 | iIndex(n) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3381:2: 3381 | if(.not.present(dieWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3382:2: 3382 | if(present(perrWith)) write(stderr,'(4a)') myname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3385:2: 3385 | call die(myname_,":: both iIndex(n) and rIndex(n) > 0.") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3386:2: 3386 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3387:2: 3387 | if(present(perrWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3388:2: 3388 | write(stderr,'(4a)') myname_,":: ", perrWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3391:2: 3391 | call die(myname_,dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3392:2: 3392 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3401:2: 3401 | if(.not.present(dieWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3402:2: 3402 | if(present(perrWith)) write(stderr,'(4a)') myname,":: ", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3403:2: 3403 | perrWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3405:2: 3405 | call die(myname_,":: both iIndex(n) and rIndex(n) <= 0.") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3406:2: 3406 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3407:2: 3407 | if(present(perrWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3408:2: 3408 | write(stderr,'(4a)') myname_,":: ", perrWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3411:2: 3411 | call die(myname_,dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3412:2: 3412 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3451:2: 3451 | if(present(descend)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3452:2: 3452 | call IndexSort(length, perm, aV%iAttr(iIndex(n),:), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3453:2: 3453 | descend_copy(n)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3454:2: 3454 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3455:5: 3455 | call IndexSort(length, perm, aV%iAttr(iIndex(n),:), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3456:17: 3456 | descend=.false.) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3457:2: 3457 | endif ! if(present(descend)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3459:2: 3459 | if(rIndex(n) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3460:2: 3460 | if(present(descend)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3461:2: 3461 | call IndexSort(length, perm, aV%rAttr(rIndex(n),:), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3462:2: 3462 | descend_copy(n)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3463:2: 3463 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3464:2: 3464 | call IndexSort(length, perm, aV%rAttr(rIndex(n),:), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3465:17: 3465 | descend=.false.) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3466:2: 3466 | endif ! if(present(descend)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3467:2: 3467 | endif ! if (rIndex(n) > 0)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3534:2: 3534 | if(present(perrWith)) write(stderr,'(4a,i8,a,i8)') myname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3538:2: 3538 | write(stderr,'(4a,i8,a,i8)') myname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3539:34: 3539 | ":: size mismatch, ", dieWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3541:2: 3541 | call die(dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3549:2: 3549 | do i=1,nIAttr_(aV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3550:2: 3550 | call Permute(aV%iAttr(i,:),perm,lsize_(aV)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3551:2: 3551 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3556:2: 3556 | do i=1,nRAttr_(aV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3557:2: 3557 | call Permute(aV%rAttr(i,:),perm,lsize_(aV)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3558:2: 3558 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3619:2: 3619 | if(present(perrWith)) write(stderr,'(4a,i8,a,i8)') myname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3623:2: 3623 | write(stderr,'(4a,i8,a,i8)') myname, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3624:34: 3624 | ":: size mismatch, ", dieWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3626:2: 3626 | call die(dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3634:2: 3634 | do i=1,nIAttr_(aV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3635:2: 3635 | call Unpermute(aV%iAttr(i,:),perm,lsize_(aV)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3636:2: 3636 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3641:2: 3641 | do i=1,nRAttr_(aV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3642:2: 3642 | call Unpermute(aV%rAttr(i,:),perm,lsize_(aV)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3643:2: 3643 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:3705:2: 3705 | dieWith=dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVect.F90:2001:18: 2001 | outVect(n) = aV%rAttr(index,n) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_AttrVect.F90:3153:47: 3153 | integer, dimension(:), pointer :: aVinindices, aVoutindices | 1 Warning: Unused variable ‘avinindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3153:61: 3153 | integer, dimension(:), pointer :: aVinindices, aVoutindices | 1 Warning: Unused variable ‘avoutindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3148:23: 3148 | logical :: contiguous ! true if index segments are contiguous in memory | 1 Warning: Unused variable ‘contiguous’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3150:26: 3150 | character*7 :: data_flag ! character variable used as data type flag | 1 Warning: Unused variable ‘data_flag’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3142:14: 3142 | integer :: i,j,ier ! dummy variables | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3142:20: 3142 | integer :: i,j,ier ! dummy variables | 1 Warning: Unused variable ‘ier’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3146:33: 3146 | integer :: inxmin, outxmin, inx, outx ! Index variables | 1 Warning: Unused variable ‘inx’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3146:19: 3146 | integer :: inxmin, outxmin, inx, outx ! Index variables | 1 Warning: Unused variable ‘inxmin’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3142:16: 3142 | integer :: i,j,ier ! dummy variables | 1 Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3143:24: 3143 | integer :: num_indices ! Overlapping attribute index number | 1 Warning: Unused variable ‘num_indices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3145:26: 3145 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable ‘num_inindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3145:42: 3145 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable ‘num_outindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3146:39: 3146 | integer :: inxmin, outxmin, inx, outx ! Index variables | 1 Warning: Unused variable ‘outx’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3146:28: 3146 | integer :: inxmin, outxmin, inx, outx ! Index variables | 1 Warning: Unused variable ‘outxmin’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2942:26: 2942 | character*7 :: data_flag ! character variable used as data type flag | 1 Warning: Unused variable ‘data_flag’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2937:26: 2937 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable ‘num_inindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2937:42: 2937 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable ‘num_outindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2774:26: 2774 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable ‘num_inindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2774:42: 2774 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable ‘num_outindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2604:26: 2604 | character*7 :: data_flag ! character variable used as data type flag | 1 Warning: Unused variable ‘data_flag’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2599:26: 2599 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable ‘num_inindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2599:42: 2599 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable ‘num_outindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2433:26: 2433 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable ‘num_inindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2433:42: 2433 | integer :: num_inindices, num_outindices ! Number of matching indices in aV | 1 Warning: Unused variable ‘num_outindices’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2333:32: 2333 | integer :: index, aVsize, ierr, n, mysize | 1 Warning: Unused variable ‘ierr’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2252:32: 2252 | integer :: index, aVsize, ierr, n, mysize | 1 Warning: Unused variable ‘ierr’ declared at (1) [-Wunused-variable] m_AttrVect.F90:2164:32: 2164 | integer :: index, aVsize, ierr, n, mysize | 1 Warning: Unused variable ‘ierr’ declared at (1) [-Wunused-variable] m_AttrVect.F90:3344:0: 3344 | iIndex = 0 | Warning: ‘iindex.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_GlobalMap.F90 m_GlobalMap.F90:59:15: 59 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:63:27: 63 | public :: GlobalMap ! The class data structure | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:67:24: 67 | integer :: gsize ! the Global size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:68:24: 68 | integer :: lsize ! my local size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:69:46: 69 | integer,dimension(:),pointer :: counts ! all local sizes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:70:46: 70 | integer,dimension(:),pointer :: displs ! PE ordered locations | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:86:39: 86 | interface init ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:87:16: 87 | initd_, & ! initialize from all PEs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:88:15: 88 | initr_ ! initialize from the root | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:183:32: 183 | GMap%lsize=GMap%counts(myID) ! the local size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:184:16: 184 | GMap%gsize=l ! the global size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:255:45: 255 | write(stderr,'(2a,2(a,i4))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:256:29: 256 | ': _root_ argument error', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:257:29: 257 | ', size(lns) =',size(lns), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:276:32: 276 | GMap%lsize=GMap%counts(myID) ! the local size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:277:16: 277 | GMap%gsize=l ! the global size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:379:45: 379 | write(stderr,'(2a,2(a,i4))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:380:29: 380 | ': _root_ argument error', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:402:24: 402 | GMap%gsize = l ! the global size | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:579:11: 579 | rank=-1 ! if nowhere fits | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalMap.F90:389:17: 362 | call MPI_bcast(nPEs, 1, MP_INTEGER, my_root, my_comm, ier) | 2 ...... 389 | call MPI_bcast(GMap%counts, nPEs, MP_INTEGER, my_root, my_comm, ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalMap.F90:265:17: 265 | call MPI_bcast(GMap%counts, nPEs, MP_INTEGER, root, comm, ier) | 1 ...... 362 | call MPI_bcast(nPEs, 1, MP_INTEGER, my_root, my_comm, ier) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_GlobalSegMap.F90 m_GlobalSegMap.F90:34:15: 34 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:79:26: 79 | integer :: comp_id ! Component ID number | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:80:24: 80 | integer :: ngseg ! No. of Global segments | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:81:24: 81 | integer :: gsize ! No. of Global elements | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:82:45: 82 | integer,dimension(:),pointer :: start ! global seg. start index | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:83:46: 83 | integer,dimension(:),pointer :: length ! segment lengths | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:84:46: 84 | integer,dimension(:),pointer :: pe_loc ! PE locations | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:87:39: 87 | interface init ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:88:17: 88 | initd_, & ! initialize from all PEs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:90:17: 90 | initp_, & ! initialize in parallel from replicated arrays | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:116:2: 116 | rank1_ , & ! single rank case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:117:2: 117 | rankm_ ! degenerate (multiple) ranks for halo case | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:121:2: 121 | PermuteInPlace_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:124:2: 124 | SortPermuteInPlace_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:257:2: 257 | ier = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:258:2: 258 | call die(myname_,'pe_loc/start array size mismatch',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:294:2: 294 | call die(myname_, 'allocate(counts,...',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:299:2: 299 | call die(myname_, 'allocate(counts,...',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:315:2: 315 | ngseg = ngseg + counts(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:317:2: 317 | displs(i) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:318:2: 318 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:319:2: 319 | displs(i) = displs(i-1) + counts(i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:320:2: 320 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:340:2: 340 | root_pe_loc(ngseg), stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:342:2: 342 | call die(myname_, 'allocate(root_start...',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:348:2: 348 | root_pe_loc(1), stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:350:2: 350 | call die(myname_, 'allocate((non)root_start...',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:492:45: 492 | write(stderr,'(2a,2(a,i4))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:493:29: 493 | ': _root_ argument error', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:494:33: 494 | ', size(start) =',size(start), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:499:45: 499 | write(stderr,'(2a,2(a,i4))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:500:29: 500 | ': _root_ argument error', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:501:35: 501 | ', size(length) =',size(length), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:506:45: 506 | write(stderr,'(2a,2(a,i4))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:507:29: 507 | ': _root_ argument error', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:508:35: 508 | ', size(pe_loc) =',size(pe_loc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:576:2: 576 | GSMap%gsize = gsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:583:2: 583 | GSMap%gsize = GSMap%gsize + GSMap%length(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:985:2: 985 | write(6,*) rank,'init_index: SIZE ',nseg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:987:2: 987 | do n=1,nseg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:989:2: 989 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:998:4: 998 | comp_id) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1146:2: 1146 | nlocseg = nlocseg + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1420:2: 1420 | pe_storage = pe_storage + GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1455:46: 1455 | integer, intent(in) :: PEno ! input process number | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1559:2: 1559 | local_size = local_size + GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1589:46: 1589 | integer, intent(in) :: i_g ! a global index | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1603:10: 1603 | rank=-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1643:46: 1643 | integer, intent(in) :: i_g ! a global index | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1683:16: 1683 | rank = -1 ! null value | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1697:2: 1697 | ilc = GSMap%start(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1698:2: 1698 | ile = ilc + GSMap%length(i) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1702:2: 1702 | if(ilc <= i_g .and. i_g <= ile) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1703:2: 1703 | n = n + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1704:2: 1704 | rank(n) = GSMap%pe_loc(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1705:2: 1705 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1791:2: 1791 | new = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1796:2: 1796 | do i=1, count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1797:2: 1797 | if(GSMap%pe_loc(n) == temp_list(i)) new = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1798:2: 1798 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1803:2: 1803 | if(new) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1804:2: 1804 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1805:2: 1805 | temp_list(count) = GSMap%pe_loc(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1806:2: 1806 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1809:2: 1809 | ierr = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1810:2: 1810 | call die(myname_,'negative value of GSMap%pe_loc',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1823:2: 1823 | call die(myname_,'allocate(pe_list...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1827:2: 1827 | pe_list(n) = temp_list(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1840:2: 1840 | call die(myname_,'deallocate(perm)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1936:2: 1936 | lower_index = pointGSMap%start(iseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1937:2: 1937 | upper_index = lower_index + pointGSMap%length(iseg) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1939:2: 1939 | if((points(ipoint) >= lower_index) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1940:2: 1940 | (points(ipoint) <= upper_index)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1941:2: 1941 | pe_locs(ipoint) = pointGSMap%pe_loc(iseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:1942:2: 1942 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2072:2: 2072 | overlap = .TRUE. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2073:2: 2073 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2152:2: 2152 | call die(myname_,'key2 GSMap size mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2156:2: 2156 | call die(myname_,'key1 key2 size mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2300:2: 2300 | call die(myname_,'key2 GSMap size mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:2304:2: 2304 | call die(myname_,'key1 key2 size mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMap.F90:557:17: 523 | call MPI_BCAST(GSMap%ngseg, 1, MP_INTEGER, root, my_comm, ier) | 2 ...... 557 | call MPI_BCAST(GSMap%start, GSMap%ngseg, MP_INTEGER, root, my_comm, ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMap.F90:560:17: 523 | call MPI_BCAST(GSMap%ngseg, 1, MP_INTEGER, root, my_comm, ier) | 2 ...... 560 | call MPI_BCAST(GSMap%length, GSMap%ngseg, MP_INTEGER, root, my_comm, ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMap.F90:563:17: 523 | call MPI_BCAST(GSMap%ngseg, 1, MP_INTEGER, root, my_comm, ier) | 2 ...... 563 | call MPI_BCAST(GSMap%pe_loc, GSMap%ngseg, MP_INTEGER, root, my_comm, ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMap.F90:2409:10: 2409 | use m_MCTWorld, only: ThisMCTWorld | 1 Warning: Unused module variable ‘thismctworld’ which has been explicitly imported at (1) [-Wunused-variable] m_GlobalSegMap.F90:918:33: 918 | integer :: i,j,k,n ! generic indicies | 1 Warning: Unused variable ‘k’ declared at (1) [-Wunused-variable] m_GlobalSegMap.F90:478:23: 478 | integer :: myID,ier,l,i | 1 Warning: Unused variable ‘l’ declared at (1) [-Wunused-variable] m_GlobalSegMap.F90:228:31: 228 | integer :: nPEs, myID, ier, l, i | 1 Warning: Unused variable ‘l’ declared at (1) [-Wunused-variable] m_GlobalSegMap.F90:282:0: 282 | my_pe_loc = myID | Warning: ‘my_pe_loc.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_GlobalSegMap.F90:282:0: Warning: ‘my_pe_loc.dim[0].lbound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_GlobalSegMap.F90:282:0: Warning: ‘my_pe_loc.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_GlobalSegMap.F90:282:0: 282 | my_pe_loc = myID | Warning: ‘my_pe_loc.dim[0].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_GlobalSegMapComms.F90 m_GlobalSegMapComms.F90:509:2: 509 | IntBuffer(n) = GSMap%start(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:510:2: 510 | IntBuffer(GSMap%ngseg+n) = GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:511:2: 511 | IntBuffer(2*GSMap%ngseg+n) = GSMap%pe_loc(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:521:2: 521 | GSMap%pe_loc(GSMap%ngseg), stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:523:2: 523 | if(.not. present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:524:2: 524 | call die(myname_,'off-root allocate(GSMap%start...)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:525:2: 525 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:526:2: 526 | write(stderr,*) myname_,':: error during off-root allocate(GSMap%start...)' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:527:2: 527 | status = 7 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:528:2: 528 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:529:2: 529 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:533:2: 533 | GSMap%start(n) = IntBuffer(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:534:2: 534 | GSMap%length(n) = IntBuffer(GSMap%ngseg+n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:535:2: 535 | GSMap%pe_loc(n) = IntBuffer(2*GSMap%ngseg+n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalSegMapComms.F90:258:17: 238 | call MPI_ISEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 258 | call MPI_ISEND(outgoingGSMap%start, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMapComms.F90:265:17: 238 | call MPI_ISEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 265 | call MPI_ISEND(outgoingGSMap%length, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMapComms.F90:272:17: 238 | call MPI_ISEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 272 | call MPI_ISEND(outgoingGSMap%pe_loc, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMapComms.F90:133:16: 112 | call MPI_SEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 133 | call MPI_SEND(outgoingGSMap%start, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMapComms.F90:140:16: 112 | call MPI_SEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 140 | call MPI_SEND(outgoingGSMap%length, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_GlobalSegMapComms.F90:147:16: 112 | call MPI_SEND(outgoingGSMap%comp_id, 1, MP_Type(outgoingGSMap%comp_id), destID, & | 2 ...... 147 | call MPI_SEND(outgoingGSMap%pe_loc, nsegs, & | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_Accumulator.F90 m_Accumulator.F90:51:15: 51 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:72:23: 72 | public :: clean ! destruction method | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:74:23: 74 | public :: lsize ! local length of the data arrays | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:78:24: 78 | public :: nIAttr ! number of integer fields | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:79:24: 79 | public :: nRAttr ! number of real fields | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:80:25: 80 | public :: indexIA ! index the integer fields | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:81:25: 81 | public :: indexRA ! index the real fields | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:82:26: 82 | public :: getIList ! Return tag from INTEGER | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:84:26: 84 | public :: getRList ! Return tag from REAL attribute | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:100:41: 100 | interface init ; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:101:15: 101 | init_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:102:16: 102 | inits_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:106:41: 106 | interface initp ; module procedure initp_ ; end interface | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:366:2: 366 | call initp_(aC=aC, iAction=my_iAction, num_steps=num_steps, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:367:2: 367 | steps_done=my_steps_done) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:380:2: 380 | call initp_(aC=aC, rAction=my_rAction, num_steps=num_steps, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:381:2: 381 | steps_done=my_steps_done) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:400:2: 400 | call AttrVect_init(aV=aC%data,iList=iList,lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:403:2: 403 | call AttrVect_init(aV=aC%data,rList=rList,lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:523:2: 523 | call AttrVect_init(aV=aC%data,iList=iList,lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:526:2: 526 | call AttrVect_init(aV=aC%data,rList=rList,lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:620:2: 620 | allocate(aC%iAction(size(iAction)),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:621:2: 621 | if(ier /= 0) call die(myname_,"iAction allocate",ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:623:2: 623 | do i=1,size(iAction) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:624:2: 624 | aC%iAction(i) = iAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:625:2: 625 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:635:2: 635 | allocate(aC%rAction(size(rAction)),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:636:2: 636 | if(ier /= 0) call die(myname_,"iAction allocate",ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:638:2: 638 | do i=1,size(rAction) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:639:2: 639 | aC%rAction(i) = rAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:640:2: 640 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:764:2: 764 | iActionArray(i)=bC%iAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:770:2: 770 | rActionArray(i)=bC%rAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:780:2: 780 | rList=ListExportToChar(temp_rList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:781:2: 781 | rAction=rActionArray, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:790:2: 790 | call init_(aC, iList=ListExportToChar(temp_iList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:791:2: 791 | iAction=iActionArray, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:793:2: 793 | num_steps=myNumSteps, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:800:2: 800 | call init_(aC, rList=ListExportToChar(temp_rList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:801:2: 801 | rAction=rActionArray, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:802:2: 802 | lsize=aC_lsize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:803:2: 803 | num_steps=myNumSteps, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:974:2: 974 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:975:2: 975 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:976:2: 976 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:977:2: 977 | call warn(myname_,'deallocate(aC%iAction)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:978:2: 978 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:988:2: 988 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:989:2: 989 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:990:2: 990 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:991:2: 991 | call warn(myname_,'deallocate(aC%rAction)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:992:2: 992 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1078:2: 1078 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1080:2: 1080 | call die(myname_,"Neither aC%iAction nor aC%rAction are associated") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1090:2: 1090 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1092:2: 1092 | call die(myname_,"Neither aC%data%iList nor aC%data%rList are allocated") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1100:2: 1100 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1101:2: 1101 | aC_associated = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1102:2: 1102 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1103:2: 1103 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1105:2: 1105 | call die(myname_,"size(aC%iAction<=0), size = ", size(aC%iAction)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1106:2: 1106 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1112:2: 1112 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1113:2: 1113 | aC_associated = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1114:2: 1114 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1115:2: 1115 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1117:2: 1117 | call die(myname_,"size(aC%rAction<=0), size = ", size(aC%rAction)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1118:2: 1118 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1127:2: 1127 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1128:2: 1128 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1129:2: 1129 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1131:2: 1131 | call die(myname_,"No attributes found in aC%data") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1132:2: 1132 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1137:2: 1137 | if( size(aC%iAction) /= Attr_nIAttr(aC%data) ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1138:2: 1138 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1139:2: 1139 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1140:2: 1140 | if(present(source_name)) write(stderr,*) source_name, myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1142:2: 1142 | call die(myname_,"size(aC%iAction) /= nIAttr(aC%data)") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1143:2: 1143 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1144:2: 1144 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1146:2: 1146 | do i=1,Attr_nIAttr(aC%data) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1147:2: 1147 | if( (aC%iAction(i) /= MCT_SUM) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1149:2: 1149 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1150:2: 1150 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1151:2: 1151 | if(present(source_name)) write(stderr,*) source_name, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1152:2: 1152 | myname_, ":: ERROR, Invalid value found in aC%iAction" | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1153:2: 1153 | call die(myname_,"Invalid value found in aC%iAction", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1154:2: 1154 | aC%iAction(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1155:2: 1155 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1156:2: 1156 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1157:2: 1157 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1163:2: 1163 | if( size(aC%rAction) /= Attr_nRAttr(aC%data) ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1164:2: 1164 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1165:2: 1165 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1166:2: 1166 | if(present(source_name)) write(stderr,*) source_name, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1167:2: 1167 | myname_, ":: ERROR, size(aC%rAction) /= nRAttr(aC%data)" | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1168:2: 1168 | call die(myname_,"size(aC%rAction) /= nRAttr(aC%data)") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1169:2: 1169 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1170:2: 1170 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1172:2: 1172 | do i=1,Attr_nRAttr(aC%data) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1173:2: 1173 | if( (aC%rAction(i) /= MCT_SUM) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1175:2: 1175 | initialized_ = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1176:2: 1176 | if(kill) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1177:2: 1177 | if(present(source_name)) write(stderr,*) source_name, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1178:2: 1178 | myname_, ":: ERROR, Invalid value found in aC%rAction", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1179:2: 1179 | aC%rAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1180:2: 1180 | call die(myname_,"Invalid value found in aC%rAction", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1181:2: 1181 | aC%iAction(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1182:2: 1182 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1183:2: 1183 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1184:2: 1184 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1273:2: 1273 | myNumSteps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1322:2: 1322 | myStepsDone | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1549:2: 1549 | if(indexIA_==0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1550:2: 1550 | if(.not.present(dieWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1551:2: 1551 | if(present(perrWith)) write(stderr,'(4a)') perrWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1553:2: 1553 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1554:2: 1554 | write(stderr,'(4a)') dieWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1556:2: 1556 | call die(dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1557:2: 1557 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1558:2: 1558 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1620:2: 1620 | if(indexRA_==0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1621:2: 1621 | if(.not.present(dieWith)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1622:2: 1622 | if(present(perrWith)) write(stderr,'(4a)') perrWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1624:2: 1624 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1625:2: 1625 | write(stderr,'(4a)') dieWith, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1627:2: 1627 | call die(dieWith) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1628:2: 1628 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:1629:2: 1629 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2309:2: 2309 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2311:2: 2311 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2312:2: 2312 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2348:2: 2348 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2350:2: 2350 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2351:2: 2351 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Accumulator.F90:2430:20: 2430 | integer :: aCindex, aVindex | 1 Warning: Unused variable ‘acindex’ declared at (1) [-Wunused-variable] m_Accumulator.F90:2429:45: 2429 | integer, dimension(:), pointer :: aCindices, aVindices | 1 Warning: Unused variable ‘acindices’ declared at (1) [-Wunused-variable] m_Accumulator.F90:2430:29: 2430 | integer :: aCindex, aVindex | 1 Warning: Unused variable ‘avindex’ declared at (1) [-Wunused-variable] m_Accumulator.F90:2429:56: 2429 | integer, dimension(:), pointer :: aCindices, aVindices | 1 Warning: Unused variable ‘avindices’ declared at (1) [-Wunused-variable] m_Accumulator.F90:2433:17: 2433 | integer :: ierr, l, n | 1 Warning: Unused variable ‘ierr’ declared at (1) [-Wunused-variable] m_Accumulator.F90:2426:24: 2426 | integer :: num_indices | 1 Warning: Unused variable ‘num_indices’ declared at (1) [-Wunused-variable] m_Accumulator.F90:868:14: 868 | integer :: i,ier | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] m_Accumulator.F90:868:18: 868 | integer :: i,ier | 1 Warning: Unused variable ‘ier’ declared at (1) [-Wunused-variable] m_Accumulator.F90:866:23: 866 | integer :: myNumSteps, myStepsDone | 1 Warning: Unused variable ‘mynumsteps’ declared at (1) [-Wunused-variable] m_Accumulator.F90:323:0: 323 | my_iAction = iAction | Warning: ‘my_iaction.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Accumulator.F90:323:0: Warning: ‘my_iaction.dim[0].lbound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Accumulator.F90:323:0: 323 | my_iAction = iAction | Warning: ‘my_iaction.dim[0].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Accumulator.F90:342:0: 342 | my_rAction = rAction | Warning: ‘my_raction.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Accumulator.F90:342:0: Warning: ‘my_raction.dim[0].lbound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Accumulator.F90:342:0: 342 | my_rAction = rAction | Warning: ‘my_raction.dim[0].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_AttrVectComms.F90 m_AttrVectComms.F90:37:15: 37 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:39:24: 39 | public :: gather ! gather all local vectors to the root | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:40:25: 40 | public :: scatter ! scatter from the root to all PEs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:41:23: 41 | public :: bcast ! bcast from root to all PEs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:42:22: 42 | public :: send ! send an AttrVect | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:43:22: 43 | public :: recv ! receive an AttrVect | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:46:2: 46 | GM_gather_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:47:2: 47 | GSM_gather_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:50:2: 50 | GM_scatter_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:51:2: 51 | GSM_scatter_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:175:2: 175 | write(stderr,*) myname_,':: call List_send(inAV%iList...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:176:2: 176 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:177:2: 177 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:179:2: 179 | call die(myname_,':: call List_send(inAV%iList...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:188:2: 188 | write(stderr,*) myname_,':: call List_send(inAV%rList...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:189:2: 189 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:190:2: 190 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:192:2: 192 | call die(myname_,':: call List_send(inAV%rList...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:221:2: 221 | call MPI_SEND(inAV%iAttr(1,1), AVlength*List_nitem(inAV%iList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:224:2: 224 | if(ierr /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:225:2: 225 | call MP_perr_die(myname_,':: call MPI_SEND(inAV%iAttr...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:226:2: 226 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:234:2: 234 | call MPI_SEND(inAV%rAttr(1,1), AVlength*List_nitem(inAV%rList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:237:2: 237 | if(ierr /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:238:2: 238 | call MP_perr_die(myname_,':: call MPI_SEND(inAV%rAttr...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:239:2: 239 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:332:2: 332 | write(stderr,*) myname_,':: call List_recv(outAV%iList...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:333:2: 333 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:334:2: 334 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:336:2: 336 | call die(myname_,':: call List_recv(outAV%iList...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:345:2: 345 | write(stderr,*) myname_,':: call List_recv(outAV%rList...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:346:2: 346 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:347:2: 347 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:349:2: 349 | call die(myname_,':: call List_recv(outAV%rList...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:376:2: 376 | call MPI_RECV(outAV%iAttr(1,1), AVlength*List_nitem(outAV%iList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:379:2: 379 | if(ierr /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:380:2: 380 | call MP_perr_die(myname_,':: call MPI_RECV(outAV%iAttr...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:381:2: 381 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:394:2: 394 | call MPI_RECV(outAV%rAttr(1,1), AVlength*List_nitem(outAV%rList), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:397:2: 397 | if(ierr /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:398:2: 398 | call MP_perr_die(myname_,':: call MPI_RECV(outAV%rAttr...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:399:2: 399 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:489:49: 489 | write(stderr,'(2a,i4,a,i4,a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:490:42: 490 | ': invalid input, lsize(GMap) =',niV, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:509:27: 509 | nIA=AttrVect_nIAttr(iV) ! number of INTEGER attributes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:510:27: 510 | nRA=AttrVect_nRAttr(iV) ! number of REAL attributes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:518:58: 518 | call fc_gatherv_int(iV%iAttr,niV*nIA,MP_INTEGER, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:524:58: 524 | call fc_gatherv_int(iV%iAttr,niV*nIA,MP_INTEGER, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:536:57: 536 | call fc_gatherv_fp(iV%rAttr,niV*nRA,mp_type_Av, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:542:57: 542 | call fc_gatherv_fp(iV%rAttr,niV*nRA,mp_type_Av, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:555:42: 555 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:703:2: 703 | call MP_perr_die(myname_,':: call MPI_COMM_RANK()',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:735:2: 735 | lns(n) = lns(n) + GSMap%length(iseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:785:2: 785 | write(stderr,*) myname_,':: allocate(current_pos(..) failed,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:787:2: 787 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:788:2: 788 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:789:2: 789 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:790:2: 790 | call die(myname_,'allocate(current_pos(..) failed.' ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:791:2: 791 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:797:2: 797 | current_pos(n) = workGMap%displs(n) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:809:2: 809 | pe = GSMap%pe_loc(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:813:2: 813 | ilb = current_pos(pe) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:814:2: 814 | iub = current_pos(pe) + GSMap%length(n) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:818:2: 818 | olb = GSMap%start(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:819:2: 819 | oub = GSMap%start(n) + GSMap%length(n) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:823:2: 823 | current_pos(pe) = current_pos(pe) + GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:827:2: 827 | do m=1,AttrVect_nIAttr(iV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:828:5: 828 | oV%iAttr(m,olb:oub) = workV%iAttr(m,ilb:iub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:829:2: 829 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:831:2: 831 | do m=1,AttrVect_nRAttr(iV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:832:5: 832 | oV%rAttr(m,olb:oub) = workV%rAttr(m,ilb:iub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:833:2: 833 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:841:2: 841 | write(stderr,*) myname_,'error in deallocate(current_pos), stat=',ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:842:2: 842 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:843:2: 843 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:844:2: 844 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:845:2: 845 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:846:2: 846 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:976:52: 976 | write(stderr,'(2a,i5,a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:998:32: 998 | nIA = AttrVect_nIAttr(iV) ! number of INTEGER attributes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:999:32: 999 | nRA = AttrVect_nRAttr(iV) ! number of REAL attributes | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1002:2: 1002 | call List_copy(iList,iV%iList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1006:2: 1006 | call List_copy(rList,iV%rList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1041:58: 1041 | call MPI_scatterv(iV%iAttr(1,1),GMap%counts*nIA, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1050:65: 1050 | call MPI_scatterv(nonRootAV%iAttr(1,1),GMap%counts*nIA, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1070:58: 1070 | call MPI_scatterv(iV%rAttr(1,1),GMap%counts*nRA, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1080:60: 1080 | call MPI_scatterv(nonRootAV%rAttr,GMap%counts*nRA, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1096:42: 1096 | write(stderr,'(2a,i4)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1257:2: 1257 | write(stderr,'(2a,i5,a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1259:2: 1259 | GSMap%gsize, ', lsize(iV) =',AttrVect_lsize(iV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1260:2: 1260 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1261:2: 1261 | stat=-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1262:2: 1262 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1263:2: 1263 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1264:2: 1264 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1307:2: 1307 | stat=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1308:2: 1308 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1310:2: 1310 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1320:2: 1320 | write(stderr,*) myname_,':: allocate(lns...) failed, stat=',ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1321:2: 1321 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1322:2: 1322 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1323:2: 1323 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1324:2: 1324 | call die(myname_,'allocate(lns)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1325:2: 1325 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1333:2: 1333 | lns(n) = lns(n) + GSMap%length(iseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1349:2: 1349 | write(stderr,*) myname_,':: allocate(lns...) failed, stat=',ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1350:2: 1350 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1351:2: 1351 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1352:2: 1352 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1353:2: 1353 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1354:2: 1354 | call die(myname_,'allocate(lns(1))',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1355:2: 1355 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1376:2: 1376 | write(stderr,*) myname_,':: allocate(current_pos..) failed, stat=', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1377:2: 1377 | ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1378:2: 1378 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1379:2: 1379 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1380:2: 1380 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1381:2: 1381 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1382:2: 1382 | call die(myname_,'allocate(current_pos)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1383:2: 1383 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1389:2: 1389 | current_pos(n) = GMap%displs(n) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1401:2: 1401 | pe = GSMap%pe_loc(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1405:2: 1405 | ilb = GSMap%start(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1406:2: 1406 | iub = GSMap%start(n) + GSMap%length(n) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1410:2: 1410 | olb = current_pos(pe) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1411:2: 1411 | oub = current_pos(pe) + GSMap%length(n) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1415:2: 1415 | current_pos(pe) = current_pos(pe) + GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1419:2: 1419 | do m=1,AttrVect_nIAttr(iV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1420:5: 1420 | workV%iAttr(m,olb:oub) = iV%iAttr(m,ilb:iub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1421:2: 1421 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1423:2: 1423 | do m=1,AttrVect_nRAttr(iV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1424:5: 1424 | workV%rAttr(m,olb:oub) = iV%rAttr(m,ilb:iub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1425:2: 1425 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1433:2: 1433 | write(stderr,*) myname_,':: deallocate(current_pos) failed. ', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1435:2: 1435 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1436:2: 1436 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1437:2: 1437 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1438:2: 1438 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1439:2: 1439 | call die(myname_,'deallocate(current_pos)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1440:2: 1440 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1455:2: 1455 | ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1457:2: 1457 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1458:2: 1458 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1460:2: 1460 | call die(myname_,'ERROR returning from GM_scatter_()',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1476:2: 1476 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1477:2: 1477 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1479:2: 1479 | call die(myname_,'deallocate(lns)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1591:50: 1591 | call String_bcast(iLStr,root,comm,stat=ier) ! bcast.String() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1594:2: 1594 | write(stderr,*) myname_,'bcast.String(iLstr), ier=',ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1595:2: 1595 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1596:2: 1596 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1597:2: 1597 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1598:2: 1598 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1599:2: 1599 | call die(myname_,'String_bcast(iLStr) failed',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1600:2: 1600 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1610:50: 1610 | call String_bcast(rLStr,root,comm,stat=ier) ! bcast.String() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1612:2: 1612 | write(stderr,*) myname_,'bcast.String(iLstr), ier=',ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1613:2: 1613 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1614:2: 1614 | stat=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1615:2: 1615 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1616:2: 1616 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1617:2: 1617 | call die(myname_,'String_bcast(iLStr) failed',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1618:2: 1618 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1626:2: 1626 | call AttrVect_init(aV,iList=char(iLStr),rList=char(rLStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1627:2: 1627 | lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1631:2: 1631 | call AttrVect_init(aV,iList=char(iLStr),lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1635:2: 1635 | call AttrVect_init(aV,rList=char(rLStr),lsize=lsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1639:2: 1639 | write(stderr,*) myname_,':: Nonpositive numbers of both ',& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1641:2: 1641 | if(present(stat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1642:2: 1642 | stat = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1643:2: 1643 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1644:2: 1644 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1645:2: 1645 | call die(myname_,'AV has not been initialized',-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1646:2: 1646 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1659:2: 1659 | call MP_perr_die(myname_,'MPI_bcast(iAttr) failed.',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1671:2: 1671 | call MP_perr_die(myname_,'MPI_bcast(rAttr) failed.',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectComms.F90:1657:20: 1570 | call MPI_bcast(nIA,1,MP_INTEGER,root,comm,ier) | 2 ...... 1657 | call MPI_bcast(aV%iAttr,nIA*lsize,mp_Type_aV,root,comm,ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-2) m_AttrVectComms.F90:1669:20: 1570 | call MPI_bcast(nIA,1,MP_INTEGER,root,comm,ier) | 2 ...... 1669 | call MPI_bcast(aV%rAttr,nRA*lsize,mp_Type_aV,root,comm,ier) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_AttrVectComms.F90:1070:26: 1041 | call MPI_scatterv(iV%iAttr(1,1),GMap%counts*nIA, & | 2 ...... 1070 | call MPI_scatterv(iV%rAttr(1,1),GMap%counts*nRA, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_AttrVectComms.F90:356:16: 319 | call MPI_RECV(ListAssoc, 2, MP_LOGICAL, dest, TagBase, comm, & | 2 ...... 356 | call MPI_RECV(AVlength, 1, MP_type(AVlength), dest, TagBase+5, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/LOGICAL(4)). m_AttrVectComms.F90:206:16: 163 | call MPI_SEND(ListAssoc, 2, MP_LOGICAL, dest, TagBase, comm, ierr) | 2 ...... 206 | call MPI_SEND(AVlength, 1, MP_type(AVlength), dest, TagBase+5, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/LOGICAL(4)). /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_SparseMatrix.F90 m_SparseMatrix.F90:81:2: 81 | integer :: ncols | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:82:2: 82 | type(AttrVect) :: data | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:151:2: 151 | exportGlobalRowIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:155:2: 155 | exportGlobalColumnIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:159:2: 159 | exportLocalRowIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:163:2: 163 | exportLocalColumnIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:167:2: 167 | exportMatrixElementsSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:168:2: 168 | exportMatrixElementsDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:172:2: 172 | importGlobalRowIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:176:2: 176 | importGlobalColumnIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:180:2: 180 | importLocalRowIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:184:2: 184 | importLocalColumnIndices_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:188:2: 188 | importMatrixElementsSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:189:2: 189 | importMatrixElementsDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:195:2: 195 | GlobalNumElements_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:199:2: 199 | ComputeSparsitySP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:200:2: 200 | ComputeSparsityDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:204:2: 204 | local_row_range_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:208:2: 208 | global_row_range_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:212:2: 212 | local_col_range_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:216:2: 216 | global_col_range_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:220:2: 220 | CheckBounds_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:224:2: 224 | row_sumSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:225:2: 225 | row_sumDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:229:2: 229 | row_sum_checkSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:230:2: 230 | row_sum_checkDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:1973:2: 1973 | call MP_perr_die(myname_,"MPI_ALLREDUCE(MySparsity...",ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2057:2: 2057 | call MP_perr_die(myname_,"MPI_ALLREDUCE(MySparsity...",ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2140:2: 2140 | (sMat%data%iAttr(igrow,i) <= 0)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2141:2: 2141 | ierror = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2142:2: 2142 | call die(myname_,"Row index out of bounds",ierror) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2148:2: 2148 | (sMat%data%iAttr(igcol,i) <= 0)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2149:2: 2149 | ierror = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2150:2: 2150 | call die(myname_,"Column index out of bounds",ierror) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2255:2: 2255 | sMat%data%rAttr(iwgt,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2376:2: 2376 | sMat%data%rAttr(iwgt,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2471:2: 2471 | if(abs(sums(i) - valid_sums(j)) > abs_tol) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2472:2: 2472 | num_invalid = num_invalid + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2473:2: 2473 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2481:2: 2481 | valid = .FALSE. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2482:2: 2482 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2556:2: 2556 | if(abs(sums(i) - valid_sums(j)) > abs_tol) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2557:2: 2557 | num_invalid = num_invalid + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2558:2: 2558 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2566:2: 2566 | valid = .FALSE. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2567:2: 2567 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrix.F90:2271:9: 2271 | sums = gsums | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_SparseMatrix.F90:1976:16: 1976 | sparsity = MySparsity | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_SparseMatrix.F90:2383:21: 2353 | call MPI_ALLREDUCE(end_row, num_rows, 1, MP_INTEGER, MP_MAX, & | 2 ...... 2383 | call MPI_ALLREDUCE(lsums, gsums, num_rows, mp_Type_lsums, MP_SUM, comm, ierr) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_SparseMatrix.F90:1840:40: 1840 | subroutine global_col_range_(sMat, comm, start_col, end_col) | 1 Warning: Unused dummy argument ‘comm’ at (1) [-Wunused-dummy-argument] m_SparseMatrix.F90:1719:40: 1719 | subroutine global_row_range_(sMat, comm, start_row, end_row) | 1 Warning: Unused dummy argument ‘comm’ at (1) [-Wunused-dummy-argument] m_SparseMatrix.F90:382:20: 382 | integer :: row,col | 1 Warning: Unused variable ‘col’ declared at (1) [-Wunused-variable] m_SparseMatrix.F90:2340:46: 2340 | real(FP), dimension(:), allocatable :: gsums | ^ Warning: ‘gsums.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_SparseMatrix.F90:2219:46: 2219 | real(FP), dimension(:), allocatable :: gsums | ^ Warning: ‘gsums.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_SparseMatrix.F90:384:48: 384 | integer, dimension(:) , allocatable :: nr, rn | ^ Warning: ‘rn.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_Navigator.F90 m_Navigator.F90:40:15: 40 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:44:27: 44 | public :: Navigator ! The class data structure | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:47:30: 47 | integer :: NumSegments ! Number of defined Segments | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:48:31: 48 | integer :: VectorLength ! Length of the Vector being indexed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:65:48: 65 | interface Navigator_init; module procedure & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:147:2: 147 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:149:2: 149 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:378:2: 378 | write(stderr,'(3a,2(i8,a))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:382:2: 382 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:525:2: 525 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:528:2: 528 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:534:2: 534 | write(stderr,'(2a,2(a,i8))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:537:2: 537 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:543:2: 543 | write(stderr,'(2a,2(a,i8))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:546:2: 546 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:626:2: 626 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:629:2: 629 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:635:2: 635 | write(stderr,'(2a,2(a,i8))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:638:2: 638 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:644:2: 644 | write(stderr,'(2a,2(a,i8))') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Navigator.F90:647:2: 647 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_AttrVectReduce.F90 m_AttrVectReduce.F90:45:15: 45 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:182:2: 182 | do i=1,AttrVect_nIAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:183:2: 183 | outAV%iAttr(i,1) = outAV%iAttr(i,1) + inAV%iAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:184:2: 184 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:188:2: 188 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:189:2: 189 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:190:2: 190 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:198:2: 198 | outAV%iAttr(i,1) = inAV%iAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:202:2: 202 | outAV%rAttr(i,1) = inAV%rAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:208:2: 208 | do i=1,AttrVect_nIAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:209:2: 209 | if(inAV%iAttr(i,j) < outAV%iAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:210:2: 210 | outAV%iAttr(i,1) = inAV%iAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:211:2: 211 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:212:2: 212 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:216:2: 216 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:217:2: 217 | if(inAV%rAttr(i,j) < outAV%rAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:218:2: 218 | outAV%rAttr(i,1) = inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:219:2: 219 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:220:2: 220 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:228:2: 228 | outAV%iAttr(i,1) = inAV%iAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:232:2: 232 | outAV%rAttr(i,1) = inAV%rAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:238:2: 238 | do i=1,AttrVect_nIAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:239:2: 239 | if(inAV%iAttr(i,j) > outAV%iAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:240:2: 240 | outAV%iAttr(i,1) = inAV%iAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:241:2: 241 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:242:2: 242 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:246:2: 246 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:247:2: 247 | if(inAV%rAttr(i,j) > outAV%rAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:248:2: 248 | outAV%rAttr(i,1) = inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:249:2: 249 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:250:2: 250 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:366:2: 366 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:367:2: 367 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:368:2: 368 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:376:2: 376 | outAV%rAttr(i,1) = inAV%rAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:382:2: 382 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:383:2: 383 | if(inAV%rAttr(i,j) < outAV%rAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:384:2: 384 | outAV%rAttr(i,1) = inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:385:2: 385 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:386:2: 386 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:394:2: 394 | outAV%rAttr(i,1) = inAV%rAttr(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:400:2: 400 | do i=1,AttrVect_nRAttr(outAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:401:2: 401 | if(inAV%rAttr(i,j) > outAV%rAttr(i,1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:402:2: 402 | outAV%rAttr(i,1) = inAV%rAttr(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:403:2: 403 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:404:2: 404 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:519:2: 519 | call MPI_AllReduce(inAV%rAttr, outAV%rAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:520:2: 520 | MP_Type(inAV%rAttr(1,1)), MP_SUM, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:521:2: 521 | comm, ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:523:2: 523 | call MPI_AllReduce(inAV%rAttr, outAV%rAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:527:2: 527 | call MPI_AllReduce(inAV%rAttr, outAV%rAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:531:2: 531 | write(stderr,'(2a,i8,a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:537:2: 537 | write(stderr,*) myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:539:2: 539 | call MP_perr_die(myname_, 'MPI_AllReduce() failed.', ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:551:2: 551 | call MPI_AllReduce(inAV%iAttr, outAV%iAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:552:2: 552 | MP_Type(inAV%iAttr(1,1)), MP_SUM, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:553:2: 553 | comm, ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:555:2: 555 | call MPI_AllReduce(inAV%iAttr, outAV%iAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:559:2: 559 | call MPI_AllReduce(inAV%iAttr, outAV%iAttr, BufferSize, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:563:2: 563 | write(stderr,'(2a,i8,a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:569:2: 569 | write(stderr,*) myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:571:2: 571 | call MP_perr_die(myname_, 'MPI_AllReduce() failed.', ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:753:2: 753 | AttrVect_lsize(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:763:2: 763 | lsize=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:779:2: 779 | do i=1,AttrVect_nRAttr(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:780:2: 780 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) * weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:781:2: 781 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:783:2: 783 | outAV%rAttr(AttrVect_nRAttr(outAV),1) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:784:2: 784 | outAV%rAttr(AttrVect_nRAttr(outAV),1) + weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:790:2: 790 | do i=1,AttrVect_nRAttr(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:791:2: 791 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) * weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:792:2: 792 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:864:2: 864 | AttrVect_lsize(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:874:2: 874 | lsize=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:890:2: 890 | do i=1,AttrVect_nRAttr(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:891:2: 891 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) * weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:892:2: 892 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:894:2: 894 | outAV%rAttr(AttrVect_nRAttr(outAV),1) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:895:2: 895 | outAV%rAttr(AttrVect_nRAttr(outAV),1) + weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:901:2: 901 | do i=1,AttrVect_nRAttr(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:902:2: 902 | outAV%rAttr(i,1) = outAV%rAttr(i,1) + inAV%rAttr(i,j) * weights(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:903:2: 903 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:998:2: 998 | AttrVect_lsize(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:1004:2: 1004 | WeightSumAttr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:1084:2: 1084 | AttrVect_lsize(inAV) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:1090:2: 1090 | WeightSumAttr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AttrVectReduce.F90:551:20: 519 | call MPI_AllReduce(inAV%rAttr, outAV%rAttr, BufferSize, & | 2 ...... 551 | call MPI_AllReduce(inAV%iAttr, outAV%iAttr, BufferSize, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_AccumulatorComms.F90 m_AccumulatorComms.F90:37:15: 37 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:43:24: 43 | public :: gather ! gather all local vectors to the root | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:44:25: 44 | public :: scatter ! scatter from the root to all PEs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:45:23: 45 | public :: bcast ! bcast from root to all PEs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:660:2: 660 | nIAttr = size(aC%iAction) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:662:2: 662 | nIAttr = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:666:2: 666 | nRAttr = size(aC%rAction) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:668:2: 668 | nRAttr = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:699:2: 699 | AccBuff(4+i) = aC%iAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:705:2: 705 | AccBuff(4+nIAttr+i) = aC%rAction(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:755:2: 755 | call Accumulator_initp(aC,iAction=aC_iAction,rAction=aC_rAction, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:766:2: 766 | if(myID /= root) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:767:2: 767 | call Accumulator_initp(aC,iAction=aC_iAction, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:770:2: 770 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:771:2: 771 | deallocate(aC_iAction,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:772:2: 772 | if(ier /= 0) call die(myname_,"deallocate aC_iAction...",ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:776:2: 776 | if(myID /= root) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:777:2: 777 | call Accumulator_initp(aC,rAction=aC_rAction, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:780:2: 780 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:781:2: 781 | deallocate(aC_rAction,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:782:2: 782 | if(ier /= 0) call die(myname_,"deallocate aC_iAction...",ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_AccumulatorComms.F90:713:17: 677 | call MPI_BCAST(AccBuffSize, 1, MP_INTEGER, root, comm, ier) | 2 ...... 713 | call MPI_BCAST(AccBuff, AccBuffSize, MP_INTEGER, root, comm, ier) | 1 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) m_AccumulatorComms.F90:643:19: 643 | logical :: status | 1 Warning: Unused variable ‘status’ declared at (1) [-Wunused-variable] m_AccumulatorComms.F90:237:24: 237 | integer :: myID, ier, i | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] m_AccumulatorComms.F90:136:24: 136 | integer :: myID, ier, i | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_GeneralGrid.F90 m_GeneralGrid.F90:125:2: 125 | initCartesianDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:129:2: 129 | initUnstructuredDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:374:2: 374 | NumShared,CoordListIndices,CoordSortOrderIndices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:380:2: 380 | call die(myname_,'CoordSortOrder must have the same items & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:394:2: 394 | (.not.present(CoordSortOrder)) ) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:395:2: 395 | (size(descend) /= nitems) ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:394:2: 394 | (.not.present(CoordSortOrder)) ) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:395:2: 395 | (size(descend) /= nitems) ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:397:2: 397 | write(stderr,*) myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:404:2: 404 | call die(myname_, 'ERROR using -descend- argument; & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:806:2: 806 | call die(myname_,"size(iGGrid%descend) must equal ncoord, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:820:2: 820 | call die(myname_,"allocate(oGGrid%descend...", ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:824:2: 824 | oGGrid%descend(i) = iGGrid%descend(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:996:2: 996 | write(stderr,'(2a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:998:2: 998 | Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:999:2: 999 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1047:2: 1047 | write(stderr,'(4a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1052:2: 1052 | call die(myname_,'size of and arguments must match') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1107:2: 1107 | NumShared,CoordListIndices,CoordSortOrderIndices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1113:2: 1113 | call die(myname_,'CoordSortOrder must have the same items & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1180:2: 1180 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1182:2: 1182 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1196:2: 1196 | do i=1,n-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1197:2: 1197 | nCycles = nCycles * Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1198:2: 1198 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1203:2: 1203 | do i=n+1,NumDims | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1204:2: 1204 | nRepeat = nRepeat * Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1205:2: 1205 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1217:2: 1217 | do j=1,Dims(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1218:2: 1218 | do k=1,nRepeat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1219:2: 1219 | GGrid%data%rAttr(iAxis,index) = AxisData(j,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1220:2: 1220 | index = index+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1221:2: 1221 | end do ! do k=1,nRepeat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1222:2: 1222 | end do ! do j=1,Dims(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1344:2: 1344 | write(stderr,'(2a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1346:2: 1346 | Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1347:2: 1347 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1395:2: 1395 | write(stderr,'(4a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1400:2: 1400 | call die(myname_,'size of and arguments must match') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1455:2: 1455 | NumShared,CoordListIndices,CoordSortOrderIndices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1461:2: 1461 | call die(myname_,'CoordSortOrder must have the same items & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1528:2: 1528 | write(stderr,'(4a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1530:2: 1530 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1544:2: 1544 | do i=1,n-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1545:2: 1545 | nCycles = nCycles * Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1546:2: 1546 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1551:2: 1551 | do i=n+1,NumDims | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1552:2: 1552 | nRepeat = nRepeat * Dims(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1553:2: 1553 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1565:2: 1565 | do j=1,Dims(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1566:2: 1566 | do k=1,nRepeat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1567:2: 1567 | GGrid%data%rAttr(iAxis,index) = AxisData(j,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1568:2: 1568 | index = index+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1569:2: 1569 | end do ! do k=1,nRepeat | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1570:2: 1570 | end do ! do j=1,Dims(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1780:2: 1780 | List_nitem(GGrid%coordinate_list) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1818:2: 1818 | NumShared,CoordListIndices,CoordSortOrderIndices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1824:2: 1824 | call die(myname_,'CoordSortOrder must have the same items & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:1878:2: 1878 | GGrid%data%rAttr(i,n) = PointData(nOffset + i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2033:2: 2033 | List_nitem(GGrid%coordinate_list) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2071:2: 2071 | NumShared,CoordListIndices,CoordSortOrderIndices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2077:2: 2077 | call die(myname_,'CoordSortOrder must have the same items & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2131:2: 2131 | GGrid%data%rAttr(i,n) = PointData(nOffset + i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2219:2: 2219 | call List_clean(GGrid%coordinate_sort_order,ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2220:2: 2220 | if(ierr/=0) stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2224:2: 2224 | call List_clean(GGrid%weight_list,ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2225:2: 2225 | if(ierr/=0) stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2229:2: 2229 | call List_clean(GGrid%other_list,ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2230:2: 2230 | if(ierr/=0) stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2234:2: 2234 | call List_clean(GGrid%index_list,ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2235:2: 2235 | if(ierr/=0) stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2239:2: 2239 | deallocate(GGrid%descend, stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2240:2: 2240 | if(ierr/=0) stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2250:2: 2250 | call List_clean(GGrid%coordinate_sort_order) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2254:2: 2254 | call List_clean(GGrid%weight_list) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2258:2: 2258 | call List_clean(GGrid%other_list) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2262:2: 2262 | call List_clean(GGrid%index_list) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2266:2: 2266 | deallocate(GGrid%descend, stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:2267:2: 2267 | if(ierr/=0) call die(myname_,'deallocate(GGrid%descend)',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:3141:2: 3141 | call die(myname_, "GGrid%coordinate_aort_order must be & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:3146:2: 3146 | call Sort_(GGrid, GGrid%coordinate_sort_order, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:3147:2: 3147 | perm, GGrid%descend) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:3149:2: 3149 | call Sort_(GGrid=GGrid, key_list=GGrid%coordinate_sort_order, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:3150:2: 3150 | perm=perm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGrid.F90:786:30: 786 | integer :: n, ncoord, norder | 1 Warning: Unused variable ‘norder’ declared at (1) [-Wunused-variable] m_GeneralGrid.F90:2635:0: 2635 | end function lsize_ | Warning: ‘__result_lsize_’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_GeneralGrid.F90:2597:0: 2597 | integer function lsize_(GGrid) | note: ‘__result_lsize_’ was declared here /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_GeneralGridComms.F90 m_GeneralGridComms.F90:178:2: 178 | write(stderr,*) myname_,':: Error. GeneralGrid%coordinate_list undefined.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:179:2: 179 | status = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:180:2: 180 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:182:2: 182 | call die(myname_,':: Error. GeneralGrid%coordinate_list undefined.',-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:213:2: 213 | call MP_perr_die(myname_,':: call MPI_SEND(size(iGGrid%descend)...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:219:2: 219 | call MP_perr_die(myname_,':: call MPI_SEND(iGGrid%descend...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:277:2: 277 | write(stderr,*) myname_,':: Error. GeneralGrid%index_list undefined.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:278:2: 278 | status = -2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:279:2: 279 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:281:2: 281 | call die(myname_,':: Error. GeneralGrid%index_list undefined.',-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:291:2: 291 | write(stderr,*) myname_,':: call AttrVect_send(iGGrid%data...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:292:2: 292 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:293:2: 293 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:295:2: 295 | call die(myname_,':: call AttrVect_send(iGGrid%data...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:445:2: 445 | write(stderr,*) myname_,':: Error. GeneralGrid%coordinate_list undefined.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:446:2: 446 | status = -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:447:2: 447 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:449:2: 449 | call die(myname_,':: Error. GeneralGrid%coordinate_list undefined.',-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:459:2: 459 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:460:2: 460 | write(stderr,*) myname_,':: Error calling ',& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:462:2: 462 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:463:2: 463 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:464:2: 464 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:465:2: 465 | call die(myname_,':: call List_recv(oGGrid%coordinate_sort_order...', ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:466:2: 466 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:479:2: 479 | call MP_perr_die(myname_,':: call MPI_RECV(size(oGGrid%descend)...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:484:2: 484 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:485:2: 485 | write(stderr,*) myname_,':: allocate(oGGrid%descend...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:486:2: 486 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:487:2: 487 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:488:2: 488 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:489:2: 489 | call die(myname_,':: allocate(oGGrid%descend... failed.',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:490:2: 490 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:496:2: 496 | call MP_perr_die(myname_,':: call MPI_RECV(oGGrid%descend...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:554:2: 554 | write(stderr,*) myname_,':: Error. GeneralGrid%index_list undefined.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:555:2: 555 | status = -2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:556:2: 556 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:558:2: 558 | call die(myname_,':: Error. GeneralGrid%index_list undefined.',-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:568:2: 568 | write(stderr,*) myname_,':: call AttrVect_recv(oGGrid%data...' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:569:2: 569 | status = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:570:2: 570 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:572:2: 572 | call die(myname_,':: call AttrVect_recv(oGGrid%data...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:688:2: 688 | stat=ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:689:2: 689 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:691:2: 691 | call die(myname_,'call AttrVect_Gather(ig%data...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:910:2: 910 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:911:2: 911 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:913:2: 913 | call die(myname_,'call bcastGeneralGridHeader_(oG...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:926:2: 926 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:927:2: 927 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:929:2: 929 | call die(myname_,'call AttrVect_scatter(iG%data...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1028:2: 1028 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1029:2: 1029 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1031:2: 1031 | call die(myname_,'bcastGeneralGridHeader_(oG...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1043:2: 1043 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1044:2: 1044 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1046:2: 1046 | call die(myname_,'call AttrVect_scatter(iG%data...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1137:2: 1137 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1138:2: 1138 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1140:2: 1140 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1151:2: 1151 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1152:2: 1152 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1154:2: 1154 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1498:2: 1498 | write(stderr,*) myname_,':: ERROR--allocate(iGGrid%descend(... failed.',& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1503:2: 1503 | oGGrid%descend(i) = iGGrid%descend(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GeneralGridComms.F90:1369:20: 1281 | call MPI_BCAST(HeaderAssoc,6,MP_LOGICAL,root,comm,ierr) | 2 ...... 1369 | call MPI_BCAST(DescendSize, 1, MP_INTEGER, root, comm, ierr) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/LOGICAL(4)). m_GeneralGridComms.F90:476:19: 424 | call MPI_RECV(HeaderAssoc, 6, MP_LOGICAL, source, TagBase, ThisMCTWorld%MCT_comm, MPstatus, ierr) | 2 ...... 476 | call MPI_RECV(DescendSize, 1, MP_type(DescendSize), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/LOGICAL(4)). m_GeneralGridComms.F90:210:19: 156 | call MPI_SEND(HeaderAssoc, 6, MP_LOGICAL, dest, TagBase, ThisMCTWorld%MCT_comm, ierr) | 2 ...... 210 | call MPI_SEND(size(iGGrid%descend), 1, MP_type(size(iGGrid%descend)), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/LOGICAL(4)). m_GeneralGridComms.F90:880:25: 880 | logical :: DescendAssoc | 1 Warning: Unused variable ‘descendassoc’ declared at (1) [-Wunused-variable] m_GeneralGridComms.F90:881:24: 881 | integer :: DescendSize | 1 Warning: Unused variable ‘descendsize’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_SpatialIntegralV.F90 m_SpatialIntegralV.F90:26:15: 26 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:43:2: 43 | SpatialIntegralRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:44:2: 44 | SpatialIntegralRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:47:2: 47 | SpatialAverageRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:48:2: 48 | SpatialAverageRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:51:2: 51 | MaskedSpatialIntegralRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:52:2: 52 | MaskedSpatialIntegralRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:55:2: 55 | MaskedSpatialAverageRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:56:2: 56 | MaskedSpatialAverageRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:59:2: 59 | PairedSpatialIntegralRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:60:2: 60 | PairedSpatialIntegralRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:63:2: 63 | PairedSpatialAverageRAttrVSP_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:64:2: 64 | PairedSpatialAverageRAttrVDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:132:2: 132 | GlobalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:134:2: 134 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:173:2: 173 | write(stderr,'(3a)') myname_,':: FATAL--If the input argument SumWeights=.TRUE.,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:175:2: 175 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:186:2: 186 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:187:3: 187 | comm, WeightTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:189:2: 189 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:195:2: 195 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:198:2: 198 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:230:2: 230 | GlobalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:232:2: 232 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:271:2: 271 | write(stderr,'(3a)') myname_,':: FATAL--If the input argument SumWeights=.TRUE.,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:273:2: 273 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:284:2: 284 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:285:3: 285 | comm, WeightTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:287:2: 287 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:293:2: 293 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:296:2: 296 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:380:2: 380 | .TRUE., 'weights', comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:405:2: 405 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:470:2: 470 | .TRUE., 'weights', comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:495:2: 495 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:564:2: 564 | GlobalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:566:2: 566 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:608:2: 608 | ierr = AttrVect_lsize(inAv) - size(iMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:609:2: 609 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:613:2: 613 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:619:2: 619 | ierr = AttrVect_lsize(inAv) - size(rMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:620:2: 620 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:624:2: 624 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:631:2: 631 | write(stderr,'(3a)') myname_,':: FATAL--If the input argument SumWeights=.TRUE.,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:633:2: 633 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:655:2: 655 | if(present(iMask)) then ! use it and rMask to form Weights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:656:2: 656 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:657:2: 657 | Weights(i) = rMask(i) * SpatialWeights(i) * iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:658:2: 658 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:659:2: 659 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:660:2: 660 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:661:2: 661 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:662:2: 662 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:663:2: 663 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:665:2: 665 | if(present(iMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:666:2: 666 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:667:2: 667 | Weights(i) = SpatialWeights(i) * iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:668:2: 668 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:669:2: 669 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:670:2: 670 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:671:2: 671 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:672:2: 672 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:673:2: 673 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:682:2: 682 | if(present(iMask)) then ! use it and rMask to form Weights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:683:2: 683 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:684:2: 684 | select case(iMask(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:685:2: 685 | case(0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:686:2: 686 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:687:2: 687 | case(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:688:2: 688 | if(rMask(i) == 1._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:689:2: 689 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:690:2: 690 | elseif(rMask(i) == 0._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:691:2: 691 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:692:2: 692 | elseif((rMask(i) > 0._FP) .and. (rMask(i) < 1._FP)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:693:2: 693 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:694:2: 694 | else ! rMask(i) < 0. or rMask(i) > 1. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:695:2: 695 | write(stderr,'(3a,i8,a,f10.7)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:698:2: 698 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:700:2: 700 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:701:2: 701 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:704:2: 704 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:705:2: 705 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:706:2: 706 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:707:2: 707 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:708:2: 708 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:709:2: 709 | if(rMask(i) == 1._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:710:2: 710 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:711:2: 711 | elseif(rMask(i) == 0._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:712:2: 712 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:713:2: 713 | elseif((rMask(i) > 0._FP) .and. (rMask(i) < 1._FP)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:714:2: 714 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:715:2: 715 | else ! rMask(i) < 0. or rMask(i) > 1. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:716:2: 716 | write(stderr,'(3a,i8,a,e10.6)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:719:2: 719 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:720:2: 720 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:721:2: 721 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:722:2: 722 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:724:2: 724 | if(present(iMask)) then ! check iMask entries... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:725:2: 725 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:726:2: 726 | select case(iMask(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:727:2: 727 | case(0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:728:2: 728 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:729:2: 729 | case(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:730:2: 730 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:731:2: 731 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:732:2: 732 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:735:2: 735 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:736:2: 736 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:737:2: 737 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:738:2: 738 | else ! straight assignment of SpatialWeights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:739:2: 739 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:740:2: 740 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:741:2: 741 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:742:2: 742 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:754:2: 754 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:755:5: 755 | comm, WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:757:2: 757 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:763:2: 763 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:764:2: 764 | WeightSumAttr=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:766:2: 766 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:808:2: 808 | GlobalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:810:2: 810 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:851:2: 851 | ierr = AttrVect_lsize(inAv) - size(iMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:852:2: 852 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:856:2: 856 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:862:2: 862 | ierr = AttrVect_lsize(inAv) - size(rMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:863:2: 863 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:867:2: 867 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:874:2: 874 | write(stderr,'(3a)') myname_,':: FATAL--If the input argument SumWeights=.TRUE.,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:876:2: 876 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:898:2: 898 | if(present(iMask)) then ! use it and rMask to form Weights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:899:2: 899 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:900:2: 900 | Weights(i) = rMask(i) * SpatialWeights(i) * iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:901:2: 901 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:902:2: 902 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:903:2: 903 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:904:2: 904 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:905:2: 905 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:906:2: 906 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:908:2: 908 | if(present(iMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:909:2: 909 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:910:2: 910 | Weights(i) = SpatialWeights(i) * iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:911:2: 911 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:912:2: 912 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:913:2: 913 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:914:2: 914 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:915:2: 915 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:916:2: 916 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:925:2: 925 | if(present(iMask)) then ! use it and rMask to form Weights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:926:2: 926 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:927:2: 927 | select case(iMask(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:928:2: 928 | case(0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:929:2: 929 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:930:2: 930 | case(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:931:2: 931 | if(rMask(i) == 1._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:932:2: 932 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:933:2: 933 | elseif(rMask(i) == 0._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:934:2: 934 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:935:2: 935 | elseif((rMask(i) > 0._FP) .and. (rMask(i) < 1._FP)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:936:2: 936 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:937:2: 937 | else ! rMask(i) < 0. or rMask(i) > 1. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:938:2: 938 | write(stderr,'(3a,i8,a,f10.7)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:941:2: 941 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:943:2: 943 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:944:2: 944 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:947:2: 947 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:948:2: 948 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:949:2: 949 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:950:2: 950 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:951:2: 951 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:952:2: 952 | if(rMask(i) == 1._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:953:2: 953 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:954:2: 954 | elseif(rMask(i) == 0._FP) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:955:2: 955 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:956:2: 956 | elseif((rMask(i) > 0._FP) .and. (rMask(i) < 1._FP)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:957:2: 957 | Weights(i) = rMask(i) * SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:958:2: 958 | else ! rMask(i) < 0. or rMask(i) > 1. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:959:2: 959 | write(stderr,'(3a,i8,a,e10.6)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:962:2: 962 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:963:2: 963 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:964:2: 964 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:965:2: 965 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:967:2: 967 | if(present(iMask)) then ! check iMask entries... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:968:2: 968 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:969:2: 969 | select case(iMask(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:970:2: 970 | case(0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:971:2: 971 | Weights(i) = 0._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:972:2: 972 | case(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:973:2: 973 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:974:2: 974 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:975:2: 975 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:978:2: 978 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:979:2: 979 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:980:2: 980 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:981:2: 981 | else ! straight assignment of SpatialWeights(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:982:2: 982 | do i=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:983:2: 983 | Weights(i) = SpatialWeights(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:984:2: 984 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:985:2: 985 | endif ! if(present(iMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:997:2: 997 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:998:5: 998 | comm, WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1000:2: 1000 | call AttrVect_GlobalWeightedSumRAttr(inAV, outAV, Weights, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1006:2: 1006 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1007:2: 1007 | WeightSumAttr=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1009:2: 1009 | call AttrVect_LocalWeightedSumRAttr(inAV, outAV, Weights) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1129:2: 1129 | ierr = AttrVect_lsize(inAv) - size(iMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1130:2: 1130 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1134:2: 1134 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1140:2: 1140 | ierr = AttrVect_lsize(inAv) - size(rMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1141:2: 1141 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1145:2: 1145 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1156:2: 1156 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1157:2: 1157 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1158:2: 1158 | iMask, rMask, UseFastMethod, .TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1160:2: 1160 | else ! no rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1161:2: 1161 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1162:2: 1162 | iMask=iMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1164:2: 1164 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1165:2: 1165 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1166:2: 1166 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1170:2: 1170 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1171:2: 1171 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1172:2: 1172 | rMask=rMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1173:2: 1173 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1174:2: 1174 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1175:2: 1175 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1176:2: 1176 | else ! neither rMask nor iMask present: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1177:2: 1177 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1178:2: 1178 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1179:2: 1179 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1180:2: 1180 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1181:2: 1181 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1182:2: 1182 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1190:2: 1190 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1191:2: 1191 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1192:2: 1192 | iMask, rMask, UseFastMethod, .TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1194:2: 1194 | else ! no rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1195:2: 1195 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1196:2: 1196 | iMask=iMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1198:2: 1198 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1199:2: 1199 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1203:2: 1203 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1204:2: 1204 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1205:2: 1205 | rMask=rMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1206:2: 1206 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1207:2: 1207 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1208:2: 1208 | else ! neither rMask nor iMask present: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1209:2: 1209 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1210:2: 1210 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1211:2: 1211 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1212:2: 1212 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1213:2: 1213 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1243:2: 1243 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1324:2: 1324 | ierr = AttrVect_lsize(inAv) - size(iMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1325:2: 1325 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1329:2: 1329 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1335:2: 1335 | ierr = AttrVect_lsize(inAv) - size(rMask) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1336:2: 1336 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1340:2: 1340 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1351:2: 1351 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1352:2: 1352 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1353:2: 1353 | iMask, rMask, UseFastMethod, .TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1355:2: 1355 | else ! no rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1356:2: 1356 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1357:2: 1357 | iMask=iMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1359:2: 1359 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1360:2: 1360 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1361:2: 1361 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1365:2: 1365 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1366:2: 1366 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1367:2: 1367 | rMask=rMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1368:2: 1368 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1369:2: 1369 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1370:2: 1370 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1371:2: 1371 | else ! neither rMask nor iMask present: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1372:2: 1372 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1373:2: 1373 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1374:2: 1374 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1375:2: 1375 | WeightSumTag='MaskedWeightsSum', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1376:2: 1376 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1377:2: 1377 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1385:2: 1385 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1386:2: 1386 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1387:2: 1387 | iMask, rMask, UseFastMethod, .TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1389:2: 1389 | else ! no rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1390:2: 1390 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1391:2: 1391 | iMask=iMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1393:2: 1393 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1394:2: 1394 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1398:2: 1398 | if(present(rMask)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1399:2: 1399 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1400:2: 1400 | rMask=rMask, UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1401:2: 1401 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1402:2: 1402 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1403:2: 1403 | else ! neither rMask nor iMask present: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1404:2: 1404 | call MaskedSpatialIntegralV(inAv, integratedAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1405:2: 1405 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1406:2: 1406 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1407:2: 1407 | WeightSumTag='MaskedWeightsSum') | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1408:2: 1408 | endif ! if(present(rMask))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1438:2: 1438 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1507:2: 1507 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1650:2: 1650 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1818:2: 1818 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1850:40: 1850 | character*8, parameter :: WeightName1='WeightSum1' | 1 Warning: CHARACTER expression at (1) is being truncated (10/8) [-Wcharacter-truncation] m_SpatialIntegralV.F90:1851:40: 1851 | character*8, parameter :: WeightName2='WeightSum2' | 1 Warning: CHARACTER expression at (1) is being truncated (10/8) [-Wcharacter-truncation] m_SpatialIntegralV.F90:1888:2: 1888 | / integratedAv1%rAttr(iweight1,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1893:2: 1893 | / integratedAv2%rAttr(iweight2,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1932:2: 1932 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1964:40: 1964 | character*8, parameter :: WeightName1='WeightSum1' | 1 Warning: CHARACTER expression at (1) is being truncated (10/8) [-Wcharacter-truncation] m_SpatialIntegralV.F90:1965:40: 1965 | character*8, parameter :: WeightName2='WeightSum2' | 1 Warning: CHARACTER expression at (1) is being truncated (10/8) [-Wcharacter-truncation] m_SpatialIntegralV.F90:2002:2: 2002 | / integratedAv1%rAttr(iweight1,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:2007:2: 2007 | / integratedAv2%rAttr(iweight2,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegralV.F90:1961:20: 1961 | integer :: i, ierr, iweight1, iweight2 | 1 Warning: Unused variable ‘ierr’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1847:20: 1847 | integer :: i, ierr, iweight1, iweight2 | 1 Warning: Unused variable ‘ierr’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1679:26: 1679 | integer :: ierr, length1, length2, PairedBufferLength | 1 Warning: Unused variable ‘length1’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1679:35: 1679 | integer :: ierr, length1, length2, PairedBufferLength | 1 Warning: Unused variable ‘length2’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1536:26: 1536 | integer :: ierr, length1, length2, PairedBufferLength | 1 Warning: Unused variable ‘length1’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1536:35: 1536 | integer :: ierr, length1, length2, PairedBufferLength | 1 Warning: Unused variable ‘length2’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1308:28: 1308 | integer :: i, ierr, length, iweight | 1 Warning: Unused variable ‘length’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1309:25: 1309 | logical :: mySumWeights | 1 Warning: Unused variable ‘mysumweights’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1113:28: 1113 | integer :: i, ierr, length, iweight | 1 Warning: Unused variable ‘length’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:1114:25: 1114 | logical :: mySumWeights | 1 Warning: Unused variable ‘mysumweights’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:464:20: 464 | integer :: i, ierr, iweight | 1 Warning: Unused variable ‘ierr’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:374:20: 374 | integer :: i, ierr, iweight | 1 Warning: Unused variable ‘ierr’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:254:25: 254 | integer :: ierr, length | 1 Warning: Unused variable ‘length’ declared at (1) [-Wunused-variable] m_SpatialIntegralV.F90:156:25: 156 | integer :: ierr, length | 1 Warning: Unused variable ‘length’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_SpatialIntegral.F90 m_SpatialIntegral.F90:67:15: 67 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:90:2: 90 | SpatialIntegralRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:93:2: 93 | SpatialAverageRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:96:2: 96 | MaskedSpatialIntegralRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:99:2: 99 | MaskedSpatialAverageRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:102:2: 102 | PairedSpatialIntegralRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:105:2: 105 | PairedSpatialAverageRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:108:2: 108 | PairedMaskedIntegralRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:111:2: 111 | PairedMaskedAverageRAttrGG_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:251:2: 251 | WeightTag, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:354:2: 354 | .TRUE., comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:357:2: 357 | .TRUE.) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:380:2: 380 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:472:2: 472 | GlobalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:474:2: 474 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:531:2: 531 | write(stderr,'(3a)') myname_,':: FATAL--If the input argument SumWeights=.TRUE.,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:533:2: 533 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:542:2: 542 | write(stderr,'(3a)') myname_,':: ERROR--an INTEGER mask list with', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:551:2: 551 | write(stderr,'(3a)') myname_,':: ERROR--an REAL mask list with', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:587:2: 587 | write(stderr,'(3a,i8)') myname_,':: allocate(iMask(...) failed,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:589:2: 589 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:597:2: 597 | call List_get(DummStr, i, iMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:598:2: 598 | call GeneralGrid_exportIAttr(GGrid, String_toChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:599:2: 599 | iMaskTemp, TempMaskLength) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:600:2: 600 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:601:2: 601 | if(TempMaskLength /= length) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:602:2: 602 | write(stderr,'(3a,i8,a,i8)') myname_,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:606:2: 606 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:607:2: 607 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:609:2: 609 | if(i == 1) then ! first pass--examine iMaskTemp(:) only | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:611:2: 611 | if(UseFastMethod) then ! straight copy of iMaskTemp(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:612:2: 612 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:613:2: 613 | iMask(j) = iMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:614:2: 614 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:615:2: 615 | else ! go through the entries of iMaskTemp(:) one-by-one | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:616:2: 616 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:617:2: 617 | select case(iMaskTemp(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:618:2: 618 | case(0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:619:2: 619 | iMask(j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:620:2: 620 | case(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:621:2: 621 | iMask(j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:622:2: 622 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:623:2: 623 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:626:2: 626 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:627:2: 627 | end select ! select case(iMaskTemp(j))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:628:2: 628 | end do ! do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:629:2: 629 | endif ! if(UseFastMethod)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:631:2: 631 | else ! That is, i /= 1 ... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:633:2: 633 | if(UseFastMethod) then ! straight product of iMask(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:635:2: 635 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:636:2: 636 | iMask(j) = iMask(j) * iMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:637:2: 637 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:638:2: 638 | else ! go through the entries of iMaskTemp(:) one-by-one | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:639:2: 639 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:640:2: 640 | select case(iMaskTemp(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:641:2: 641 | case(0) ! zero out iMask(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:642:2: 642 | iMask(j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:643:2: 643 | case(1) ! do nothing | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:644:2: 644 | case default | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:645:2: 645 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:648:2: 648 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:649:2: 649 | end select ! select case(iMaskTemp(j))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:650:2: 650 | end do ! do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:651:2: 651 | endif ! if(UseFastMethod)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:653:2: 653 | endif ! if(i == 1)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:669:2: 669 | write(stderr,'(3a,i8)') myname_,':: allocate(rMask(...) failed,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:671:2: 671 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:679:2: 679 | call List_get(DummStr, i, rMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:680:2: 680 | call GeneralGrid_exportRAttr(GGrid, String_toChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:681:2: 681 | rMaskTemp, TempMaskLength) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:682:2: 682 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:683:2: 683 | if(TempMaskLength /= length) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:684:2: 684 | write(stderr,'(3a,i8,a,i8)') myname_,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:688:2: 688 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:689:2: 689 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:691:2: 691 | if(i == 1) then ! first pass--examine rMaskTemp(:) only | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:693:2: 693 | if(UseFastMethod) then ! straight copy of rMaskTemp(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:694:2: 694 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:695:2: 695 | rMask(j) = rMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:696:2: 696 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:697:2: 697 | else ! go through the entries of rMaskTemp(:) one-by-one | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:699:2: 699 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:700:2: 700 | if((rMaskTemp(j) >= 0.) .or. (rMaskTemp(j) <=1.)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:701:2: 701 | rMask(j) = rMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:702:2: 702 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:703:2: 703 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:706:2: 706 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:707:2: 707 | endif ! if((rMaskTemp(j) >= 0.) .or. (rMaskTemp(j) <=1.))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:708:2: 708 | end do ! do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:709:2: 709 | endif ! if(UseFastMethod)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:711:2: 711 | else ! That is, i /= 1 ... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:713:2: 713 | if(UseFastMethod) then ! straight product of rMask(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:715:2: 715 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:716:2: 716 | rMask(j) = rMask(j) * rMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:717:2: 717 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:718:2: 718 | else ! go through the entries of rMaskTemp(:) one-by-one | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:720:2: 720 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:721:2: 721 | if((rMaskTemp(j) >= 0.) .or. (rMaskTemp(j) <=1.)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:722:2: 722 | rMask(j) = rMask(j) * rMaskTemp(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:723:2: 723 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:724:2: 724 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:727:2: 727 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:728:2: 728 | endif ! if((rMaskTemp(j) >= 0.) .or. (rMaskTemp(j) <=1.))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:729:2: 729 | end do ! do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:730:2: 730 | endif ! if(UseFastMethod)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:732:2: 732 | endif ! if(i == 1)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:747:2: 747 | if(present(comm)) then ! compute distributed AllReduce-style sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:749:2: 749 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:751:2: 751 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:752:2: 752 | iMask, rMask, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:753:2: 753 | SumWeights, WeightSumTag, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:754:2: 754 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:755:2: 755 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:756:2: 756 | iMask, rMask, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:757:2: 757 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:758:2: 758 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:760:2: 760 | else ! compute local sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:762:2: 762 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:764:2: 764 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:765:2: 765 | iMask, rMask, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:766:2: 766 | SumWeights, WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:767:2: 767 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:768:2: 768 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:769:2: 769 | iMask, rMask, UseFastMethod) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:770:2: 770 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:772:2: 772 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:776:2: 776 | if(present(comm)) then ! compute distributed AllReduce-style sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:778:2: 778 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:780:2: 780 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:781:2: 781 | rMask=rMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:782:2: 782 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:783:2: 783 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:784:2: 784 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:785:2: 785 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:786:2: 786 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:787:2: 787 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:788:2: 788 | rMask=rMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:789:2: 789 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:790:2: 790 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:791:2: 791 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:793:2: 793 | else ! compute local sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:795:2: 795 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:797:2: 797 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:798:2: 798 | rMask=rMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:799:2: 799 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:800:2: 800 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:801:2: 801 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:802:2: 802 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:803:2: 803 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:804:2: 804 | rMask=rMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:805:2: 805 | UseFastMethod=UseFastMethod) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:806:2: 806 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:808:2: 808 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:815:2: 815 | if(present(comm)) then ! compute distributed AllReduce-style sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:817:2: 817 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:819:2: 819 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:820:2: 820 | iMask=iMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:821:2: 821 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:822:2: 822 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:823:2: 823 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:824:2: 824 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:825:2: 825 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:826:2: 826 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:827:2: 827 | iMask=iMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:828:2: 828 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:829:2: 829 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:830:2: 830 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:832:2: 832 | else ! compute local sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:834:2: 834 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:836:2: 836 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:837:2: 837 | iMask=iMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:838:2: 838 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:839:2: 839 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:840:2: 840 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:841:2: 841 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:842:2: 842 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:843:2: 843 | iMask=iMask, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:844:2: 844 | UseFastMethod=UseFastMethod) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:845:2: 845 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:847:2: 847 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:851:2: 851 | if(present(comm)) then ! compute distributed AllReduce-style sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:853:2: 853 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:855:2: 855 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:856:2: 856 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:857:2: 857 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:858:2: 858 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:859:2: 859 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:860:2: 860 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:861:2: 861 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:862:2: 862 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:863:2: 863 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:864:2: 864 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:866:2: 866 | else ! compute local sum: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:868:2: 868 | if(mySumWeights) then ! return the global masked sum of the | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:870:2: 870 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:871:2: 871 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:872:2: 872 | SumWeights=SumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:873:2: 873 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:874:2: 874 | else ! Do not return the masked sum of the weights | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:875:2: 875 | call MaskedSpatialIntegralV(inAv, outAv, SpatialWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:876:2: 876 | UseFastMethod=UseFastMethod) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:877:2: 877 | endif ! if(mySumWeights)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:879:2: 879 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:894:2: 894 | write(stderr,'(3a,i8)') myname_,':: deallocate(iMask(...) failed,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:896:2: 896 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:904:2: 904 | write(stderr,'(3a,i8)') myname_,':: deallocate(rMask(...) failed,', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:906:2: 906 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:964:4: 964 | comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1028:2: 1028 | if(present(comm)) then ! a distributed parallel sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1029:2: 1029 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1030:2: 1030 | SpatialWeightTag, iMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1031:2: 1031 | rMaskTags, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1032:2: 1032 | .TRUE., WeightSumTag, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1033:2: 1033 | else ! a purely local sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1034:2: 1034 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1035:2: 1035 | SpatialWeightTag, iMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1036:2: 1036 | rMaskTags, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1037:2: 1037 | .TRUE., WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1038:2: 1038 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1042:2: 1042 | if(present(comm)) then ! a distributed parallel sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1043:2: 1043 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1044:2: 1044 | SpatialWeightTag, iMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1045:2: 1045 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1046:2: 1046 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1047:2: 1047 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1048:2: 1048 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1050:2: 1050 | else ! a purely local sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1051:2: 1051 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1052:2: 1052 | SpatialWeightTag, iMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1053:2: 1053 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1054:2: 1054 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1055:2: 1055 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1056:2: 1056 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1064:2: 1064 | if(present(comm)) then ! a distributed parallel sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1065:2: 1065 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1066:2: 1066 | SpatialWeightTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1067:2: 1067 | rMaskTags=rMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1068:2: 1068 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1069:2: 1069 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1070:2: 1070 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1071:2: 1071 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1072:2: 1072 | else ! a purely local sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1073:2: 1073 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1074:2: 1074 | SpatialWeightTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1075:2: 1075 | rMaskTags=rMaskTags, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1076:2: 1076 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1077:2: 1077 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1078:2: 1078 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1079:2: 1079 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1083:2: 1083 | if(present(comm)) then ! a distributed parallel sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1084:2: 1084 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1085:2: 1085 | SpatialWeightTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1086:2: 1086 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1087:2: 1087 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1088:2: 1088 | WeightSumTag=WeightSumTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1089:2: 1089 | comm=comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1090:2: 1090 | else ! a purely local sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1091:2: 1091 | call MaskedSpatialIntegralRAttrGG_(inAv, integratedAv, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1092:2: 1092 | SpatialWeightTag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1093:2: 1093 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1094:2: 1094 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1095:2: 1095 | WeightSumTag=WeightSumTag) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1096:2: 1096 | endif ! if(present(comm))... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1127:2: 1127 | / integratedAv%rAttr(iweight,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1186:2: 1186 | SumWeights, comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1205:2: 1205 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1284:2: 1284 | inAv2, outAv2, gridweights2, WeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1359:2: 1359 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1397:2: 1397 | inAv2, integratedAv2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1398:2: 1398 | WeightTag2, .TRUE., comm) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1431:2: 1431 | / integratedAv1%rAttr(iweight1,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1436:2: 1436 | / integratedAv2%rAttr(iweight2,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1529:2: 1529 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1606:2: 1606 | call MaskedSpatialIntegralRAttrGG_(inAv1, outAv1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1607:2: 1607 | SpatialWeightTag1, iMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1608:2: 1608 | rMaskTags1, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1609:2: 1609 | mySumWeights, SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1611:2: 1611 | call MaskedSpatialIntegralRAttrGG_(inAv1, outAv1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1612:2: 1612 | SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1613:2: 1613 | iMaskTags=iMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1614:2: 1614 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1615:2: 1615 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1616:2: 1616 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1622:2: 1622 | call MaskedSpatialIntegralRAttrGG_(inAv1, outAv1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1623:2: 1623 | SpatialWeightTag=SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1624:2: 1624 | rMaskTags=rMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1625:2: 1625 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1626:2: 1626 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1627:2: 1627 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1629:2: 1629 | call MaskedSpatialIntegralRAttrGG_(inAv1, outAv1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1630:2: 1630 | SpatialWeightTag=SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1631:2: 1631 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1632:2: 1632 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1633:2: 1633 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1644:2: 1644 | call MaskedSpatialIntegralRAttrGG_(inAv2, outAv2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1645:2: 1645 | SpatialWeightTag2, iMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1646:2: 1646 | rMaskTags2, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1647:2: 1647 | mySumWeights, SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1649:2: 1649 | call MaskedSpatialIntegralRAttrGG_(inAv2, outAv2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1650:2: 1650 | SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1651:2: 1651 | iMaskTags=iMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1652:2: 1652 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1653:2: 1653 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1654:2: 1654 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1660:2: 1660 | call MaskedSpatialIntegralRAttrGG_(inAv2, outAv2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1661:2: 1661 | SpatialWeightTag=SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1662:2: 1662 | rMaskTags=rMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1663:2: 1663 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1664:2: 1664 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1665:2: 1665 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1667:2: 1667 | call MaskedSpatialIntegralRAttrGG_(inAv2, outAv2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1668:2: 1668 | SpatialWeightTag=SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1669:2: 1669 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1670:2: 1670 | SumWeights=mySumWeights, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1671:2: 1671 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1793:2: 1793 | LocalWeightedSumRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1867:2: 1867 | call MaskedSpatialIntegralRAttrGG_(inAv1, LocalIntegral1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1868:2: 1868 | SpatialWeightTag1, iMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1869:2: 1869 | rMaskTags1, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1870:2: 1870 | .TRUE., SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1872:2: 1872 | call MaskedSpatialIntegralRAttrGG_(inAv1, LocalIntegral1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1873:2: 1873 | SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1874:2: 1874 | iMaskTags=iMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1875:2: 1875 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1876:2: 1876 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1877:2: 1877 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1883:2: 1883 | call MaskedSpatialIntegralRAttrGG_(inAv1, LocalIntegral1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1884:2: 1884 | SpatialWeightTag=SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1885:2: 1885 | rMaskTags=rMaskTags1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1886:2: 1886 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1887:2: 1887 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1888:2: 1888 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1890:2: 1890 | call MaskedSpatialIntegralRAttrGG_(inAv1, LocalIntegral1, GGrid1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1891:2: 1891 | SpatialWeightTag=SpatialWeightTag1, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1892:2: 1892 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1893:2: 1893 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1894:2: 1894 | WeightSumTag=SpatialWeightTag1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1905:2: 1905 | call MaskedSpatialIntegralRAttrGG_(inAv2, LocalIntegral2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1906:2: 1906 | SpatialWeightTag2, iMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1907:2: 1907 | rMaskTags2, UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1908:2: 1908 | .TRUE., SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1910:2: 1910 | call MaskedSpatialIntegralRAttrGG_(inAv2, LocalIntegral2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1911:2: 1911 | SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1912:2: 1912 | iMaskTags=iMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1913:2: 1913 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1914:2: 1914 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1915:2: 1915 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1921:2: 1921 | call MaskedSpatialIntegralRAttrGG_(inAv2, LocalIntegral2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1922:2: 1922 | SpatialWeightTag=SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1923:2: 1923 | rMaskTags=rMaskTags2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1924:2: 1924 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1925:2: 1925 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1926:2: 1926 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1928:2: 1928 | call MaskedSpatialIntegralRAttrGG_(inAv2, LocalIntegral2, GGrid2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1929:2: 1929 | SpatialWeightTag=SpatialWeightTag2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1930:2: 1930 | UseFastMethod=UseFastMethod, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1931:2: 1931 | SumWeights=.TRUE., & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1932:2: 1932 | WeightSumTag=SpatialWeightTag2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SpatialIntegral.F90:1392:20: 1392 | integer :: i, ierr, iweight1, iweight2 | 1 Warning: Unused variable ‘ierr’ declared at (1) [-Wunused-variable] m_SpatialIntegral.F90:348:20: 348 | integer :: i, ierr, iweight | 1 Warning: Unused variable ‘ierr’ declared at (1) [-Wunused-variable] m_SpatialIntegral.F90:1996:0: 1996 | outAv1%rAttr(i,1) = WeightSumInv * OutPairedBuffer(i) | Warning: ‘weightsuminv’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_GlobalToLocal.F90 m_GlobalToLocal.F90:159:2: 159 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:160:2: 160 | start(count) = GSMap%start(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:161:2: 161 | length(count) = GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:176:2: 176 | start(n) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:178:2: 178 | start(n) = start(n-1) + length(n-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:274:2: 274 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:282:2: 282 | local_index = local_start + (i_g - GSMap%start(n)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:283:2: 283 | found = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:284:2: 284 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:285:2: 285 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:286:2: 286 | local_start = local_start + GSMap%length(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:717:17: 717 | end subroutine GlobalSegMapToLocalMatrix_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_GlobalToLocal.F90:669:27: 669 | integer :: i, GlobalIndex, gindex, lindex, lsize | 1 Warning: Unused variable ‘globalindex’ declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:581:47: 581 | integer :: myID, ierr, ngseg, nlseg, n, count | 1 Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:581:40: 581 | integer :: myID, ierr, ngseg, nlseg, n, count | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:500:18: 500 | integer :: count, ierr, ngseg, nlseg, n | 1 Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:502:24: 502 | integer :: local_start, local_index | 1 Warning: Unused variable ‘local_start’ declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:500:41: 500 | integer :: count, ierr, ngseg, nlseg, n | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:500:31: 500 | integer :: count, ierr, ngseg, nlseg, n | 1 Warning: Unused variable ‘ngseg’ declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:500:38: 500 | integer :: count, ierr, ngseg, nlseg, n | 1 Warning: Unused variable ‘nlseg’ declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:349:18: 349 | integer :: count, ierr, ngseg, nlseg | 1 Warning: Unused variable ‘count’ declared at (1) [-Wunused-variable] m_GlobalToLocal.F90:709:0: 709 | sMat%data%iAttr(lindex,i) = temp_lindex(i) | Warning: ‘lindex’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_GlobalToLocal.F90:703:0: 703 | temp_gindex(i) = sMat%data%iAttr(gindex,i) | Warning: ‘gindex’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_ConvertMaps.F90 m_ConvertMaps.F90:124:2: 124 | NumProcs,"size(GMap%displs) = ",size(GMap%displs)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:282:2: 282 | NumPEs,' NGSegs = ', NGSegs,'. See MCT API Document for more', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:285:2: 285 | status = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:286:2: 286 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:288:2: 288 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:299:2: 299 | status = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:300:2: 300 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:302:2: 302 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:324:2: 324 | write(stderr,'(3a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:327:2: 327 | n,'. Number of segments = ',NumSegs(n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:328:2: 328 | deallocate(NumSegs, stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:329:2: 329 | if(ierr /= 0) then ! problem cleaning up | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:330:2: 330 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:333:2: 333 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:334:2: 334 | if(present(status)) then ! return with error code | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:335:2: 335 | status = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:336:2: 336 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:337:2: 337 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:338:2: 338 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:339:2: 339 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:382:2: 382 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:384:2: 384 | convertible = .FALSE. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:385:2: 385 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:409:2: 409 | GMap%counts(GSMpe_locs(i)) = GSMlengths(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:413:2: 413 | GMap%displs(0) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:415:2: 415 | GMap%displs(i) = GMap%displs(i-1) + GMap%counts(i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ConvertMaps.F90:257:18: 257 | integer :: nlseg, NumActive, NumProcs, NumPEs, NGSegs | 1 Warning: Unused variable ‘nlseg’ declared at (1) [-Wunused-variable] m_ConvertMaps.F90:257:29: 257 | integer :: nlseg, NumActive, NumProcs, NumPEs, NGSegs | 1 Warning: Unused variable ‘numactive’ declared at (1) [-Wunused-variable] m_ConvertMaps.F90:257:39: 257 | integer :: nlseg, NumActive, NumProcs, NumPEs, NGSegs | 1 Warning: Unused variable ‘numprocs’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_ExchangeMaps.F90 m_ExchangeMaps.F90:192:2: 192 | RemoteRootID, SendTag, ThisMCTWorld%MCT_comm, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:198:2: 198 | RemoteRootID, RecvTag, ThisMCTWorld%MCT_comm, status, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:400:2: 400 | ierr = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:401:2: 401 | write(stderr,*) myname_,":: MCTERROR, Map Type mismatch ", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:403:2: 403 | RemoteMapPars(MapTypeIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:404:2: 404 | call die(myname_,'Map Type mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:408:2: 408 | ierr = 3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:409:2: 409 | write(stderr,*) myname_,":: MCTERROR, Grid Size mismatch ", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:411:2: 411 | RemoteMapPars(GsizeIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:412:2: 412 | call die(myname_,'Map Grid Size mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:416:2: 416 | ierr = 4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:417:2: 417 | write(stderr,*) myname_,":: MCTERROR, Component ID mismatch ", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:419:2: 419 | RemoteMapPars(ComponentIDIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:420:2: 420 | call die(myname_,'Component ID mismatch',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:438:2: 438 | LocalGSMap%start(1:local_ngseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:440:2: 440 | LocalGSMap%length(1:local_ngseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:442:2: 442 | LocalGSMap%pe_loc(1:local_ngseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:447:2: 447 | ThisMCTWorld) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:455:2: 455 | remote_root, SendTag, ThisMCTWorld%MCT_comm, req, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:461:2: 461 | remote_root, RecvTag, ThisMCTWorld%MCT_comm, status, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:470:2: 470 | length(RemoteMapPars(NumSegIndex)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:471:2: 471 | pe_loc(RemoteMapPars(NumSegIndex)), stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:470:2: 470 | length(RemoteMapPars(NumSegIndex)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:471:2: 471 | pe_loc(RemoteMapPars(NumSegIndex)), stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:504:2: 504 | RemoteCompID, RemoteMapPars(GsizeIndex)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:520:2: 520 | call die(myname_,'deallocate(SendBuf...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_ExchangeMaps.F90:377:24: 377 | integer :: myID, ngseg, remote_root,req | 1 Warning: Unused variable ‘ngseg’ declared at (1) [-Wunused-variable] m_ExchangeMaps.F90:219:0: 219 | subroutine LoadGlobalMapPars_(GMap, MapPars) | Warning: ‘loadglobalmappars_’ defined but not used [-Wunused-function] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_Router.F90 m_Router.F90:43:24: 43 | public :: Router ! The class data structure | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:63:25: 63 | integer :: nprocs ! number of procs to talk to | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:89:17: 89 | initp_ ! initialize a Router locally with two GSMaps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:141:27: 141 | integer, intent(in) :: othercomp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:142:27: 142 | integer, intent(in) :: mycomm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:167:14: 167 | integer :: ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:235:38: 235 | type(GlobalSegMap), intent(in) :: inGSMap | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:236:38: 236 | type(GlobalSegMap), intent(in) :: inRGSMap | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:237:15: 237 | integer , intent(in) :: mycomm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:241:38: 241 | type(Router), intent(out) :: Rout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:259:11: 259 | integer :: ier,i,j,k,m,n | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:260:11: 260 | integer :: mysize,myPid,othercomp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:261:11: 261 | integer :: lmaxsize,totallength | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:289:22: 289 | type(GlobalSegMap) :: GSMap | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:290:22: 290 | type(GlobalSegMap) :: RGSMap | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:472:3: 472 | tmppe_list(ThisMCTWorld%nprocspid(othercomp)),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:589:2: 589 | Rout%rreqs(count),Rout%ireqs(count),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:615:2: 615 | if(tmpsegcount(i,j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:616:2: 616 | Rout%num_segs(i)=j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:617:3: 617 | Rout%seg_starts(i,j)=tmpsegstart(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:618:2: 618 | Rout%seg_lengths(i,j)=tmpsegcount(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:619:2: 619 | totallength=totallength+Rout%seg_lengths(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:620:2: 620 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Router.F90:259:29: 259 | integer :: ier,i,j,k,m,n | 1 Warning: Unused variable ‘k’ declared at (1) [-Wunused-variable] m_Router.F90:297:32: 297 | integer,save :: t_initialized=0 ! rml timers | 1 Warning: Unused variable ‘t_initialized’ declared at (1) [-Wunused-variable] m_Router.F90:300:25: 300 | integer,save :: t_load ! rml timers | 1 Warning: Unused variable ‘t_load’ declared at (1) [-Wunused-variable] m_Router.F90:298:25: 298 | integer,save :: t_loop ! rml timers | 1 Warning: Unused variable ‘t_loop’ declared at (1) [-Wunused-variable] m_Router.F90:299:26: 299 | integer,save :: t_loop2 ! rml timers | 1 Warning: Unused variable ‘t_loop2’ declared at (1) [-Wunused-variable] m_Router.F90:281:62: 281 | integer,allocatable :: rgs_count(:),rgs_lb(:,:),rgs_ub(:,:) | ^ Warning: ‘rgs_ub.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:281:62: Warning: ‘rgs_ub.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:281:50: 281 | integer,allocatable :: rgs_count(:),rgs_lb(:,:),rgs_ub(:,:) | ^ Warning: ‘rgs_lb.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:281:50: Warning: ‘rgs_lb.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:264:51: 264 | integer, dimension(:,:), pointer :: tmpsegcount,tmpsegstart | ^ Warning: ‘tmpsegcount.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:264:51: Warning: ‘tmpsegcount.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:264:51: Warning: ‘tmpsegcount.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:264:51: Warning: ‘tmpsegcount.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:264:63: 264 | integer, dimension(:,:), pointer :: tmpsegcount,tmpsegstart | ^ Warning: ‘tmpsegstart.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:264:63: Warning: ‘tmpsegstart.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:264:63: Warning: ‘tmpsegstart.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:264:63: Warning: ‘tmpsegstart.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Router.F90:630:0: 630 | deallocate(tmpsegstart,tmpsegcount,tmppe_list,stat=ier) | Warning: ‘tmpsegstart.data’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_Rearranger.F90 m_Rearranger.F90:38:15: 38 | private ! except | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:171:2: 171 | SendingToMyself = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:177:2: 177 | ReceivingFromMyself = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:183:2: 183 | call die(myname_,"SendRouter is not compatible with RecvRouter") | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:217:2: 217 | temp_pe_list(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:234:2: 234 | allocate(OutRearranger%LocalPack(2, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:236:2: 236 | if(ier/=0) call die(myname_,'allocate(OutRearranger%LocalPack)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:237:2: 237 | OutRearranger%LocalPack = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:239:2: 239 | m=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:240:2: 240 | do nseg = 1,OutRearranger%SendRouter%num_segs(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:241:2: 241 | src_seg_start = OutRearranger%SendRouter%seg_starts(i,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:242:2: 242 | src_seg_length = OutRearranger%SendRouter%seg_lengths(i,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:243:2: 243 | do len=0,src_seg_length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:244:2: 244 | m=m+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:245:2: 245 | OutRearranger%LocalPack(2,m) = src_seg_start+len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:246:2: 246 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:247:2: 247 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:252:2: 252 | procindex = procindex+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:253:2: 253 | temp_seg_starts(procindex,1:maxsegcount) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:255:2: 255 | temp_seg_lengths(procindex,1:maxsegcount) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:257:2: 257 | temp_pe_list(procindex) = OutRearranger%SendRouter%pe_list(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:258:2: 258 | temp_numsegs(procindex) = OutRearranger%SendRouter%num_segs(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:259:2: 259 | temp_locsize(procindex) = OutRearranger%SendRouter%locsize(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:260:2: 260 | temp_maxsize = max(temp_locsize(procindex),temp_maxsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:271:2: 271 | OutRearranger%SendRouter%pe_list, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:280:2: 280 | OutRearranger%SendRouter%pe_list(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:281:2: 281 | OutRearranger%SendRouter%num_segs(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:280:2: 280 | OutRearranger%SendRouter%pe_list(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:281:2: 281 | OutRearranger%SendRouter%num_segs(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:318:2: 318 | temp_pe_list(temp_nprocs),temp_numsegs(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:333:2: 333 | if( (SIZE(OutRearranger%LocalPack,2) /= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:335:2: 335 | call die(myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:338:2: 338 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:340:2: 340 | OutRearranger%LocalSize = OutRearranger%RecvRouter%locsize(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:342:2: 342 | m=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:343:2: 343 | do nseg = 1,OutRearranger%RecvRouter%num_segs(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:344:2: 344 | trg_seg_start = OutRearranger%RecvRouter%seg_starts(i,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:345:2: 345 | trg_seg_length = OutRearranger%RecvRouter%seg_lengths(i,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:346:2: 346 | do len=0,trg_seg_length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:347:2: 347 | m=m+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:348:2: 348 | OutRearranger%LocalPack(1,m) = trg_seg_start+len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:349:2: 349 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:350:2: 350 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:355:2: 355 | procindex = procindex+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:356:2: 356 | temp_seg_starts(procindex,1:maxsegcount) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:357:2: 357 | OutRearranger%RecvRouter%seg_starts(i,1:maxsegcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:358:2: 358 | temp_seg_lengths(procindex,1:maxsegcount) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:360:2: 360 | temp_pe_list(procindex) = OutRearranger%RecvRouter%pe_list(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:361:2: 361 | temp_numsegs(procindex) = OutRearranger%RecvRouter%num_segs(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:362:2: 362 | temp_locsize(procindex) = OutRearranger%RecvRouter%locsize(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:363:2: 363 | temp_maxsize = max(temp_locsize(procindex),temp_maxsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:374:2: 374 | OutRearranger%RecvRouter%pe_list, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:383:2: 383 | OutRearranger%RecvRouter%pe_list(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:384:2: 384 | OutRearranger%RecvRouter%num_segs(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:383:2: 383 | OutRearranger%RecvRouter%pe_list(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:384:2: 384 | OutRearranger%RecvRouter%num_segs(temp_nprocs), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:463:2: 463 | status = ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:464:2: 464 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:474:2: 474 | status = ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:475:2: 475 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:487:2: 487 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:488:2: 488 | status=ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:489:2: 489 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:490:2: 490 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:492:2: 492 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:587:14: 587 | integer :: numi,numr,i,j,k,ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:746:2: 746 | do proc=1,SendRout%nprocs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:749:2: 749 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:751:2: 751 | allocate(ISendBuf(ISendSize),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:752:2: 752 | if(ier/=0) call die(myname_,'allocate(ISendBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:761:2: 761 | do proc=1,SendRout%nprocs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:764:2: 764 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:766:2: 766 | allocate(RSendBuf(RSendSize),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:767:2: 767 | if(ier/=0) call die(myname_,'allocate(RSendBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:782:2: 782 | do proc=1,RecvRout%nprocs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:785:2: 785 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:787:2: 787 | allocate(IRecvBuf(IRecvSize),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:788:2: 788 | if(ier/=0) call die(myname_,'allocate(IRecvBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:797:2: 797 | do proc=1,RecvRout%nprocs | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:800:2: 800 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:802:2: 802 | allocate(RRecvBuf(RRecvSize),stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:803:2: 803 | if(ier/=0) call die(myname_,'allocate(RRecvBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:900:2: 900 | if( (RecvRout%num_segs(proc) > 1) .or. DoSum ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:902:2: 902 | call MPI_IRECV(IRecvBuf(IRecvLoc(proc)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:903:2: 903 | RecvRout%locsize(proc)*numi,MP_INTEGER, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:904:2: 904 | RecvRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:905:2: 905 | ThisMCTWorld%MCT_comm,recv_ireqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:907:2: 907 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:909:2: 909 | call MPI_IRECV(TargetAV%iAttr(1,RecvRout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:910:2: 910 | RecvRout%locsize(proc)*numi,MP_INTEGER, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:914:2: 914 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:916:2: 916 | if(ier /= 0) call MP_perr_die(myname_,'MPI_IRECV(ints)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:927:2: 927 | if( (RecvRout%num_segs(proc) > 1) .or. DoSum ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:929:2: 929 | call MPI_IRECV(RRecvBuf(RRecvLoc(proc)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:930:2: 930 | RecvRout%locsize(proc)*numr,mp_Type_rp, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:931:2: 931 | RecvRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:932:2: 932 | ThisMCTWorld%MCT_comm,recv_rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:934:2: 934 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:936:2: 936 | call MPI_IRECV(TargetAV%rAttr(1,RecvRout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:937:2: 937 | RecvRout%locsize(proc)*numr,mp_Type_rp, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:938:2: 938 | RecvRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:939:2: 939 | ThisMCTWorld%MCT_comm,recv_rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:941:2: 941 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:943:2: 943 | if(ier /= 0) call MP_perr_die(myname_,'MPI_IRECV(reals)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:960:2: 960 | j=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:961:2: 961 | k=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:964:2: 964 | do nseg = 1,SendRout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:965:2: 965 | seg_start = SendRout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:966:2: 966 | seg_end = seg_start + SendRout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:967:2: 967 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:968:2: 968 | do AttrIndex = 1,numi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:969:2: 969 | ISendBuf(ISendLoc(proc)+j) = SourceAV%iAttr(AttrIndex,VectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:970:2: 970 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:971:2: 971 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:972:2: 972 | do AttrIndex = 1,numr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:973:2: 973 | RSendBuf(RSendLoc(proc)+k) = SourceAV%rAttr(AttrIndex,VectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:974:2: 974 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:975:2: 975 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:976:2: 976 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:977:2: 977 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:988:2: 988 | if( SendRout%num_segs(proc) > 1 ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:990:2: 990 | call MPI_ISEND(ISendBuf(ISendLoc(proc)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:991:2: 991 | SendRout%locsize(proc)*numi,MP_INTEGER, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:992:2: 992 | SendRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:993:2: 993 | ThisMCTWorld%MCT_comm,send_ireqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:995:2: 995 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:997:2: 997 | call MPI_ISEND(SourceAV%iAttr(1,SendRout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:998:2: 998 | SendRout%locsize(proc)*numi,MP_INTEGER, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1002:2: 1002 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1004:2: 1004 | if(ier /= 0) call MP_perr_die(myname_,'MPI_ISEND(ints)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1015:2: 1015 | if( SendRout%num_segs(proc) > 1 ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1017:2: 1017 | call MPI_ISEND(RSendBuf(RSendLoc(proc)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1018:2: 1018 | SendRout%locsize(proc)*numr,mp_Type_rp, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1019:2: 1019 | SendRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1020:2: 1020 | ThisMCTWorld%MCT_comm,send_rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1022:2: 1022 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1024:2: 1024 | call MPI_ISEND(SourceAV%rAttr(1,SendRout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1025:2: 1025 | SendRout%locsize(proc)*numr,mp_Type_rp, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1026:2: 1026 | SendRout%pe_list(proc),mytag, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1027:2: 1027 | ThisMCTWorld%MCT_comm,send_rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1029:2: 1029 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1031:2: 1031 | if(ier /= 0) call MP_perr_die(myname_,'MPI_ISEND(reals)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1079:2: 1079 | TargetAV%iAttr(IAttrIndex,TrgVectIndex) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1080:2: 1080 | SourceAV%iAttr(IAttrIndex,SrcVectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1083:2: 1083 | TargetAV%rAttr(RAttrIndex,TrgVectIndex) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1084:2: 1084 | SourceAV%rAttr(RAttrIndex,SrcVectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1113:2: 1113 | call MPI_WAITALL(SendRout%nprocs,send_ireqs,send_istatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1114:2: 1114 | if(ier /= 0) call MP_perr_die(myname_,'MPI_WAITALL(ints)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1120:2: 1120 | call MPI_WAITALL(SendRout%nprocs,send_rreqs,send_rstatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1121:2: 1121 | if(ier /= 0) call MP_perr_die(myname_,'MPI_WAITALL(reals)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1141:2: 1141 | call MPI_WAIT(recv_ireqs(proc),recv_istatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1143:2: 1143 | call MPI_WAITANY(RecvRout%nprocs,recv_ireqs,proc,recv_istatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1147:2: 1147 | if(DoSum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1151:2: 1151 | do nseg = 1,RecvRout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1152:2: 1152 | seg_start = RecvRout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1153:2: 1153 | seg_end = seg_start + RecvRout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1154:2: 1154 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1155:2: 1155 | do AttrIndex = 1,numi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1156:2: 1156 | TargetAV%iAttr(AttrIndex,VectIndex)= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1158:2: 1158 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1159:2: 1159 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1160:2: 1160 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1161:2: 1161 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1163:2: 1163 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1165:2: 1165 | if (( RecvRout%num_segs(proc) > 1 ) .or. (usealltoall)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1169:2: 1169 | do nseg = 1,RecvRout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1170:2: 1170 | seg_start = RecvRout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1171:2: 1171 | seg_end = seg_start + RecvRout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1172:2: 1172 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1173:2: 1173 | do AttrIndex = 1,numi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1174:2: 1174 | TargetAV%iAttr(AttrIndex,VectIndex)=IRecvBuf(IRecvLoc(proc)+j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1175:2: 1175 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1176:2: 1176 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1177:2: 1177 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1178:2: 1178 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1180:2: 1180 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1182:2: 1182 | endif ! end of if DoSum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1191:2: 1191 | if(DoSum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1193:2: 1193 | call MPI_WAIT(recv_rreqs(proc),recv_rstatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1195:2: 1195 | call MPI_WAITANY(RecvRout%nprocs,recv_rreqs,proc,recv_rstatus,ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1199:2: 1199 | if(DoSum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1203:2: 1203 | do nseg = 1,RecvRout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1204:2: 1204 | seg_start = RecvRout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1205:2: 1205 | seg_end = seg_start + RecvRout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1206:2: 1206 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1207:2: 1207 | do AttrIndex = 1,numr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1208:2: 1208 | TargetAV%rAttr(AttrIndex,VectIndex) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1210:2: 1210 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1211:2: 1211 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1212:2: 1212 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1213:2: 1213 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1215:2: 1215 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1217:2: 1217 | if (( RecvRout%num_segs(proc) > 1 ) .or. (usealltoall)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1221:2: 1221 | do nseg = 1,RecvRout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1222:2: 1222 | seg_start = RecvRout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1223:2: 1223 | seg_end = seg_start + RecvRout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1224:2: 1224 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1225:2: 1225 | do AttrIndex = 1,numr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1226:2: 1226 | TargetAV%rAttr(AttrIndex,VectIndex)=RRecvBuf(RRecvLoc(proc)+k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1227:2: 1227 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1228:2: 1228 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1229:2: 1229 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1230:2: 1230 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1232:2: 1232 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1234:2: 1234 | endif ! end if DoSum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1258:2: 1258 | deallocate(ISendBuf,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1259:2: 1259 | if(ier/=0) call die(myname_,'deallocate(ISendBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1266:2: 1266 | deallocate(RSendBuf,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1267:2: 1267 | if(ier/=0) call die(myname_,'deallocate(RSendBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1278:2: 1278 | deallocate(IRecvBuf,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1279:2: 1279 | if(ier/=0) call die(myname_,'deallocate(IRecvBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1286:2: 1286 | deallocate(RRecvBuf,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:1287:2: 1287 | if(ier/=0) call die(myname_,'deallocate(RRecvBuf)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Rearranger.F90:929:19: 902 | call MPI_IRECV(IRecvBuf(IRecvLoc(proc)), & | 2 ...... 929 | call MPI_IRECV(RRecvBuf(RRecvLoc(proc)), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_Rearranger.F90:1017:19: 990 | call MPI_ISEND(ISendBuf(ISendLoc(proc)), & | 2 ...... 1017 | call MPI_ISEND(RSendBuf(RSendLoc(proc)), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_Rearranger.F90:1100:24: 1094 | call MPI_Alltoallv(ISendBuf, ISendCnts, ISdispls, MP_INTEGER, & | 2 ...... 1100 | call MPI_Alltoallv(RSendBuf, RSendCnts, RSdispls, mp_Type_rp, & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_Rearranger.F90:587:24: 587 | integer :: numi,numr,i,j,k,ier | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] m_Rearranger.F90:148:17: 148 | integer :: i,j,k,l,m,n,ier | 1 Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable] m_Rearranger.F90:148:19: 148 | integer :: i,j,k,l,m,n,ier | 1 Warning: Unused variable ‘k’ declared at (1) [-Wunused-variable] m_Rearranger.F90:148:21: 148 | integer :: i,j,k,l,m,n,ier | 1 Warning: Unused variable ‘l’ declared at (1) [-Wunused-variable] m_Rearranger.F90:148:25: 148 | integer :: i,j,k,l,m,n,ier | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] m_Rearranger.F90:146:30: 146 | integer :: procindex,nprocs,nseg,len,myPid | 1 Warning: Unused variable ‘nprocs’ declared at (1) [-Wunused-variable] m_Rearranger.F90:143:52: 143 | integer,dimension(:,:),pointer :: temp_seg_starts,temp_seg_lengths | ^ Warning: ‘temp_seg_starts.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Rearranger.F90:143:52: Warning: ‘temp_seg_starts.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Rearranger.F90:143:69: 143 | integer,dimension(:,:),pointer :: temp_seg_starts,temp_seg_lengths | ^ Warning: ‘temp_seg_lengths.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Rearranger.F90:143:69: Warning: ‘temp_seg_lengths.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_SparseMatrixDecomp.F90 m_SparseMatrixDecomp.F90:587:2: 587 | call die(myname_,'non-root allocate(starts...',ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:670:2: 670 | num_elements-size(element_pe_locs)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:675:2: 675 | num_elements-size(elements)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:684:2: 684 | nsegs = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:690:2: 690 | if((elements(i) > elements(i-1) + 1) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:691:2: 691 | (element_pe_locs(i) /= element_pe_locs(i-1))) then ! new segment | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:692:2: 692 | nsegs = nsegs + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:693:2: 693 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:726:2: 726 | if((elements(i) > elements(i-1) + 1) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:727:2: 727 | (element_pe_locs(i) /= element_pe_locs(i-1))) then ! new segment | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:730:2: 730 | iseg = iseg + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:731:2: 731 | seg_starts(iseg) = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:732:2: 732 | seg_lengths(iseg) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:733:2: 733 | seg_pe_locs(iseg) = element_pe_locs(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:735:2: 735 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:738:2: 738 | seg_lengths(iseg) = seg_lengths(iseg) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixDecomp.F90:740:2: 740 | endif ! If new segment block | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_SparseMatrixComms.F90 m_SparseMatrixComms.F90:45:2: 45 | GM_gather_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:46:2: 46 | GSM_gather_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:157:2: 157 | call MP_perr_die(myname_,"MPI_COMM_RANK() failed",ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:179:2: 179 | write(stderr,*) myname_,":: AttrVect_Scatter(GsMat%data) failed--stat=", & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:180:2: 180 | ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:181:2: 181 | stat = ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:182:2: 182 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:184:2: 184 | call die(myname_,"call AttrVect_Scatter(GsMat%data,..",ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixComms.F90:199:2: 199 | call MP_perr_die(myname_,"MPI_Bcast(NumRowsColumns...",ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_SparseMatrixToMaps.F90 m_SparseMatrixToMaps.F90:37:2: 37 | SparseMatrixToXGlobalSegMap_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:41:2: 41 | SparseMatrixToYGlobalSegMap_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:400:2: 400 | nsegs = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:404:2: 404 | if(indices(i) > indices(i-1) + 1) then ! new segment | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:405:2: 405 | nsegs = nsegs + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:406:2: 406 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:426:2: 426 | nsegs = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:427:2: 427 | starts(nsegs) = indices(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:432:2: 432 | if(i == num_indices) then ! last point | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:433:2: 433 | if(indices(i) > indices(i-1) + 1) then ! new segment with 1 pt. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:435:2: 435 | lengths(nsegs) = indices(i-1) - starts(nsegs) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:436:2: 436 | nsegs = nsegs + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:437:2: 437 | starts(nsegs) = indices(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:438:2: 438 | lengths(nsegs) = 1 ! (just one point) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:439:2: 439 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:440:2: 440 | lengths(nsegs) = indices(i) - starts(nsegs) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:441:2: 441 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:442:2: 442 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:443:2: 443 | if(indices(i) > indices(i-1) + 1) then ! new segment | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:444:2: 444 | lengths(nsegs) = indices(i-1) - starts(nsegs) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:445:2: 445 | nsegs = nsegs + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:446:2: 446 | starts(nsegs) = indices(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:447:2: 447 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:448:2: 448 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixToMaps.F90:269:61: 269 | integer, dimension(:), allocatable :: gRow, element_pe_locs | 1 Warning: Unused variable ‘element_pe_locs’ declared at (1) [-Wunused-variable] m_SparseMatrixToMaps.F90:124:61: 124 | integer, dimension(:), allocatable :: gCol, element_pe_locs | 1 Warning: Unused variable ‘element_pe_locs’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_SparseMatrixPlus.F90 m_SparseMatrixPlus.F90:126:2: 126 | integer :: Tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:299:2: 299 | write(stderr,'(3a,i8,2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:303:2: 303 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:307:2: 307 | write(stderr,'(3a,i8,2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:311:2: 311 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:345:2: 345 | comm, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:348:2: 348 | root, comm, ComponentID) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:362:2: 362 | comm, ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:365:2: 365 | root, comm, ComponentID) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:528:2: 528 | root, comm, ComponentID) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:658:2: 658 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:659:2: 659 | status = myStatus | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:660:2: 660 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:661:2: 661 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:662:2: 662 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:665:2: 665 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:672:2: 672 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:673:2: 673 | status = myStatus | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:674:2: 674 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:675:2: 675 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:676:2: 676 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:679:2: 679 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:686:2: 686 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:687:2: 687 | status = myStatus | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:688:2: 688 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:689:2: 689 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:690:2: 690 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:693:2: 693 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:698:2: 698 | if(present(status)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:699:2: 699 | status = myStatus | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:700:2: 700 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:701:2: 701 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:702:2: 702 | write(stderr,'(3a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:705:2: 705 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:721:2: 721 | status = myStatus | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_SparseMatrixPlus.F90:722:2: 722 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_MatAttrVectMul.F90 m_MatAttrVectMul.F90:258:6: 258 | row = sMat%data%iAttr(irow,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:259:6: 259 | col = sMat%data%iAttr(icol,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:260:2: 260 | wgt = sMat%data%rAttr(iwgt,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:265:2: 265 | do m=1,num_indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:267:2: 267 | yAV%rAttr(m,row) = yAV%rAttr(m,row) + wgt * xAV%rAttr(m,col) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:269:4: 269 | end do ! m=1,num_indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:306:2: 306 | xAVindices, yAVindices) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:326:2: 326 | contiguous=.false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:358:2: 358 | row = sMat%data%iAttr(irow,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:359:2: 359 | col = sMat%data%iAttr(icol,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:360:2: 360 | wgt = sMat%data%rAttr(iwgt,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:364:4: 364 | do m=1,num_indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:365:2: 365 | yAV%rAttr(outxmin+m,row) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:366:2: 366 | yAV%rAttr(outxmin+m,row) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:367:2: 367 | wgt * xAV%rAttr(inxmin+m,col) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:374:2: 374 | row = sMat%data%iAttr(irow,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:375:2: 375 | col = sMat%data%iAttr(icol,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:376:2: 376 | wgt = sMat%data%rAttr(iwgt,n) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:380:4: 380 | do m=1,num_indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:381:2: 381 | yAV%rAttr(yAVindices(m),row) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:382:2: 382 | yAV%rAttr(yAVindices(m),row) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:383:2: 383 | wgt * xAV%rAttr(xAVindices(m),col) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:546:2: 546 | Vector=usevector,rList=rList,TrList=TrList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:549:2: 549 | Vector=usevector,rList=rList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:552:2: 552 | Vector=usevector) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_MatAttrVectMul.F90:622:2: 622 | String_ToChar(sMatPlus%Strategy),' not supported.' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_Merge.F90 m_Merge.F90:70:2: 70 | MergeThreeGGDP_ | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:254:2: 254 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:257:2: 257 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:263:2: 263 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:266:2: 266 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:328:2: 328 | call MergeInDataGGSP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:331:2: 331 | call MergeInDataGGSP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:333:2: 333 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:339:2: 339 | call MergeInDataGGSP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:341:2: 341 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:343:2: 343 | call MergeInDataGGSP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:345:2: 345 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:357:2: 357 | call MergeInDataGGSP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:360:2: 360 | call MergeInDataGGSP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:362:2: 362 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:368:2: 368 | call MergeInDataGGSP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:370:2: 370 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:372:2: 372 | call MergeInDataGGSP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:374:2: 374 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:386:2: 386 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:388:2: 388 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:389:2: 389 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:390:2: 390 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:394:2: 394 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:489:2: 489 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:492:2: 492 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:498:2: 498 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:501:2: 501 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:563:2: 563 | call MergeInDataGGDP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:566:2: 566 | call MergeInDataGGDP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:568:2: 568 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:574:2: 574 | call MergeInDataGGDP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:576:2: 576 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:578:2: 578 | call MergeInDataGGDP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:580:2: 580 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:592:2: 592 | call MergeInDataGGDP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:595:2: 595 | call MergeInDataGGDP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:597:2: 597 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:603:2: 603 | call MergeInDataGGDP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:605:2: 605 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:607:2: 607 | call MergeInDataGGDP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:609:2: 609 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:621:2: 621 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:623:2: 623 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:624:2: 624 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:625:2: 625 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:629:2: 629 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:820:2: 820 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:823:2: 823 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:829:2: 829 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:832:2: 832 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:902:2: 902 | call MergeInDataGGSP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:905:2: 905 | call MergeInDataGGSP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:907:2: 907 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:913:2: 913 | call MergeInDataGGSP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:915:2: 915 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:917:2: 917 | call MergeInDataGGSP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:919:2: 919 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:931:2: 931 | call MergeInDataGGSP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:934:2: 934 | call MergeInDataGGSP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:936:2: 936 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:942:2: 942 | call MergeInDataGGSP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:944:2: 944 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:946:2: 946 | call MergeInDataGGSP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:948:2: 948 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:960:2: 960 | call MergeInDataGGSP_(inAv3, iMaskTags3, rMaskTags3, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:963:2: 963 | call MergeInDataGGSP_(inAv3, iMaskTags=iMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:965:2: 965 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:971:2: 971 | call MergeInDataGGSP_(inAv3, rMaskTags=rMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:973:2: 973 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:975:2: 975 | call MergeInDataGGSP_(inAv3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:977:2: 977 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:989:2: 989 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:991:2: 991 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:992:2: 992 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:993:2: 993 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:997:2: 997 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1102:2: 1102 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1105:2: 1105 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1111:2: 1111 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1114:2: 1114 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1184:2: 1184 | call MergeInDataGGDP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1187:2: 1187 | call MergeInDataGGDP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1189:2: 1189 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1195:2: 1195 | call MergeInDataGGDP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1197:2: 1197 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1199:2: 1199 | call MergeInDataGGDP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1201:2: 1201 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1213:2: 1213 | call MergeInDataGGDP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1216:2: 1216 | call MergeInDataGGDP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1218:2: 1218 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1224:2: 1224 | call MergeInDataGGDP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1226:2: 1226 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1228:2: 1228 | call MergeInDataGGDP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1230:2: 1230 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1242:2: 1242 | call MergeInDataGGDP_(inAv3, iMaskTags3, rMaskTags3, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1245:2: 1245 | call MergeInDataGGDP_(inAv3, iMaskTags=iMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1247:2: 1247 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1253:2: 1253 | call MergeInDataGGDP_(inAv3, rMaskTags=rMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1255:2: 1255 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1257:2: 1257 | call MergeInDataGGDP_(inAv3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1259:2: 1259 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1271:2: 1271 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1273:2: 1273 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1274:2: 1274 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1275:2: 1275 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1279:2: 1279 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1492:2: 1492 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1495:2: 1495 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1502:2: 1502 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1505:2: 1505 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1583:2: 1583 | call MergeInDataGGSP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1586:2: 1586 | call MergeInDataGGSP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1588:2: 1588 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1594:2: 1594 | call MergeInDataGGSP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1596:2: 1596 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1598:2: 1598 | call MergeInDataGGSP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1600:2: 1600 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1612:2: 1612 | call MergeInDataGGSP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1615:2: 1615 | call MergeInDataGGSP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1617:2: 1617 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1623:2: 1623 | call MergeInDataGGSP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1625:2: 1625 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1627:2: 1627 | call MergeInDataGGSP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1629:2: 1629 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1641:2: 1641 | call MergeInDataGGSP_(inAv3, iMaskTags3, rMaskTags3, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1644:2: 1644 | call MergeInDataGGSP_(inAv3, iMaskTags=iMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1646:2: 1646 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1652:2: 1652 | call MergeInDataGGSP_(inAv3, rMaskTags=rMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1654:2: 1654 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1656:2: 1656 | call MergeInDataGGSP_(inAv3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1658:2: 1658 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1670:2: 1670 | call MergeInDataGGSP_(inAv4, iMaskTags4, rMaskTags4, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1673:2: 1673 | call MergeInDataGGSP_(inAv4, iMaskTags=iMaskTags4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1675:2: 1675 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1681:2: 1681 | call MergeInDataGGSP_(inAv4, rMaskTags=rMaskTags4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1683:2: 1683 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1685:2: 1685 | call MergeInDataGGSP_(inAv4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1687:2: 1687 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1699:2: 1699 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1701:2: 1701 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1702:2: 1702 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1703:2: 1703 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1707:2: 1707 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1823:2: 1823 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1826:2: 1826 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1833:2: 1833 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1836:2: 1836 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1914:2: 1914 | call MergeInDataGGDP_(inAv1, iMaskTags1, rMaskTags1, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1917:2: 1917 | call MergeInDataGGDP_(inAv1, iMaskTags=iMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1919:2: 1919 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1925:2: 1925 | call MergeInDataGGDP_(inAv1, rMaskTags=rMaskTags1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1927:2: 1927 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1929:2: 1929 | call MergeInDataGGDP_(inAv1, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1931:2: 1931 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1943:2: 1943 | call MergeInDataGGDP_(inAv2, iMaskTags2, rMaskTags2, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1946:2: 1946 | call MergeInDataGGDP_(inAv2, iMaskTags=iMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1948:2: 1948 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1954:2: 1954 | call MergeInDataGGDP_(inAv2, rMaskTags=rMaskTags2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1956:2: 1956 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1958:2: 1958 | call MergeInDataGGDP_(inAv2, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1960:2: 1960 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1972:2: 1972 | call MergeInDataGGDP_(inAv3, iMaskTags3, rMaskTags3, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1975:2: 1975 | call MergeInDataGGDP_(inAv3, iMaskTags=iMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1977:2: 1977 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1983:2: 1983 | call MergeInDataGGDP_(inAv3, rMaskTags=rMaskTags3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1985:2: 1985 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1987:2: 1987 | call MergeInDataGGDP_(inAv3, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:1989:2: 1989 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2001:2: 2001 | call MergeInDataGGDP_(inAv4, iMaskTags4, rMaskTags4, GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2004:2: 2004 | call MergeInDataGGDP_(inAv4, iMaskTags=iMaskTags4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2006:2: 2006 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2012:2: 2012 | call MergeInDataGGDP_(inAv4, rMaskTags=rMaskTags4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2014:2: 2014 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2016:2: 2016 | call MergeInDataGGDP_(inAv4, GGrid=GGrid, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2018:2: 2018 | WeightSum=WeightSum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2030:2: 2030 | invWeightSum = 1._FP / WeightSum(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2032:2: 2032 | write(stderr,'(2a,i8,a)') myname_,':: FATAL--WeightSum(', & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2033:2: 2033 | i,') is zero!' | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2034:2: 2034 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2038:2: 2038 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2178:2: 2178 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2181:2: 2181 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2187:2: 2187 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2190:2: 2190 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2237:2: 2237 | stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2239:2: 2239 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2241:2: 2241 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2256:2: 2256 | call List_get(DummStr, i, iMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2259:2: 2259 | call GeneralGrid_exportIAttr(GGrid, String_ToChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2260:2: 2260 | iDummy, length) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2262:2: 2262 | if(.not.(CheckMasks)) then ! Merely multiply iMask by iDummy: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2263:2: 2263 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2264:2: 2264 | iMask(j) = iMask(j) * iDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2265:2: 2265 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2266:2: 2266 | else ! check mask elements and include their effect on iMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2267:2: 2267 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2268:2: 2268 | select case(iDummy(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2269:2: 2269 | case(0) ! zeroes out iMask(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2270:2: 2270 | iMask(j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2271:2: 2271 | case(1) ! leaves iMask(j) untouched | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2272:2: 2272 | case default ! shut down with an error | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2273:2: 2273 | write(stderr,'(5a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2276:2: 2276 | String_ToChar(DummStr),'(',j,')=',iDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2277:2: 2277 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2278:2: 2278 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2279:2: 2279 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2280:2: 2280 | endif ! if(CheckMasks)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2282:2: 2282 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2296:2: 2296 | stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2298:2: 2298 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2300:2: 2300 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2315:2: 2315 | call List_get(DummStr, i, rMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2318:2: 2318 | call GeneralGrid_exportRAttr(GGrid, String_ToChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2319:2: 2319 | rDummy, length) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2321:2: 2321 | if(.not.(CheckMasks)) then ! Merely multiply rMask by rDummy: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2322:2: 2322 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2323:2: 2323 | rMask(j) = rMask(j) * rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2324:2: 2324 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2325:2: 2325 | else ! check mask elements and include their effect on rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2326:2: 2326 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2327:2: 2327 | if((iDummy(j) >= 0.) .and. (iDummy(j) <= 1.)) then ! in [0,1] | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2328:2: 2328 | rMask(j) = rMask(j) * rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2329:2: 2329 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2330:2: 2330 | write(stderr,'(5a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2333:2: 2333 | String_ToChar(DummStr),'(',j,')=',rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2334:2: 2334 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2335:2: 2335 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2336:2: 2336 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2337:2: 2337 | endif ! if(CheckMasks)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2339:2: 2339 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2365:2: 2365 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2366:2: 2366 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2367:2: 2367 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2368:2: 2368 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2369:2: 2369 | rMask(i) * iMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2370:2: 2370 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2372:2: 2372 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2373:2: 2373 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2374:2: 2374 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2375:2: 2375 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2376:2: 2376 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2377:2: 2377 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2378:2: 2378 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2379:2: 2379 | rMask(i) * iMask(i) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2380:2: 2380 | inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2381:2: 2381 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2383:2: 2383 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2384:2: 2384 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2385:2: 2385 | endif ! if(RAttrIdentical)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2389:2: 2389 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2390:2: 2390 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2391:2: 2391 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2392:2: 2392 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2393:2: 2393 | rMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2394:2: 2394 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2396:2: 2396 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2397:2: 2397 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2398:2: 2398 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2399:2: 2399 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2400:2: 2400 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2401:2: 2401 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2402:2: 2402 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2403:2: 2403 | rMask(i) * inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2404:2: 2404 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2406:2: 2406 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2407:2: 2407 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2408:2: 2408 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2416:2: 2416 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2417:2: 2417 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2418:2: 2418 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2419:2: 2419 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2420:2: 2420 | iMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2421:2: 2421 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2423:2: 2423 | WeightSum(i) = WeightSum(i) + iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2424:2: 2424 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2425:2: 2425 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2426:2: 2426 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2427:2: 2427 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2428:2: 2428 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2429:2: 2429 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2430:2: 2430 | iMask(i) * inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2431:2: 2431 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2433:2: 2433 | WeightSum(i) = WeightSum(i) + iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2434:2: 2434 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2435:2: 2435 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2439:2: 2439 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2440:2: 2440 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2441:2: 2441 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2442:2: 2442 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2443:2: 2443 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2445:2: 2445 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2446:2: 2446 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2447:2: 2447 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2448:2: 2448 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2449:2: 2449 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2450:2: 2450 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2451:2: 2451 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2452:2: 2452 | inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2453:2: 2453 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2455:2: 2455 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2456:2: 2456 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2457:2: 2457 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2469:2: 2469 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2471:2: 2471 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2479:2: 2479 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2481:2: 2481 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2489:2: 2489 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2491:2: 2491 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2593:2: 2593 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2596:2: 2596 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2602:2: 2602 | write(stderr,'(3a)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2605:2: 2605 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2652:2: 2652 | stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2654:2: 2654 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2656:2: 2656 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2671:2: 2671 | call List_get(DummStr, i, iMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2674:2: 2674 | call GeneralGrid_exportIAttr(GGrid, String_ToChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2675:2: 2675 | iDummy, length) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2677:2: 2677 | if(.not.(CheckMasks)) then ! Merely multiply iMask by iDummy: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2678:2: 2678 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2679:2: 2679 | iMask(j) = iMask(j) * iDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2680:2: 2680 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2681:2: 2681 | else ! check mask elements and include their effect on iMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2682:2: 2682 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2683:2: 2683 | select case(iDummy(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2684:2: 2684 | case(0) ! zeroes out iMask(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2685:2: 2685 | iMask(j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2686:2: 2686 | case(1) ! leaves iMask(j) untouched | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2687:2: 2687 | case default ! shut down with an error | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2688:2: 2688 | write(stderr,'(5a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2691:2: 2691 | String_ToChar(DummStr),'(',j,')=',iDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2692:2: 2692 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2693:2: 2693 | end select | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2694:2: 2694 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2695:2: 2695 | endif ! if(CheckMasks)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2697:2: 2697 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2711:2: 2711 | stat=ierr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2713:2: 2713 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2715:2: 2715 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2730:2: 2730 | call List_get(DummStr, i, rMaskList) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2733:2: 2733 | call GeneralGrid_exportRAttr(GGrid, String_ToChar(DummStr), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2734:2: 2734 | rDummy, length) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2736:2: 2736 | if(.not.(CheckMasks)) then ! Merely multiply rMask by rDummy: | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2737:2: 2737 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2738:2: 2738 | rMask(j) = rMask(j) * rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2739:2: 2739 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2740:2: 2740 | else ! check mask elements and include their effect on rMask | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2741:2: 2741 | do j=1,length | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2742:2: 2742 | if((iDummy(j) >= 0.) .and. (iDummy(j) <= 1.)) then ! in [0,1] | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2743:2: 2743 | rMask(j) = rMask(j) * rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2744:2: 2744 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2745:2: 2745 | write(stderr,'(5a,i8,a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2748:2: 2748 | String_ToChar(DummStr),'(',j,')=',rDummy(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2749:2: 2749 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2750:2: 2750 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2751:2: 2751 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2752:2: 2752 | endif ! if(CheckMasks)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2754:2: 2754 | call String_clean(DummStr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2780:2: 2780 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2781:2: 2781 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2782:2: 2782 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2783:2: 2783 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2784:2: 2784 | rMask(i) * iMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2785:2: 2785 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2787:2: 2787 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2788:2: 2788 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2789:2: 2789 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2790:2: 2790 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2791:2: 2791 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2792:2: 2792 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2793:2: 2793 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2794:2: 2794 | rMask(i) * iMask(i) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2795:2: 2795 | inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2796:2: 2796 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2798:2: 2798 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2799:2: 2799 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2800:2: 2800 | endif ! if(RAttrIdentical)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2804:2: 2804 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2805:2: 2805 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2806:2: 2806 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2807:2: 2807 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2808:2: 2808 | rMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2809:2: 2809 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2811:2: 2811 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2812:2: 2812 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2813:2: 2813 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2814:2: 2814 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2815:2: 2815 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2816:2: 2816 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2817:2: 2817 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2818:2: 2818 | rMask(i) * inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2819:2: 2819 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2821:2: 2821 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2822:2: 2822 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2823:2: 2823 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2831:2: 2831 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2832:2: 2832 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2833:2: 2833 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2834:2: 2834 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2835:2: 2835 | iMask(i) * inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2836:2: 2836 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2838:2: 2838 | WeightSum(i) = WeightSum(i) + iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2839:2: 2839 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2840:2: 2840 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2841:2: 2841 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2842:2: 2842 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2843:2: 2843 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2844:2: 2844 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2845:2: 2845 | iMask(i) * inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2846:2: 2846 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2848:2: 2848 | WeightSum(i) = WeightSum(i) + iMask(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2849:2: 2849 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2850:2: 2850 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2854:2: 2854 | if(RAttrIdentical) then ! straight masked multiply | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2855:2: 2855 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2856:2: 2856 | do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2857:2: 2857 | outAv%rAttr(j,i) = outAv%rAttr(j,i) + inAv%rAttr(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2858:2: 2858 | end do ! do j=1,AttrVect_nRAttr(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2860:2: 2860 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2861:2: 2861 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2862:2: 2862 | else ! use previously generated cross-indices | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2863:2: 2863 | do i=1, AttrVect_lsize(inAv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2864:2: 2864 | do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2865:2: 2865 | outAv%rAttr(outAVIndices(j),i) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2866:2: 2866 | outAv%rAttr(outAvIndices(j),i) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2867:2: 2867 | inAv%rAttr(inAvIndices(j),i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2868:2: 2868 | end do ! do j=1,NumSharedRAttr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2870:2: 2870 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2871:2: 2871 | end do ! do i=1,AttrVect_lsize(inAv)... | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2872:2: 2872 | endif ! if(RAttrIdentical) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2884:2: 2884 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2886:2: 2886 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2894:2: 2894 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2896:2: 2896 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2904:2: 2904 | write(stderr,'(2a,i8)') myname_, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2906:2: 2906 | call die(myname_) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Merge.F90:2372:22: 2372 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_Merge.F90:2383:22: 2383 | WeightSum(i) = WeightSum(i) + iMask(i) * rMask(i) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_Merge.F90:2396:22: 2396 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_Merge.F90:2406:22: 2406 | WeightSum(i) = WeightSum(i) + rMask(i) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_Merge.F90:2445:22: 2445 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_Merge.F90:2455:22: 2455 | WeightSum(i) = WeightSum(i) + 1._FP | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] m_Merge.F90:2892:0: 2892 | deallocate(rMask, rDummy, stat=ierr) | Warning: ‘rmask.data’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:2567:42: 2567 | real(FP), dimension(:), pointer :: rMask,rDummy ! REAL mask workspace | ^ Warning: ‘rmask.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:2882:0: 2882 | deallocate(iMask, iDummy, stat=ierr) | Warning: ‘imask.data’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:2566:42: 2566 | integer, dimension(:), pointer :: iMask,iDummy ! INTEGER mask workspace | ^ Warning: ‘imask.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:2477:0: 2477 | deallocate(rMask, rDummy, stat=ierr) | Warning: ‘rmask.data’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:2152:42: 2152 | real(FP), dimension(:), pointer :: rMask,rDummy ! REAL mask workspace | ^ Warning: ‘rmask.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:2467:0: 2467 | deallocate(iMask, iDummy, stat=ierr) | Warning: ‘imask.data’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:2151:42: 2151 | integer, dimension(:), pointer :: iMask,iDummy ! INTEGER mask workspace | ^ Warning: ‘imask.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:2038:0: 2038 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | Warning: ‘invweightsum’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:1707:0: 1707 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | Warning: ‘invweightsum’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:1279:0: 1279 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | Warning: ‘invweightsum’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:997:0: 997 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | Warning: ‘invweightsum’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:629:0: 629 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | Warning: ‘invweightsum’ may be used uninitialized in this function [-Wmaybe-uninitialized] m_Merge.F90:394:0: 394 | outAv%rAttr(j,i) = invWeightSum * outAv%rAttr(j,i) | Warning: ‘invweightsum’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu m_Transfer.F90 m_Transfer.F90:61:21: 61 | integer,parameter :: DefaultTag = 600 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:137:14: 137 | integer :: numi,numr,i,j,k,ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:216:2: 216 | seg_start = Rout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:217:2: 217 | seg_end = seg_start + Rout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:218:2: 218 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:219:2: 219 | do AttrIndex = 1,numi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:220:2: 220 | Rout%ip1(proc)%pi(j) = aV%iAttr(AttrIndex,VectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:221:2: 221 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:222:2: 222 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:223:2: 223 | do AttrIndex = 1,numr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:224:2: 224 | Rout%rp1(proc)%pr(k) = aV%rAttr(AttrIndex,VectIndex) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:225:2: 225 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:226:2: 226 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:227:2: 227 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:240:2: 240 | call MPI_ISEND(Rout%ip1(proc)%pi(1), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:241:2: 241 | Rout%locsize(proc)*numi,MP_INTEGER,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:242:2: 242 | mytag,ThisMCTWorld%MCT_comm,Rout%ireqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:244:2: 244 | if(ier /= 0) call MP_perr_die(myname_,'MPI_ISEND(ints)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:257:2: 257 | Rout%locsize(proc)*numr,mp_Type_rp1,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:258:2: 258 | mytag,ThisMCTWorld%MCT_comm,Rout%rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:315:2: 315 | deallocate(Rout%ip1(proc)%pi,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:316:2: 316 | if(ier/=0) call die(myname_,'deallocate(ip1%pi)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:327:2: 327 | deallocate(Rout%rp1(proc)%pr,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:328:2: 328 | if(ier/=0) call die(myname_,'deallocate(rp1%pi)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:371:48: 371 | Type(AttrVect), intent(in) :: aV | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:456:14: 456 | integer :: numi,numr,i,j,k,ier | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:524:2: 524 | if( Rout%num_segs(proc) > 1 .or. DoSum ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:526:2: 526 | call MPI_IRECV(Rout%ip1(proc)%pi(1), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:527:2: 527 | Rout%locsize(proc)*numi,MP_INTEGER,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:528:2: 528 | mytag,ThisMCTWorld%MCT_comm,Rout%ireqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:530:2: 530 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:532:2: 532 | call MPI_IRECV(aV%iAttr(1,Rout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:533:2: 533 | Rout%locsize(proc)*numi,MP_INTEGER,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:534:2: 534 | mytag,ThisMCTWorld%MCT_comm,Rout%ireqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:536:2: 536 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:538:2: 538 | if(ier /= 0) call MP_perr_die(myname_,'MPI_IRECV(ints)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:549:2: 549 | if( Rout%num_segs(proc) > 1 .or. DoSum ) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:551:2: 551 | call MPI_IRECV(Rout%rp1(proc)%pr(1), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:552:2: 552 | Rout%locsize(proc)*numr,mp_Type_rp1,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:553:2: 553 | mytag,ThisMCTWorld%MCT_comm,Rout%rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:555:2: 555 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:557:2: 557 | call MPI_IRECV(aV%rAttr(1,Rout%seg_starts(proc,1)), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:558:2: 558 | Rout%locsize(proc)*numr,mp_Type_rp1,Rout%pe_list(proc), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:559:2: 559 | mytag,ThisMCTWorld%MCT_comm,Rout%rreqs(proc),ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:561:2: 561 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:563:2: 563 | if(ier /= 0) call MP_perr_die(myname_,'MPI_IRECV(reals)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:649:2: 649 | k=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:651:2: 651 | if(DoSum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:653:2: 653 | do nseg = 1,Rout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:654:2: 654 | seg_start = Rout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:655:2: 655 | seg_end = seg_start + Rout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:656:2: 656 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:657:2: 657 | do AttrIndex = 1,Rout%numiatt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:658:2: 658 | aV%iAttr(AttrIndex,VectIndex)= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:659:2: 659 | aV%iAttr(AttrIndex,VectIndex)+Rout%ip1(proc)%pi(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:660:2: 660 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:661:2: 661 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:662:2: 662 | do AttrIndex = 1,Rout%numratt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:663:2: 663 | aV%rAttr(AttrIndex,VectIndex)= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:664:2: 664 | aV%rAttr(AttrIndex,VectIndex)+Rout%rp1(proc)%pr(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:665:2: 665 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:666:2: 666 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:667:2: 667 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:668:2: 668 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:669:2: 669 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:671:2: 671 | do nseg = 1,Rout%num_segs(proc) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:672:2: 672 | seg_start = Rout%seg_starts(proc,nseg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:673:2: 673 | seg_end = seg_start + Rout%seg_lengths(proc,nseg)-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:674:2: 674 | do VectIndex = seg_start,seg_end | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:675:2: 675 | do AttrIndex = 1,Rout%numiatt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:676:2: 676 | aV%iAttr(AttrIndex,VectIndex)=Rout%ip1(proc)%pi(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:677:2: 677 | j=j+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:678:2: 678 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:679:2: 679 | do AttrIndex = 1,Rout%numratt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:680:2: 680 | aV%rAttr(AttrIndex,VectIndex)=Rout%rp1(proc)%pr(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:681:2: 681 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:682:2: 682 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:683:2: 683 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:684:2: 684 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:738:2: 738 | deallocate(Rout%ip1(proc)%pi,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:739:2: 739 | if(ier/=0) call die(myname_,'deallocate(Rout%ip1%pi)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:748:2: 748 | deallocate(Rout%rp1(proc)%pr,stat=ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:749:2: 749 | if(ier/=0) call die(myname_,'deallocate(Rout%rp1%pr)',ier) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] m_Transfer.F90:551:19: 526 | call MPI_IRECV(Rout%ip1(proc)%pi(1), & | 2 ...... 551 | call MPI_IRECV(Rout%rp1(proc)%pr(1), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_Transfer.F90:256:22: 240 | call MPI_ISEND(Rout%ip1(proc)%pi(1), & | 2 ...... 256 | call MPI_ISEND(Rout%rp1(proc)%pr(1), & | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)). m_Transfer.F90:456:24: 456 | integer :: numi,numr,i,j,k,ier | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] m_Transfer.F90:456:26: 456 | integer :: numi,numr,i,j,k,ier | 1 Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable] m_Transfer.F90:456:28: 456 | integer :: numi,numr,i,j,k,ier | 1 Warning: Unused variable ‘k’ declared at (1) [-Wunused-variable] m_Transfer.F90:459:34: 459 | integer :: proc,numprocs,nseg,mytag | 1 Warning: Unused variable ‘nseg’ declared at (1) [-Wunused-variable] m_Transfer.F90:459:29: 459 | integer :: proc,numprocs,nseg,mytag | 1 Warning: Unused variable ‘numprocs’ declared at (1) [-Wunused-variable] m_Transfer.F90:458:33: 458 | integer :: seg_start,seg_end | 1 Warning: Unused variable ‘seg_end’ declared at (1) [-Wunused-variable] m_Transfer.F90:458:25: 458 | integer :: seg_start,seg_end | 1 Warning: Unused variable ‘seg_start’ declared at (1) [-Wunused-variable] m_Transfer.F90:137:24: 137 | integer :: numi,numr,i,j,k,ier | 1 Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -c -DSYSLINUX -DCPR -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mpeu mct_mod.F90 rm -f libmct.a ar cq libmct.a m_MCTWorld.o m_AttrVect.o m_GlobalMap.o m_GlobalSegMap.o m_GlobalSegMapComms.o m_Accumulator.o m_SparseMatrix.o m_Navigator.o m_AttrVectComms.o m_AttrVectReduce.o m_AccumulatorComms.o m_GeneralGrid.o m_GeneralGridComms.o m_SpatialIntegral.o m_SpatialIntegralV.o m_MatAttrVectMul.o m_Merge.o m_GlobalToLocal.o m_ExchangeMaps.o m_ConvertMaps.o m_SparseMatrixDecomp.o m_SparseMatrixToMaps.o m_SparseMatrixComms.o m_SparseMatrixPlus.o m_Router.o m_Rearranger.o m_Transfer.o mct_mod.o make[5]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir/mct' make[4]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/mctdir' make[3]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' make -f TopMakefileOasis3 makelibs make[3]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' => Compiling library scrip (cd /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip; cp -f /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/Makefile .;\ ( echo 'include /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//util/make_dir/make.inc' > infile; cat Makefile >> infile ; cp -f infile Makefile ) ; make all ) make[4]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/scrip' /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/kinds_mod.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/mod_oasis_flush.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/constants.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/iounits.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/grids.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_vars.F f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_vars.F:100:0: 100 | #endif TREAT_OVERLAY | Warning: extra tokens at end of #endif directive /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_vars.F:212:0: 212 | #endif TREAT_OVERLAY | Warning: extra tokens at end of #endif directive /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_vars.F:415:0: 415 | #endif TREAT_OVERLAY | Warning: extra tokens at end of #endif directive /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_vars.F:199:25: 199 | resize_increment = 0.1*max(grid1_size,grid2_size) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:126:2: 126 | CYCLE ! target point is masked | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:139:2: 139 | ila_nbr_found, bin, rl_plat, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:140:2: 140 | rl_plon, ld_extrapdone) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:162:2: 162 | IF (bin==0 .or. bin==1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:163:2: 163 | il_min=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:164:2: 164 | il_max=bin_addr1_r(2,3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:165:2: 165 | ELSE IF (bin==num_srch_red .or. bin==num_srch_red-1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:166:2: 166 | il_min=bin_addr1_r(1,num_srch_red-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:167:2: 167 | il_max=bin_addr1_r(2,num_srch_red) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:168:2: 168 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:169:2: 169 | il_min=bin_addr1_r(1,bin-1)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:170:2: 170 | il_max=bin_addr1_r(2,bin+2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:171:2: 171 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:173:2: 173 | rl_coslat_dst = COS(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:174:2: 174 | rl_sinlat_dst = SIN(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:175:2: 175 | rl_coslon_dst = COS(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:176:2: 176 | rl_sinlon_dst = SIN(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:178:2: 178 | rla_weight(1,1) = bignum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:179:2: 179 | ila_src_add(1,1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:181:2: 181 | DO ib_i=il_min, il_max | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:182:2: 182 | IF (grid1_mask(ib_i) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:184:2: 184 | (rl_coslon_dst*COS(grid1_center_lon(ib_i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:185:2: 185 | rl_sinlon_dst*SIN(grid1_center_lon(ib_i)))+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:186:2: 186 | rl_sinlat_dst*SIN(grid1_center_lat(ib_i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:192:2: 192 | rl_distance = ACOS(arg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:193:2: 193 | IF (rl_distance < rla_weight(1,1)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:194:2: 194 | rla_weight(1,1) = rl_distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:195:2: 195 | ila_src_add(1,1) = ib_i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:196:2: 196 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:197:2: 197 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:198:2: 198 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:199:2: 199 | rla_weight(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:200:2: 200 | rla_weight(1,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:202:2: 202 | CALL store_link_bicub(ib_dst_add, ila_src_add, rla_weight) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:219:2: 219 | DO ib_i=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:220:2: 220 | IF (ila_nbr_found(ib_i)==1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:221:2: 221 | rla_weight(ib_i,1)=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:222:2: 222 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:223:2: 223 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:224:2: 224 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:225:2: 225 | CALL store_link_bicub(ib_dst_add, ila_src_add, rla_weight) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:226:2: 226 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:231:2: 231 | rl_coslat_dst = COS(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:232:2: 232 | rl_sinlat_dst = SIN(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:233:2: 233 | rl_coslon_dst = COS(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:234:2: 234 | rl_sinlon_dst = SIN(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:236:2: 236 | rl_distance=0 ! count of total distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:237:2: 237 | DO ib_i=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:238:2: 238 | IF (ila_nbr_found(ib_i) > 0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:240:2: 240 | (rl_coslon_dst*COS(rla_src_lons(ib_i,1)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:241:2: 241 | rl_sinlon_dst*SIN(rla_src_lons(ib_i,1)))+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:242:2: 242 | rl_sinlat_dst*SIN(rla_src_lats(ib_i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:248:2: 248 | rla_weight(ib_i,1) = ACOS(arg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:249:2: 249 | rl_distance = rl_distance+rla_weight(ib_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:250:2: 250 | IF (ila_nbr_found(ib_i)==2) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:252:2: 252 | (rl_coslon_dst*COS(rla_src_lons(ib_i,2)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:253:2: 253 | rl_sinlon_dst*SIN(rla_src_lons(ib_i,2)))+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:254:2: 254 | rl_sinlat_dst*SIN(rla_src_lats(ib_i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:260:2: 260 | rla_weight(ib_i,2) = ACOS(arg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:261:2: 261 | rl_distance = rl_distance+rla_weight(ib_i,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:262:2: 262 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:263:2: 263 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:264:2: 264 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:265:2: 265 | rla_weight=rla_weight/rl_distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:267:2: 267 | CALL store_link_bicub(ib_dst_add, ila_src_add, rla_weight) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:268:2: 268 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:274:2: 274 | ila_nbr_found(1)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:275:2: 275 | ila_src_add(1,1)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:278:2: 278 | ila_nbr_found(4)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:279:2: 279 | ila_src_add(4,1)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:285:2: 285 | ila_add_dist(:)=4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:286:2: 286 | rla_dist(:)=bignum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:289:2: 289 | DO ib_i=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:290:2: 290 | IF (ila_nbr_found(ib_i) > 1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:291:2: 291 | rl_distance=ABS(rla_src_lats(ib_i)-rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:292:2: 292 | ELSE IF (ila_nbr_found(ib_i)==1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:293:2: 293 | rl_coslat_dst = COS(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:294:2: 294 | rl_sinlat_dst = SIN(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:295:2: 295 | rl_coslon_dst = COS(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:296:2: 296 | rl_sinlon_dst = SIN(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:298:2: 298 | (rl_coslon_dst*COS(rla_src_lons(ib_i,1)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:299:2: 299 | rl_sinlon_dst*SIN(rla_src_lons(ib_i,1)))+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:300:2: 300 | rl_sinlat_dst*SIN(rla_src_lats(ib_i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:306:2: 306 | rl_distance= ACOS(arg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:307:2: 307 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:308:2: 308 | rl_distance=bignum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:309:2: 309 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:311:2: 311 | IF (rl_distance < rla_dist(1)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:312:2: 312 | ila_add_dist(2)=ila_add_dist(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:313:2: 313 | ila_add_dist(1)=ib_i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:314:2: 314 | rla_dist(2)=rla_dist(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:315:2: 315 | rla_dist(1)=rl_distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:316:2: 316 | ELSE IF (rl_distance < rla_dist(2)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:317:2: 317 | ila_add_dist(2)=ib_i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:318:2: 318 | rla_dist(2)=rl_distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:319:2: 319 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:320:2: 320 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:322:2: 322 | IF (ila_nbr_found(ila_add_dist(1))>1 .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:323:2: 323 | ila_nbr_found(ila_add_dist(2))>1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:325:2: 325 | ll_linear=.true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:326:2: 326 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:328:2: 328 | rla_wght_lon(:,:)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:329:2: 329 | DO ib_i=1,2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:330:2: 330 | SELECT CASE (ila_nbr_found(ila_add_dist(ib_i))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:331:2: 331 | CASE (4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:332:2: 332 | CALL calcul_wght_irreg(rla_src_lons(ila_add_dist(ib_i),:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:333:2: 333 | rl_plon, rla_wght_lon(ila_add_dist(ib_i),:)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:334:2: 334 | rla_wght_lon(ila_add_dist(ib_i),:)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:335:2: 335 | rla_wght_lon(ila_add_dist(ib_i),:)/& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:336:2: 336 | rla_dist(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:337:2: 337 | CASE (3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:338:2: 338 | CALL calcul_wght_3(rla_src_lons(ila_add_dist(ib_i),1:3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:339:2: 339 | rl_plon, rla_wght_lon(ila_add_dist(ib_i),1:3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:340:2: 340 | rla_wght_lon(ila_add_dist(ib_i),1:3)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:341:2: 341 | rla_wght_lon(ila_add_dist(ib_i),1:3)/& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:342:2: 342 | rla_dist(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:343:2: 343 | CASE (2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:344:2: 344 | CALL calcul_wght_2(rla_src_lons(ila_add_dist(ib_i),1:2),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:345:2: 345 | rl_plon, rla_wght_lon(ila_add_dist(ib_i),1:2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:346:2: 346 | rla_wght_lon(ila_add_dist(ib_i),1:2)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:347:2: 347 | rla_wght_lon(ila_add_dist(ib_i),1:2)/& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:348:2: 348 | rla_dist(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:349:2: 349 | CASE (1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:350:2: 350 | rla_wght_lon(ila_add_dist(ib_i),1)=1/rla_dist(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:351:2: 351 | END SELECT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:352:2: 352 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:353:2: 353 | rl_distance=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:354:2: 354 | DO ib_i=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:355:2: 355 | rl_distance=rl_distance + sum(rla_wght_lon(ib_i,:)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:356:2: 356 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:357:2: 357 | rla_weight(:,:)=rla_wght_lon(:,:)/rl_distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:359:2: 359 | CALL store_link_bicub(ib_dst_add, ila_src_add , rla_weight) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:360:2: 360 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:361:2: 361 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:370:2: 370 | SELECT CASE (ila_nbr_found(ib_i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:371:2: 371 | CASE (4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:372:2: 372 | CALL calcul_wght_irreg(rla_src_lons(ib_i,:), rl_plon, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:373:2: 373 | rla_wght_lon(ib_i,:)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:374:2: 374 | CASE (3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:375:2: 375 | CALL calcul_wght_3(rla_src_lons(ib_i,1:3), rl_plon, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:376:2: 376 | rla_wght_lon(ib_i,1:3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:377:2: 377 | CASE (2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:378:2: 378 | CALL calcul_wght_2(rla_src_lons(ib_i,1:2), rl_plon, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:379:2: 379 | rla_wght_lon(ib_i,1:2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:380:2: 380 | END SELECT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:385:2: 385 | rla_wght_lat(:)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:386:2: 386 | CALL calcul_wght_2(rla_src_lats(ila_add_dist(:)), rl_plat, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:387:2: 387 | rla_wght_temp(1:2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:388:2: 388 | rla_wght_lat(ila_add_dist(1))=rla_wght_temp(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:389:2: 389 | rla_wght_lat(ila_add_dist(2))=rla_wght_temp(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:390:2: 390 | DO ib_i=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:391:2: 391 | rla_weight(ib_i,:)=rla_wght_lat(ib_i)*rla_wght_lon(ib_i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:392:2: 392 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:394:2: 394 | CALL store_link_bicub(ib_dst_add, ila_src_add , rla_weight) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:395:2: 395 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:405:2: 405 | IF (ila_nbr_found(ib_i)/=0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:406:2: 406 | il_count=il_count+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:407:2: 407 | rla_lats_temp(il_count)=rla_src_lats(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:408:2: 408 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:412:19: 412 | CASE (4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:413:2: 413 | CALL calcul_wght_irreg(rla_lats_temp, rl_plat, rla_wght_temp(:)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:415:2: 415 | CALL calcul_wght_3(rla_lats_temp(1:3), rl_plat, rla_wght_temp(1:3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:417:2: 417 | CALL calcul_wght_2(rla_lats_temp(1:2), rl_plat, rla_wght_temp(1:2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:419:2: 419 | rla_wght_temp(1)=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:424:2: 424 | IF (ila_nbr_found(ib_i)/=0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:425:2: 425 | il_count=il_count+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:426:2: 426 | rla_wght_lat(ib_i)=rla_wght_temp(il_count) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:427:2: 427 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:428:2: 428 | rla_wght_lat(ib_i)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:429:2: 429 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:437:2: 437 | rla_weight(ib_i,:)=rla_wght_lat(ib_i)*rla_wght_lon(ib_i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:462:2: 462 | rd_plon, ld_extrapdone) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:521:2: 521 | bin=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:522:2: 522 | ila_corners(1:2,1:2)= 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:523:2: 523 | ila_corners(3,1)= bin_addr1_r(1,1)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:524:2: 524 | ila_corners(3,2)= bin_addr1_r(2,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:525:2: 525 | ila_corners(4,1)= bin_addr1_r(1,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:526:2: 526 | ila_corners(4,2)= bin_addr1_r(2,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:529:2: 529 | bin=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:530:2: 530 | ila_corners(1,1:2)= 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:531:2: 531 | ila_corners(2,1)= bin_addr1_r(1,1)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:532:2: 532 | ila_corners(2,2)= bin_addr1_r(2,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:533:2: 533 | ila_corners(3,1)= bin_addr1_r(1,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:534:2: 534 | ila_corners(3,2)= bin_addr1_r(2,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:535:2: 535 | ila_corners(4,1)= bin_addr1_r(1,3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:536:2: 536 | ila_corners(4,2)= bin_addr1_r(2,3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:540:2: 540 | bin=num_srch_red | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:541:2: 541 | ila_corners(1,1) = bin_addr1_r(1,num_srch_red-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:542:2: 542 | ila_corners(1,2) = bin_addr1_r(2,num_srch_red-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:543:2: 543 | ila_corners(2,1) = bin_addr1_r(1,num_srch_red) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:544:2: 544 | ila_corners(2,2) = bin_addr1_r(2,num_srch_red) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:545:2: 545 | ila_corners(3:4,1:2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:550:2: 550 | bin=num_srch_red-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:551:2: 551 | ila_corners(1,1) = bin_addr1_r(1,num_srch_red-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:552:2: 552 | ila_corners(1,2) = bin_addr1_r(2,num_srch_red-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:553:2: 553 | ila_corners(2,1) = bin_addr1_r(1,num_srch_red-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:554:2: 554 | ila_corners(2,2) = bin_addr1_r(2,num_srch_red-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:555:2: 555 | ila_corners(3,1) = bin_addr1_r(1,num_srch_red) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:556:2: 556 | ila_corners(3,2) = bin_addr1_r(2,num_srch_red) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:557:2: 557 | ila_corners(4,1:2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:559:2: 559 | il_min=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:560:2: 560 | il_max=num_srch_red-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:561:2: 561 | DO WHILE (il_min /= il_max-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:562:2: 562 | il_inter=(il_max-il_min)/2 + il_min | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:563:2: 563 | IF (rd_plat <= bin_lats_r(1,il_min) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:564:2: 564 | rd_plat > bin_lats_r(1,il_inter)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:565:2: 565 | il_max=il_inter | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:566:2: 566 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:567:2: 567 | il_min=il_inter | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:568:2: 568 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:569:2: 569 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:570:2: 570 | bin=il_min | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:571:2: 571 | ila_corners(1,1) = bin_addr1_r(1,bin-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:572:2: 572 | ila_corners(1,2) = bin_addr1_r(2,bin-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:573:2: 573 | ila_corners(2,1) = bin_addr1_r(1,bin) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:574:2: 574 | ila_corners(2,2) = bin_addr1_r(2,bin) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:575:2: 575 | ila_corners(3,1) = bin_addr1_r(1,bin+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:576:2: 576 | ila_corners(3,2) = bin_addr1_r(2,bin+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:577:2: 577 | ila_corners(4,1) = bin_addr1_r(1,bin+2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:578:2: 578 | ila_corners(4,2) = bin_addr1_r(2,bin+2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:580:2: 580 | IF (ila_corners(1,1)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:581:2: 581 | ila_corners(1,1)=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:582:2: 582 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:600:2: 600 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:606:52: 606 | IF (rd_plon < grid1_center_lon(il_min)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:607:2: 607 | DO ib_j=il_max-1, il_max | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:608:2: 608 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:609:2: 609 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:610:2: 610 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:611:2: 611 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:612:2: 612 | grid1_center_lon(ib_j)-pi2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:613:2: 613 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:614:2: 614 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:615:2: 615 | DO ib_j=il_min, il_min+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:616:2: 616 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:617:2: 617 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:618:2: 618 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:619:2: 619 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:620:2: 620 | grid1_center_lon(ib_j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:621:2: 621 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:622:2: 622 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:625:2: 625 | IF (grid1_mask(il_max) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:626:2: 626 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:627:2: 627 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = il_max | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:628:2: 628 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:629:2: 629 | grid1_center_lon(il_max)-pi2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:630:2: 630 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:631:2: 631 | DO ib_j=il_min, il_min+2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:632:2: 632 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:633:2: 633 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:634:2: 634 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:635:2: 635 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:636:2: 636 | grid1_center_lon(ib_j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:637:2: 637 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:638:2: 638 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:641:2: 641 | DO ib_j=il_max-1, il_max | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:642:2: 642 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:643:2: 643 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:644:2: 644 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:645:2: 645 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:646:2: 646 | grid1_center_lon(ib_j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:647:2: 647 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:648:2: 648 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:649:2: 649 | DO ib_j=il_min, il_min+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:650:2: 650 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:651:2: 651 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:652:2: 652 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:653:2: 653 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:654:2: 654 | grid1_center_lon(ib_j)+pi2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:655:2: 655 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:656:2: 656 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:659:2: 659 | DO ib_j=il_max-2, il_max | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:660:2: 660 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:661:2: 661 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:662:2: 662 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:663:2: 663 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:664:2: 664 | grid1_center_lon(ib_j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:665:2: 665 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:666:2: 666 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:667:2: 667 | IF (grid1_mask(il_min) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:668:2: 668 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:669:2: 669 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = il_min | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:670:2: 670 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:671:2: 671 | grid1_center_lon(il_min)+pi2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:672:2: 672 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:674:13: 674 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:676:2: 676 | DO WHILE (il_min/=il_max-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:677:2: 677 | il_inter=(il_max-il_min)/2 + il_min | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:678:2: 678 | IF (rd_plon >= grid1_center_lon(il_min) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:679:2: 679 | rd_plon < grid1_center_lon(il_inter)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:680:2: 680 | il_max=il_inter | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:681:2: 681 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:682:2: 682 | il_min=il_inter | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:683:2: 683 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:684:2: 684 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:685:2: 685 | DO ib_i= il_min-1, il_min+2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:686:2: 686 | IF (grid1_mask(ib_i) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:687:2: 687 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:688:2: 688 | ida_src_add(ib_k,ida_nbr_found(ib_k))=ib_i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:689:2: 689 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:690:2: 690 | grid1_center_lon(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:691:2: 691 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:692:2: 692 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:756:2: 756 | rl_t1 = 1/rda_x(1) - 1/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:757:2: 757 | rl_t2 = 1/rda_x(1)**2 - 1/rda_x(2)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:758:2: 758 | rl_t3 = 1/rda_x(1)**3 - 1/rda_x(2)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:759:2: 759 | rl_t4 = 1/rda_x(1) - 1/rda_x(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:760:2: 760 | rl_t5 = 1/rda_x(1)**2 - 1/rda_x(3)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:761:2: 761 | rl_t6 = 1/rda_x(1)**3 - 1/rda_x(3)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:762:2: 762 | rl_t7 = 1/rda_x(1) - 1/rda_x(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:763:2: 763 | rl_t8 = 1/rda_x(1)**2 - 1/rda_x(4)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:764:2: 764 | rl_t9 = 1/rda_x(1)**3 - 1/rda_x(4)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:766:2: 766 | rl_u1 = rl_t2/rl_t1 - rl_t5/rl_t4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:767:2: 767 | rl_u2 = rl_t3/rl_t1 - rl_t6/rl_t4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:768:2: 768 | rl_u3 = rl_t2/rl_t1 - rl_t8/rl_t7 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:769:2: 769 | rl_u4 = rl_t3/rl_t1 - rl_t9/rl_t7 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:771:2: 771 | rl_k1 = (1/(rl_t1*rl_u1)-1/(rl_t1*rl_u3)) / (rl_u2/rl_u1-rl_u4/rl_u3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:772:2: 772 | rl_k2 = -1/(rl_t4*rl_u1) / (rl_u2/rl_u1-rl_u4/rl_u3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:773:2: 773 | rl_k3 = 1/(rl_t7*rl_u3) / (rl_u2/rl_u1-rl_u4/rl_u3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:776:2: 776 | rl_d1=(rl_k1+rl_k2+rl_k3)/rda_x(1)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:777:2: 777 | rl_d2 = -rl_k1/rda_x(2)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:778:2: 778 | rl_d3 = -rl_k2/rda_x(3)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:779:2: 779 | rl_d4 = -rl_k3/rda_x(4)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:781:2: 781 | rl_c1 = 1/rl_u1*(1/(rl_t1*rda_x(1)**3)-1/(rl_t4*rda_x(1)**3)- & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:782:2: 782 | rl_u2*rl_d1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:783:2: 783 | rl_c2 = 1/rl_u1*(1/(-rl_t1*rda_x(2)**3)-rl_u2*rl_d2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:784:2: 784 | rl_c3 = 1/rl_u1*(1/(rl_t4*rda_x(3)**3)-rl_u2*rl_d3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:785:2: 785 | rl_c4 = 1/rl_u1*(-rl_u2*rl_d4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:787:2: 787 | rl_b1 = 1/rl_t1/rda_x(1)**3-rl_t2/rl_t1*rl_c1-rl_t3/rl_t1*rl_d1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:788:2: 788 | rl_b2 = -1/rl_t1/rda_x(2)**3-rl_t2/rl_t1*rl_c2-rl_t3/rl_t1*rl_d2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:789:2: 789 | rl_b3 = -rl_t2/rl_t1*rl_c3-rl_t3/rl_t1*rl_d3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:790:2: 790 | rl_b4 = -rl_t2/rl_t1*rl_c4-rl_t3/rl_t1*rl_d4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:792:2: 792 | rl_a1 = 1/rda_x(1)**3-1/rda_x(1)*rl_b1-1/rda_x(1)**2*rl_c1- & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:793:2: 793 | 1/rda_x(1)**3*rl_d1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:794:2: 794 | rl_a2 = -1/rda_x(1)*rl_b2-1/rda_x(1)**2*rl_c2-1/rda_x(1)**3*rl_d2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:795:2: 795 | rl_a3 = -1/rda_x(1)*rl_b3-1/rda_x(1)**2*rl_c3-1/rda_x(1)**3*rl_d3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:796:2: 796 | rl_a4 = -1/rda_x(1)*rl_b4-1/rda_x(1)**2*rl_c4-1/rda_x(1)**3*rl_d4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:799:2: 799 | rda_wght(1) = rl_a1*rd_pt**3 + rl_b1*rd_pt**2 + rl_c1*rd_pt + rl_d1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:800:2: 800 | rda_wght(2) = rl_a2*rd_pt**3 + rl_b2*rd_pt**2 + rl_c2*rd_pt + rl_d2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:801:2: 801 | rda_wght(3) = rl_a3*rd_pt**3 + rl_b3*rd_pt**2 + rl_c3*rd_pt + rl_d3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:802:2: 802 | rda_wght(4) = rl_a4*rd_pt**3 + rl_b4*rd_pt**2 + rl_c4*rd_pt + rl_d4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:806:2: 806 | rl_d1=0; rl_d2=0; rl_d3=0; rl_d4=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:809:2: 809 | IF (rda_x(1)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:810:2: 810 | rl_y1=rda_x(2); rl_y2=rda_x(3); rl_y3=rda_x(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:811:2: 811 | rl_d1=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:812:2: 812 | ELSE IF (rda_x(2)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:813:2: 813 | rl_y1=rda_x(1); rl_y2=rda_x(3); rl_y3=rda_x(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:814:2: 814 | rl_d2=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:815:2: 815 | ELSE IF (rda_x(3)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:816:2: 816 | rl_y1=rda_x(1); rl_y2=rda_x(2); rl_y3=rda_x(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:817:2: 817 | rl_d3=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:818:2: 818 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:819:2: 819 | rl_y1=rda_x(1); rl_y2=rda_x(2); rl_y3=rda_x(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:820:2: 820 | rl_d4=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:821:2: 821 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:824:2: 824 | rl_t1 = 1/rl_y1-1/rl_y2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:825:2: 825 | rl_t2 = 1/rl_y1**2-1/rl_y2**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:826:2: 826 | rl_t3 = 1/rl_y1-1/rl_y3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:827:2: 827 | rl_t4 = 1/rl_y1**2-1/rl_y3**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:829:2: 829 | rl_c1_y =(1/rl_y1**3/rl_t1-1/rl_y1**3/rl_t3)/(rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:830:2: 830 | rl_c2_y = -1/rl_y2**3/rl_t1/(rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:831:2: 831 | rl_c3_y = 1/rl_y3**3/rl_t3/(rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:832:2: 832 | rl_c4_y=(-1/rl_y1**3/rl_t1+1/rl_y2**3/rl_t1+ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:833:2: 833 | 1/rl_y1**3/rl_t3-1/rl_y3**3/rl_t3)/(rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:835:2: 835 | rl_b1_y = 1/rl_y1**3/rl_t1 - rl_c1_y*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:836:2: 836 | rl_b2_y = -1/rl_y2**3/rl_t1 - rl_c2_y*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:837:2: 837 | rl_b3_y = -rl_c3_y*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:838:2: 838 | rl_b4_y = -1/rl_y1**3/rl_t1 + 1/rl_y2**3/rl_t1 - rl_c4_y*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:840:2: 840 | rl_a1_y = 1/rl_y1**3 - rl_b1_y/rl_y1 - rl_c1_y/rl_y1**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:841:2: 841 | rl_a2_y = -rl_b2_y/rl_y1 - rl_c2_y/rl_y1**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:842:2: 842 | rl_a3_y = -rl_b3_y/rl_y1 - rl_c3_y/rl_y1**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:843:2: 843 | rl_a4_y = -1/rl_y1**3 - rl_b4_y/rl_y1 - rl_c4_y/rl_y1**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:846:2: 846 | IF (rda_x(1)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:847:2: 847 | rl_a1=rl_a4_y; rl_a2=rl_a1_y; rl_a3=rl_a2_y; rl_a4=rl_a3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:848:2: 848 | rl_b1=rl_b4_y; rl_b2=rl_b1_y; rl_b3=rl_b2_y; rl_b4=rl_b3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:849:2: 849 | rl_c1=rl_c4_y; rl_c2=rl_c1_y; rl_c3=rl_c2_y; rl_c4=rl_c3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:850:2: 850 | ELSE IF (rda_x(2)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:851:2: 851 | rl_a1=rl_a1_y; rl_a2=rl_a4_y; rl_a3=rl_a2_y; rl_a4=rl_a3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:852:2: 852 | rl_b1=rl_b1_y; rl_b2=rl_b4_y; rl_b3=rl_b2_y; rl_b4=rl_b3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:853:2: 853 | rl_c1=rl_c1_y; rl_c2=rl_c4_y; rl_c3=rl_c2_y; rl_c4=rl_c3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:854:2: 854 | ELSE IF (rda_x(3)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:855:2: 855 | rl_a1=rl_a1_y; rl_a2=rl_a2_y; rl_a3=rl_a4_y; rl_a4=rl_a3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:856:2: 856 | rl_b1=rl_b1_y; rl_b2=rl_b2_y; rl_b3=rl_b4_y; rl_b4=rl_b3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:857:2: 857 | rl_c1=rl_c1_y; rl_c2=rl_c2_y; rl_c3=rl_c4_y; rl_c4=rl_c3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:858:2: 858 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:859:2: 859 | rl_a1=rl_a1_y; rl_a2=rl_a2_y; rl_a3=rl_a3_y; rl_a4=rl_a4_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:860:2: 860 | rl_b1=rl_b1_y; rl_b2=rl_b2_y; rl_b3=rl_b3_y; rl_b4=rl_b4_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:861:2: 861 | rl_c1=rl_c1_y; rl_c2=rl_c2_y; rl_c3=rl_c3_y; rl_c4=rl_c4_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:862:2: 862 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:865:2: 865 | rda_wght(1) = rl_a1*rd_pt**3 + rl_b1*rd_pt**2 + rl_c1*rd_pt +rl_d1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:866:2: 866 | rda_wght(2) = rl_a2*rd_pt**3 + rl_b2*rd_pt**2 + rl_c2*rd_pt +rl_d2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:867:2: 867 | rda_wght(3) = rl_a3*rd_pt**3 + rl_b3*rd_pt**2 + rl_c3*rd_pt +rl_d3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:868:2: 868 | rda_wght(4) = rl_a4*rd_pt**3 + rl_b4*rd_pt**2 + rl_c4*rd_pt +rl_d4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:919:2: 919 | rl_t1 = 1/rda_x(1)-1/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:920:2: 920 | rl_t2 = 1/rda_x(1)**2-1/rda_x(2)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:921:2: 921 | rl_t3 = 1/rda_x(1)-1/rda_x(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:922:2: 922 | rl_t4 = 1/rda_x(1)**2-1/rda_x(3)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:924:2: 924 | rl_c1 = (1/rda_x(1)**2/rl_t1-1/rda_x(1)**2/rl_t3) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:925:2: 925 | (rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:926:2: 926 | rl_c2 = -1/rda_x(2)**2/rl_t1 / (rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:927:2: 927 | rl_c3 = 1/rda_x(3)**2/rl_t3 / (rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:929:2: 929 | rl_b1 = 1/rda_x(1)**2/rl_t1 - rl_c1*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:930:2: 930 | rl_b2 = -1/rda_x(2)**2/rl_t1 - rl_c2*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:931:2: 931 | rl_b3 = - rl_c3*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:933:2: 933 | rl_a1 = 1/rda_x(1)**2 - rl_b1/rda_x(1) - rl_c1/rda_x(1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:934:2: 934 | rl_a2 = - rl_b2/rda_x(1) - rl_c2/rda_x(1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:935:2: 935 | rl_a3 = - rl_b3/rda_x(1) - rl_c3/rda_x(1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:939:2: 939 | rl_c1 = 1; rl_c2 = 0; rl_c3 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:940:2: 940 | rl_b1 = (-1/rda_x(2)**2+1/rda_x(3)**2) / (1/rda_x(2)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:941:2: 941 | rl_b2 = 1/rda_x(2)**2 / (1/rda_x(2)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:942:2: 942 | rl_b3 = -1/rda_x(3)**2 / (1/rda_x(2)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:944:2: 944 | rl_a1 = -1/rda_x(2)**2 - rl_b1/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:945:2: 945 | rl_a2 = 1/rda_x(2)**2 - rl_b2/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:946:2: 946 | rl_a3 = - rl_b3/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:950:2: 950 | rl_c1 = 0; rl_c2 = 1; rl_c3 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:951:2: 951 | rl_b1 = 1/rda_x(1)**2 / (1/rda_x(1)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:952:2: 952 | rl_b2 = (-1/rda_x(1)**2+1/rda_x(3)**2) / (1/rda_x(1)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:953:2: 953 | rl_b3 = -1/rda_x(3)**2 / (1/rda_x(1)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:955:2: 955 | rl_a1 = 1/rda_x(1)**2 - rl_b1/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:956:2: 956 | rl_a2 = -1/rda_x(1)**2 - rl_b2/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:957:2: 957 | rl_a3 = - rl_b3/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:960:2: 960 | rl_c1 = 0; rl_c2 = 0; rl_c3 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:961:2: 961 | rl_b1 = 1/rda_x(1)**2 / (1/rda_x(1)-1/rda_x(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:962:2: 962 | rl_b2 = -1/rda_x(2)**2 / (1/rda_x(1)-1/rda_x(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:963:2: 963 | rl_b3 = (-1/rda_x(1)**2+1/rda_x(2)**2) / (1/rda_x(1)-1/rda_x(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:965:2: 965 | rl_a1 = 1/rda_x(1)**2 - rl_b1/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:966:2: 966 | rl_a2 = - rl_b2/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:967:2: 967 | rl_a3 = -1/rda_x(1)**2 - rl_b3/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1021:2: 1021 | rl_b1 = 1/(1-rda_x(1)/rda_x(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1022:2: 1022 | rl_b2 = -1/(rda_x(2)/rda_x(1)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1023:2: 1023 | rl_a1 = 1/rda_x(1) - rl_b1/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1024:2: 1024 | rl_a2 = - rl_b2/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1027:2: 1027 | rl_b1=1; rl_b2=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1028:2: 1028 | rl_a1=-1/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1029:2: 1029 | rl_a2=1/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1031:2: 1031 | rl_b1=0; rl_b2=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1032:2: 1032 | rl_a1=1/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1033:2: 1033 | rl_a2=-1/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1098:2: 1098 | CALL resize_remap_vars(1,MAX(resize_increment,16)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/netcdf.F f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/timers.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:264:0: 264 | #endif TREAT_OVERLAY | Warning: extra tokens at end of #endif directive /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:2413:50: 2413 | & phi1, phi2, phidiff1, phidiff2 | 1 Warning: Unused variable ‘phidiff1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:2413:60: 2413 | & phi1, phi2, phidiff1, phidiff2 | 1 Warning: Unused variable ‘phidiff2’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:1394:20: 1394 | & rl_halfpi, rl_v2lonmpi2, rl_v2lonppi2 | 1 Warning: Unused variable ‘rl_halfpi’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:1394:34: 1394 | & rl_halfpi, rl_v2lonmpi2, rl_v2lonppi2 | 1 Warning: Unused variable ‘rl_v2lonmpi2’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:1394:48: 1394 | & rl_halfpi, rl_v2lonmpi2, rl_v2lonppi2 | 1 Warning: Unused variable ‘rl_v2lonppi2’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:136:18: 136 | & full, ! | 1 Warning: Unused variable ‘full’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:148:14: 148 | & r2d | 1 Warning: Unused variable ‘r2d’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:1821:0: 1821 | intrsct_lon_off = begseg(2) + (s1+eps)*mat3 | Warning: ‘mat3’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:1826:0: 1826 | intrsct_lat_off = south_thresh + eps*mat1 | Warning: ‘mat1’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_distwgt.F f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_distwgt.F:474:5: 474 | 1011 FORMAT (1X, 'nadd2 =', 1X, I6, 2X, 'distance2 =', 1X, F18.16) | 1 Warning: Label 1011 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_distwgt.F:337:21: 337 | & min_add, max_add, nm1, np1, i, j, ip1, im1, jp1, jm1, | ^ Warning: ‘min_add’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bilinear.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bilinear_reduced.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bilinear_reduced.f:473:42: 473 | integer (kind=int_kind) :: n, next_n, srch_add, ni, ! dummy indices | 1 Warning: Unused variable ‘next_n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bilinear_reduced.f:474:16: 474 | & nx, ny, ntotmask, ! dimensions of src grid | 1 Warning: Unused variable ‘ny’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_gauswgt.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_gauswgt.f:132:28: 132 | & distance ,plat,plon,src_latsnn, arg ! angular distance | 1 Warning: Unused variable ‘plat’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_gauswgt.f:132:33: 132 | & distance ,plat,plon,src_latsnn, arg ! angular distance | 1 Warning: Unused variable ‘plon’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_write.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/scrip.F f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/scrip.F:334:20: 334 | & nwgt, | 1 Warning: Unused variable ‘nwgt’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/distance.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/fracnnei.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] ar -ruv /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/libscrip.a mod_oasis_flush.o remap_bicubic_reduced.o netcdf.o remap_conserv.o remap_distwgt.o remap_vars.o scrip.o constants.o distance.o fracnnei.o grids.o iounits.o kinds_mod.o remap_bicubic.o remap_bilinear.o remap_bilinear_reduced.o remap_gauswgt.o remap_write.o timers.o ar: `u' modifier ignored since `D' is the default (see `U') ar: creating /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/libscrip.a a - mod_oasis_flush.o a - remap_bicubic_reduced.o a - netcdf.o a - remap_conserv.o a - remap_distwgt.o a - remap_vars.o a - scrip.o a - constants.o a - distance.o a - fracnnei.o a - grids.o a - iounits.o a - kinds_mod.o a - remap_bicubic.o a - remap_bilinear.o a - remap_bilinear_reduced.o a - remap_gauswgt.o a - remap_write.o a - timers.o /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o mod_oasis_flush.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/mod_oasis_flush.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o remap_bicubic_reduced.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:126:2: 126 | CYCLE ! target point is masked | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:139:2: 139 | ila_nbr_found, bin, rl_plat, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:140:2: 140 | rl_plon, ld_extrapdone) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:162:2: 162 | IF (bin==0 .or. bin==1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:163:2: 163 | il_min=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:164:2: 164 | il_max=bin_addr1_r(2,3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:165:2: 165 | ELSE IF (bin==num_srch_red .or. bin==num_srch_red-1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:166:2: 166 | il_min=bin_addr1_r(1,num_srch_red-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:167:2: 167 | il_max=bin_addr1_r(2,num_srch_red) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:168:2: 168 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:169:2: 169 | il_min=bin_addr1_r(1,bin-1)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:170:2: 170 | il_max=bin_addr1_r(2,bin+2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:171:2: 171 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:173:2: 173 | rl_coslat_dst = COS(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:174:2: 174 | rl_sinlat_dst = SIN(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:175:2: 175 | rl_coslon_dst = COS(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:176:2: 176 | rl_sinlon_dst = SIN(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:178:2: 178 | rla_weight(1,1) = bignum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:179:2: 179 | ila_src_add(1,1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:181:2: 181 | DO ib_i=il_min, il_max | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:182:2: 182 | IF (grid1_mask(ib_i) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:184:2: 184 | (rl_coslon_dst*COS(grid1_center_lon(ib_i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:185:2: 185 | rl_sinlon_dst*SIN(grid1_center_lon(ib_i)))+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:186:2: 186 | rl_sinlat_dst*SIN(grid1_center_lat(ib_i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:192:2: 192 | rl_distance = ACOS(arg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:193:2: 193 | IF (rl_distance < rla_weight(1,1)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:194:2: 194 | rla_weight(1,1) = rl_distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:195:2: 195 | ila_src_add(1,1) = ib_i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:196:2: 196 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:197:2: 197 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:198:2: 198 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:199:2: 199 | rla_weight(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:200:2: 200 | rla_weight(1,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:202:2: 202 | CALL store_link_bicub(ib_dst_add, ila_src_add, rla_weight) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:219:2: 219 | DO ib_i=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:220:2: 220 | IF (ila_nbr_found(ib_i)==1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:221:2: 221 | rla_weight(ib_i,1)=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:222:2: 222 | EXIT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:223:2: 223 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:224:2: 224 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:225:2: 225 | CALL store_link_bicub(ib_dst_add, ila_src_add, rla_weight) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:226:2: 226 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:231:2: 231 | rl_coslat_dst = COS(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:232:2: 232 | rl_sinlat_dst = SIN(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:233:2: 233 | rl_coslon_dst = COS(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:234:2: 234 | rl_sinlon_dst = SIN(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:236:2: 236 | rl_distance=0 ! count of total distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:237:2: 237 | DO ib_i=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:238:2: 238 | IF (ila_nbr_found(ib_i) > 0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:240:2: 240 | (rl_coslon_dst*COS(rla_src_lons(ib_i,1)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:241:2: 241 | rl_sinlon_dst*SIN(rla_src_lons(ib_i,1)))+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:242:2: 242 | rl_sinlat_dst*SIN(rla_src_lats(ib_i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:248:2: 248 | rla_weight(ib_i,1) = ACOS(arg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:249:2: 249 | rl_distance = rl_distance+rla_weight(ib_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:250:2: 250 | IF (ila_nbr_found(ib_i)==2) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:252:2: 252 | (rl_coslon_dst*COS(rla_src_lons(ib_i,2)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:253:2: 253 | rl_sinlon_dst*SIN(rla_src_lons(ib_i,2)))+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:254:2: 254 | rl_sinlat_dst*SIN(rla_src_lats(ib_i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:260:2: 260 | rla_weight(ib_i,2) = ACOS(arg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:261:2: 261 | rl_distance = rl_distance+rla_weight(ib_i,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:262:2: 262 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:263:2: 263 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:264:2: 264 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:265:2: 265 | rla_weight=rla_weight/rl_distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:267:2: 267 | CALL store_link_bicub(ib_dst_add, ila_src_add, rla_weight) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:268:2: 268 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:274:2: 274 | ila_nbr_found(1)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:275:2: 275 | ila_src_add(1,1)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:278:2: 278 | ila_nbr_found(4)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:279:2: 279 | ila_src_add(4,1)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:285:2: 285 | ila_add_dist(:)=4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:286:2: 286 | rla_dist(:)=bignum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:289:2: 289 | DO ib_i=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:290:2: 290 | IF (ila_nbr_found(ib_i) > 1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:291:2: 291 | rl_distance=ABS(rla_src_lats(ib_i)-rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:292:2: 292 | ELSE IF (ila_nbr_found(ib_i)==1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:293:2: 293 | rl_coslat_dst = COS(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:294:2: 294 | rl_sinlat_dst = SIN(rl_plat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:295:2: 295 | rl_coslon_dst = COS(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:296:2: 296 | rl_sinlon_dst = SIN(rl_plon) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:298:2: 298 | (rl_coslon_dst*COS(rla_src_lons(ib_i,1)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:299:2: 299 | rl_sinlon_dst*SIN(rla_src_lons(ib_i,1)))+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:300:2: 300 | rl_sinlat_dst*SIN(rla_src_lats(ib_i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:306:2: 306 | rl_distance= ACOS(arg) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:307:2: 307 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:308:2: 308 | rl_distance=bignum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:309:2: 309 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:311:2: 311 | IF (rl_distance < rla_dist(1)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:312:2: 312 | ila_add_dist(2)=ila_add_dist(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:313:2: 313 | ila_add_dist(1)=ib_i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:314:2: 314 | rla_dist(2)=rla_dist(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:315:2: 315 | rla_dist(1)=rl_distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:316:2: 316 | ELSE IF (rl_distance < rla_dist(2)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:317:2: 317 | ila_add_dist(2)=ib_i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:318:2: 318 | rla_dist(2)=rl_distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:319:2: 319 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:320:2: 320 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:322:2: 322 | IF (ila_nbr_found(ila_add_dist(1))>1 .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:323:2: 323 | ila_nbr_found(ila_add_dist(2))>1) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:325:2: 325 | ll_linear=.true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:326:2: 326 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:328:2: 328 | rla_wght_lon(:,:)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:329:2: 329 | DO ib_i=1,2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:330:2: 330 | SELECT CASE (ila_nbr_found(ila_add_dist(ib_i))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:331:2: 331 | CASE (4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:332:2: 332 | CALL calcul_wght_irreg(rla_src_lons(ila_add_dist(ib_i),:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:333:2: 333 | rl_plon, rla_wght_lon(ila_add_dist(ib_i),:)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:334:2: 334 | rla_wght_lon(ila_add_dist(ib_i),:)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:335:2: 335 | rla_wght_lon(ila_add_dist(ib_i),:)/& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:336:2: 336 | rla_dist(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:337:2: 337 | CASE (3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:338:2: 338 | CALL calcul_wght_3(rla_src_lons(ila_add_dist(ib_i),1:3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:339:2: 339 | rl_plon, rla_wght_lon(ila_add_dist(ib_i),1:3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:340:2: 340 | rla_wght_lon(ila_add_dist(ib_i),1:3)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:341:2: 341 | rla_wght_lon(ila_add_dist(ib_i),1:3)/& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:342:2: 342 | rla_dist(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:343:2: 343 | CASE (2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:344:2: 344 | CALL calcul_wght_2(rla_src_lons(ila_add_dist(ib_i),1:2),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:345:2: 345 | rl_plon, rla_wght_lon(ila_add_dist(ib_i),1:2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:346:2: 346 | rla_wght_lon(ila_add_dist(ib_i),1:2)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:347:2: 347 | rla_wght_lon(ila_add_dist(ib_i),1:2)/& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:348:2: 348 | rla_dist(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:349:2: 349 | CASE (1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:350:2: 350 | rla_wght_lon(ila_add_dist(ib_i),1)=1/rla_dist(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:351:2: 351 | END SELECT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:352:2: 352 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:353:2: 353 | rl_distance=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:354:2: 354 | DO ib_i=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:355:2: 355 | rl_distance=rl_distance + sum(rla_wght_lon(ib_i,:)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:356:2: 356 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:357:2: 357 | rla_weight(:,:)=rla_wght_lon(:,:)/rl_distance | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:359:2: 359 | CALL store_link_bicub(ib_dst_add, ila_src_add , rla_weight) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:360:2: 360 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:361:2: 361 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:370:2: 370 | SELECT CASE (ila_nbr_found(ib_i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:371:2: 371 | CASE (4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:372:2: 372 | CALL calcul_wght_irreg(rla_src_lons(ib_i,:), rl_plon, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:373:2: 373 | rla_wght_lon(ib_i,:)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:374:2: 374 | CASE (3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:375:2: 375 | CALL calcul_wght_3(rla_src_lons(ib_i,1:3), rl_plon, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:376:2: 376 | rla_wght_lon(ib_i,1:3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:377:2: 377 | CASE (2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:378:2: 378 | CALL calcul_wght_2(rla_src_lons(ib_i,1:2), rl_plon, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:379:2: 379 | rla_wght_lon(ib_i,1:2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:380:2: 380 | END SELECT | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:385:2: 385 | rla_wght_lat(:)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:386:2: 386 | CALL calcul_wght_2(rla_src_lats(ila_add_dist(:)), rl_plat, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:387:2: 387 | rla_wght_temp(1:2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:388:2: 388 | rla_wght_lat(ila_add_dist(1))=rla_wght_temp(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:389:2: 389 | rla_wght_lat(ila_add_dist(2))=rla_wght_temp(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:390:2: 390 | DO ib_i=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:391:2: 391 | rla_weight(ib_i,:)=rla_wght_lat(ib_i)*rla_wght_lon(ib_i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:392:2: 392 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:394:2: 394 | CALL store_link_bicub(ib_dst_add, ila_src_add , rla_weight) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:395:2: 395 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:405:2: 405 | IF (ila_nbr_found(ib_i)/=0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:406:2: 406 | il_count=il_count+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:407:2: 407 | rla_lats_temp(il_count)=rla_src_lats(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:408:2: 408 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:412:19: 412 | CASE (4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:413:2: 413 | CALL calcul_wght_irreg(rla_lats_temp, rl_plat, rla_wght_temp(:)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:415:2: 415 | CALL calcul_wght_3(rla_lats_temp(1:3), rl_plat, rla_wght_temp(1:3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:417:2: 417 | CALL calcul_wght_2(rla_lats_temp(1:2), rl_plat, rla_wght_temp(1:2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:419:2: 419 | rla_wght_temp(1)=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:424:2: 424 | IF (ila_nbr_found(ib_i)/=0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:425:2: 425 | il_count=il_count+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:426:2: 426 | rla_wght_lat(ib_i)=rla_wght_temp(il_count) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:427:2: 427 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:428:2: 428 | rla_wght_lat(ib_i)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:429:2: 429 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:437:2: 437 | rla_weight(ib_i,:)=rla_wght_lat(ib_i)*rla_wght_lon(ib_i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:462:2: 462 | rd_plon, ld_extrapdone) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:521:2: 521 | bin=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:522:2: 522 | ila_corners(1:2,1:2)= 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:523:2: 523 | ila_corners(3,1)= bin_addr1_r(1,1)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:524:2: 524 | ila_corners(3,2)= bin_addr1_r(2,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:525:2: 525 | ila_corners(4,1)= bin_addr1_r(1,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:526:2: 526 | ila_corners(4,2)= bin_addr1_r(2,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:529:2: 529 | bin=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:530:2: 530 | ila_corners(1,1:2)= 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:531:2: 531 | ila_corners(2,1)= bin_addr1_r(1,1)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:532:2: 532 | ila_corners(2,2)= bin_addr1_r(2,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:533:2: 533 | ila_corners(3,1)= bin_addr1_r(1,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:534:2: 534 | ila_corners(3,2)= bin_addr1_r(2,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:535:2: 535 | ila_corners(4,1)= bin_addr1_r(1,3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:536:2: 536 | ila_corners(4,2)= bin_addr1_r(2,3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:540:2: 540 | bin=num_srch_red | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:541:2: 541 | ila_corners(1,1) = bin_addr1_r(1,num_srch_red-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:542:2: 542 | ila_corners(1,2) = bin_addr1_r(2,num_srch_red-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:543:2: 543 | ila_corners(2,1) = bin_addr1_r(1,num_srch_red) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:544:2: 544 | ila_corners(2,2) = bin_addr1_r(2,num_srch_red) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:545:2: 545 | ila_corners(3:4,1:2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:550:2: 550 | bin=num_srch_red-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:551:2: 551 | ila_corners(1,1) = bin_addr1_r(1,num_srch_red-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:552:2: 552 | ila_corners(1,2) = bin_addr1_r(2,num_srch_red-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:553:2: 553 | ila_corners(2,1) = bin_addr1_r(1,num_srch_red-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:554:2: 554 | ila_corners(2,2) = bin_addr1_r(2,num_srch_red-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:555:2: 555 | ila_corners(3,1) = bin_addr1_r(1,num_srch_red) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:556:2: 556 | ila_corners(3,2) = bin_addr1_r(2,num_srch_red) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:557:2: 557 | ila_corners(4,1:2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:559:2: 559 | il_min=2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:560:2: 560 | il_max=num_srch_red-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:561:2: 561 | DO WHILE (il_min /= il_max-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:562:2: 562 | il_inter=(il_max-il_min)/2 + il_min | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:563:2: 563 | IF (rd_plat <= bin_lats_r(1,il_min) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:564:2: 564 | rd_plat > bin_lats_r(1,il_inter)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:565:2: 565 | il_max=il_inter | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:566:2: 566 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:567:2: 567 | il_min=il_inter | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:568:2: 568 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:569:2: 569 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:570:2: 570 | bin=il_min | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:571:2: 571 | ila_corners(1,1) = bin_addr1_r(1,bin-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:572:2: 572 | ila_corners(1,2) = bin_addr1_r(2,bin-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:573:2: 573 | ila_corners(2,1) = bin_addr1_r(1,bin) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:574:2: 574 | ila_corners(2,2) = bin_addr1_r(2,bin) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:575:2: 575 | ila_corners(3,1) = bin_addr1_r(1,bin+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:576:2: 576 | ila_corners(3,2) = bin_addr1_r(2,bin+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:577:2: 577 | ila_corners(4,1) = bin_addr1_r(1,bin+2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:578:2: 578 | ila_corners(4,2) = bin_addr1_r(2,bin+2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:580:2: 580 | IF (ila_corners(1,1)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:581:2: 581 | ila_corners(1,1)=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:582:2: 582 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:600:2: 600 | CYCLE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:606:52: 606 | IF (rd_plon < grid1_center_lon(il_min)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:607:2: 607 | DO ib_j=il_max-1, il_max | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:608:2: 608 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:609:2: 609 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:610:2: 610 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:611:2: 611 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:612:2: 612 | grid1_center_lon(ib_j)-pi2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:613:2: 613 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:614:2: 614 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:615:2: 615 | DO ib_j=il_min, il_min+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:616:2: 616 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:617:2: 617 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:618:2: 618 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:619:2: 619 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:620:2: 620 | grid1_center_lon(ib_j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:621:2: 621 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:622:2: 622 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:625:2: 625 | IF (grid1_mask(il_max) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:626:2: 626 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:627:2: 627 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = il_max | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:628:2: 628 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:629:2: 629 | grid1_center_lon(il_max)-pi2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:630:2: 630 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:631:2: 631 | DO ib_j=il_min, il_min+2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:632:2: 632 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:633:2: 633 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:634:2: 634 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:635:2: 635 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:636:2: 636 | grid1_center_lon(ib_j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:637:2: 637 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:638:2: 638 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:641:2: 641 | DO ib_j=il_max-1, il_max | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:642:2: 642 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:643:2: 643 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:644:2: 644 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:645:2: 645 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:646:2: 646 | grid1_center_lon(ib_j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:647:2: 647 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:648:2: 648 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:649:2: 649 | DO ib_j=il_min, il_min+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:650:2: 650 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:651:2: 651 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:652:2: 652 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:653:2: 653 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:654:2: 654 | grid1_center_lon(ib_j)+pi2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:655:2: 655 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:656:2: 656 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:659:2: 659 | DO ib_j=il_max-2, il_max | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:660:2: 660 | IF (grid1_mask(ib_j) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:661:2: 661 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:662:2: 662 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = ib_j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:663:2: 663 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:664:2: 664 | grid1_center_lon(ib_j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:665:2: 665 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:666:2: 666 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:667:2: 667 | IF (grid1_mask(il_min) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:668:2: 668 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:669:2: 669 | ida_src_add(ib_k,ida_nbr_found(ib_k)) = il_min | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:670:2: 670 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:671:2: 671 | grid1_center_lon(il_min)+pi2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:672:2: 672 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:674:13: 674 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:676:2: 676 | DO WHILE (il_min/=il_max-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:677:2: 677 | il_inter=(il_max-il_min)/2 + il_min | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:678:2: 678 | IF (rd_plon >= grid1_center_lon(il_min) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:679:2: 679 | rd_plon < grid1_center_lon(il_inter)) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:680:2: 680 | il_max=il_inter | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:681:2: 681 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:682:2: 682 | il_min=il_inter | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:683:2: 683 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:684:2: 684 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:685:2: 685 | DO ib_i= il_min-1, il_min+2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:686:2: 686 | IF (grid1_mask(ib_i) .or. ld_extrapdone) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:687:2: 687 | ida_nbr_found(ib_k)=ida_nbr_found(ib_k)+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:688:2: 688 | ida_src_add(ib_k,ida_nbr_found(ib_k))=ib_i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:689:2: 689 | rda_src_lons(ib_k,ida_nbr_found(ib_k))= & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:690:2: 690 | grid1_center_lon(ib_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:691:2: 691 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:692:2: 692 | END DO | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:756:2: 756 | rl_t1 = 1/rda_x(1) - 1/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:757:2: 757 | rl_t2 = 1/rda_x(1)**2 - 1/rda_x(2)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:758:2: 758 | rl_t3 = 1/rda_x(1)**3 - 1/rda_x(2)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:759:2: 759 | rl_t4 = 1/rda_x(1) - 1/rda_x(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:760:2: 760 | rl_t5 = 1/rda_x(1)**2 - 1/rda_x(3)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:761:2: 761 | rl_t6 = 1/rda_x(1)**3 - 1/rda_x(3)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:762:2: 762 | rl_t7 = 1/rda_x(1) - 1/rda_x(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:763:2: 763 | rl_t8 = 1/rda_x(1)**2 - 1/rda_x(4)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:764:2: 764 | rl_t9 = 1/rda_x(1)**3 - 1/rda_x(4)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:766:2: 766 | rl_u1 = rl_t2/rl_t1 - rl_t5/rl_t4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:767:2: 767 | rl_u2 = rl_t3/rl_t1 - rl_t6/rl_t4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:768:2: 768 | rl_u3 = rl_t2/rl_t1 - rl_t8/rl_t7 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:769:2: 769 | rl_u4 = rl_t3/rl_t1 - rl_t9/rl_t7 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:771:2: 771 | rl_k1 = (1/(rl_t1*rl_u1)-1/(rl_t1*rl_u3)) / (rl_u2/rl_u1-rl_u4/rl_u3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:772:2: 772 | rl_k2 = -1/(rl_t4*rl_u1) / (rl_u2/rl_u1-rl_u4/rl_u3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:773:2: 773 | rl_k3 = 1/(rl_t7*rl_u3) / (rl_u2/rl_u1-rl_u4/rl_u3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:776:2: 776 | rl_d1=(rl_k1+rl_k2+rl_k3)/rda_x(1)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:777:2: 777 | rl_d2 = -rl_k1/rda_x(2)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:778:2: 778 | rl_d3 = -rl_k2/rda_x(3)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:779:2: 779 | rl_d4 = -rl_k3/rda_x(4)**3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:781:2: 781 | rl_c1 = 1/rl_u1*(1/(rl_t1*rda_x(1)**3)-1/(rl_t4*rda_x(1)**3)- & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:782:2: 782 | rl_u2*rl_d1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:783:2: 783 | rl_c2 = 1/rl_u1*(1/(-rl_t1*rda_x(2)**3)-rl_u2*rl_d2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:784:2: 784 | rl_c3 = 1/rl_u1*(1/(rl_t4*rda_x(3)**3)-rl_u2*rl_d3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:785:2: 785 | rl_c4 = 1/rl_u1*(-rl_u2*rl_d4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:787:2: 787 | rl_b1 = 1/rl_t1/rda_x(1)**3-rl_t2/rl_t1*rl_c1-rl_t3/rl_t1*rl_d1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:788:2: 788 | rl_b2 = -1/rl_t1/rda_x(2)**3-rl_t2/rl_t1*rl_c2-rl_t3/rl_t1*rl_d2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:789:2: 789 | rl_b3 = -rl_t2/rl_t1*rl_c3-rl_t3/rl_t1*rl_d3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:790:2: 790 | rl_b4 = -rl_t2/rl_t1*rl_c4-rl_t3/rl_t1*rl_d4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:792:2: 792 | rl_a1 = 1/rda_x(1)**3-1/rda_x(1)*rl_b1-1/rda_x(1)**2*rl_c1- & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:793:2: 793 | 1/rda_x(1)**3*rl_d1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:794:2: 794 | rl_a2 = -1/rda_x(1)*rl_b2-1/rda_x(1)**2*rl_c2-1/rda_x(1)**3*rl_d2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:795:2: 795 | rl_a3 = -1/rda_x(1)*rl_b3-1/rda_x(1)**2*rl_c3-1/rda_x(1)**3*rl_d3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:796:2: 796 | rl_a4 = -1/rda_x(1)*rl_b4-1/rda_x(1)**2*rl_c4-1/rda_x(1)**3*rl_d4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:799:2: 799 | rda_wght(1) = rl_a1*rd_pt**3 + rl_b1*rd_pt**2 + rl_c1*rd_pt + rl_d1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:800:2: 800 | rda_wght(2) = rl_a2*rd_pt**3 + rl_b2*rd_pt**2 + rl_c2*rd_pt + rl_d2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:801:2: 801 | rda_wght(3) = rl_a3*rd_pt**3 + rl_b3*rd_pt**2 + rl_c3*rd_pt + rl_d3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:802:2: 802 | rda_wght(4) = rl_a4*rd_pt**3 + rl_b4*rd_pt**2 + rl_c4*rd_pt + rl_d4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:806:2: 806 | rl_d1=0; rl_d2=0; rl_d3=0; rl_d4=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:809:2: 809 | IF (rda_x(1)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:810:2: 810 | rl_y1=rda_x(2); rl_y2=rda_x(3); rl_y3=rda_x(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:811:2: 811 | rl_d1=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:812:2: 812 | ELSE IF (rda_x(2)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:813:2: 813 | rl_y1=rda_x(1); rl_y2=rda_x(3); rl_y3=rda_x(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:814:2: 814 | rl_d2=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:815:2: 815 | ELSE IF (rda_x(3)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:816:2: 816 | rl_y1=rda_x(1); rl_y2=rda_x(2); rl_y3=rda_x(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:817:2: 817 | rl_d3=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:818:2: 818 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:819:2: 819 | rl_y1=rda_x(1); rl_y2=rda_x(2); rl_y3=rda_x(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:820:2: 820 | rl_d4=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:821:2: 821 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:824:2: 824 | rl_t1 = 1/rl_y1-1/rl_y2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:825:2: 825 | rl_t2 = 1/rl_y1**2-1/rl_y2**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:826:2: 826 | rl_t3 = 1/rl_y1-1/rl_y3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:827:2: 827 | rl_t4 = 1/rl_y1**2-1/rl_y3**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:829:2: 829 | rl_c1_y =(1/rl_y1**3/rl_t1-1/rl_y1**3/rl_t3)/(rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:830:2: 830 | rl_c2_y = -1/rl_y2**3/rl_t1/(rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:831:2: 831 | rl_c3_y = 1/rl_y3**3/rl_t3/(rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:832:2: 832 | rl_c4_y=(-1/rl_y1**3/rl_t1+1/rl_y2**3/rl_t1+ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:833:2: 833 | 1/rl_y1**3/rl_t3-1/rl_y3**3/rl_t3)/(rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:835:2: 835 | rl_b1_y = 1/rl_y1**3/rl_t1 - rl_c1_y*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:836:2: 836 | rl_b2_y = -1/rl_y2**3/rl_t1 - rl_c2_y*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:837:2: 837 | rl_b3_y = -rl_c3_y*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:838:2: 838 | rl_b4_y = -1/rl_y1**3/rl_t1 + 1/rl_y2**3/rl_t1 - rl_c4_y*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:840:2: 840 | rl_a1_y = 1/rl_y1**3 - rl_b1_y/rl_y1 - rl_c1_y/rl_y1**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:841:2: 841 | rl_a2_y = -rl_b2_y/rl_y1 - rl_c2_y/rl_y1**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:842:2: 842 | rl_a3_y = -rl_b3_y/rl_y1 - rl_c3_y/rl_y1**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:843:2: 843 | rl_a4_y = -1/rl_y1**3 - rl_b4_y/rl_y1 - rl_c4_y/rl_y1**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:846:2: 846 | IF (rda_x(1)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:847:2: 847 | rl_a1=rl_a4_y; rl_a2=rl_a1_y; rl_a3=rl_a2_y; rl_a4=rl_a3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:848:2: 848 | rl_b1=rl_b4_y; rl_b2=rl_b1_y; rl_b3=rl_b2_y; rl_b4=rl_b3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:849:2: 849 | rl_c1=rl_c4_y; rl_c2=rl_c1_y; rl_c3=rl_c2_y; rl_c4=rl_c3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:850:2: 850 | ELSE IF (rda_x(2)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:851:2: 851 | rl_a1=rl_a1_y; rl_a2=rl_a4_y; rl_a3=rl_a2_y; rl_a4=rl_a3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:852:2: 852 | rl_b1=rl_b1_y; rl_b2=rl_b4_y; rl_b3=rl_b2_y; rl_b4=rl_b3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:853:2: 853 | rl_c1=rl_c1_y; rl_c2=rl_c4_y; rl_c3=rl_c2_y; rl_c4=rl_c3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:854:2: 854 | ELSE IF (rda_x(3)==0) THEN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:855:2: 855 | rl_a1=rl_a1_y; rl_a2=rl_a2_y; rl_a3=rl_a4_y; rl_a4=rl_a3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:856:2: 856 | rl_b1=rl_b1_y; rl_b2=rl_b2_y; rl_b3=rl_b4_y; rl_b4=rl_b3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:857:2: 857 | rl_c1=rl_c1_y; rl_c2=rl_c2_y; rl_c3=rl_c4_y; rl_c4=rl_c3_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:858:2: 858 | ELSE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:859:2: 859 | rl_a1=rl_a1_y; rl_a2=rl_a2_y; rl_a3=rl_a3_y; rl_a4=rl_a4_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:860:2: 860 | rl_b1=rl_b1_y; rl_b2=rl_b2_y; rl_b3=rl_b3_y; rl_b4=rl_b4_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:861:2: 861 | rl_c1=rl_c1_y; rl_c2=rl_c2_y; rl_c3=rl_c3_y; rl_c4=rl_c4_y | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:862:2: 862 | END IF | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:865:2: 865 | rda_wght(1) = rl_a1*rd_pt**3 + rl_b1*rd_pt**2 + rl_c1*rd_pt +rl_d1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:866:2: 866 | rda_wght(2) = rl_a2*rd_pt**3 + rl_b2*rd_pt**2 + rl_c2*rd_pt +rl_d2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:867:2: 867 | rda_wght(3) = rl_a3*rd_pt**3 + rl_b3*rd_pt**2 + rl_c3*rd_pt +rl_d3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:868:2: 868 | rda_wght(4) = rl_a4*rd_pt**3 + rl_b4*rd_pt**2 + rl_c4*rd_pt +rl_d4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:919:2: 919 | rl_t1 = 1/rda_x(1)-1/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:920:2: 920 | rl_t2 = 1/rda_x(1)**2-1/rda_x(2)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:921:2: 921 | rl_t3 = 1/rda_x(1)-1/rda_x(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:922:2: 922 | rl_t4 = 1/rda_x(1)**2-1/rda_x(3)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:924:2: 924 | rl_c1 = (1/rda_x(1)**2/rl_t1-1/rda_x(1)**2/rl_t3) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:925:2: 925 | (rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:926:2: 926 | rl_c2 = -1/rda_x(2)**2/rl_t1 / (rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:927:2: 927 | rl_c3 = 1/rda_x(3)**2/rl_t3 / (rl_t2/rl_t1-rl_t4/rl_t3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:929:2: 929 | rl_b1 = 1/rda_x(1)**2/rl_t1 - rl_c1*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:930:2: 930 | rl_b2 = -1/rda_x(2)**2/rl_t1 - rl_c2*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:931:2: 931 | rl_b3 = - rl_c3*rl_t2/rl_t1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:933:2: 933 | rl_a1 = 1/rda_x(1)**2 - rl_b1/rda_x(1) - rl_c1/rda_x(1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:934:2: 934 | rl_a2 = - rl_b2/rda_x(1) - rl_c2/rda_x(1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:935:2: 935 | rl_a3 = - rl_b3/rda_x(1) - rl_c3/rda_x(1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:939:2: 939 | rl_c1 = 1; rl_c2 = 0; rl_c3 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:940:2: 940 | rl_b1 = (-1/rda_x(2)**2+1/rda_x(3)**2) / (1/rda_x(2)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:941:2: 941 | rl_b2 = 1/rda_x(2)**2 / (1/rda_x(2)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:942:2: 942 | rl_b3 = -1/rda_x(3)**2 / (1/rda_x(2)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:944:2: 944 | rl_a1 = -1/rda_x(2)**2 - rl_b1/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:945:2: 945 | rl_a2 = 1/rda_x(2)**2 - rl_b2/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:946:2: 946 | rl_a3 = - rl_b3/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:950:2: 950 | rl_c1 = 0; rl_c2 = 1; rl_c3 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:951:2: 951 | rl_b1 = 1/rda_x(1)**2 / (1/rda_x(1)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:952:2: 952 | rl_b2 = (-1/rda_x(1)**2+1/rda_x(3)**2) / (1/rda_x(1)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:953:2: 953 | rl_b3 = -1/rda_x(3)**2 / (1/rda_x(1)-1/rda_x(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:955:2: 955 | rl_a1 = 1/rda_x(1)**2 - rl_b1/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:956:2: 956 | rl_a2 = -1/rda_x(1)**2 - rl_b2/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:957:2: 957 | rl_a3 = - rl_b3/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:960:2: 960 | rl_c1 = 0; rl_c2 = 0; rl_c3 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:961:2: 961 | rl_b1 = 1/rda_x(1)**2 / (1/rda_x(1)-1/rda_x(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:962:2: 962 | rl_b2 = -1/rda_x(2)**2 / (1/rda_x(1)-1/rda_x(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:963:2: 963 | rl_b3 = (-1/rda_x(1)**2+1/rda_x(2)**2) / (1/rda_x(1)-1/rda_x(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:965:2: 965 | rl_a1 = 1/rda_x(1)**2 - rl_b1/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:966:2: 966 | rl_a2 = - rl_b2/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:967:2: 967 | rl_a3 = -1/rda_x(1)**2 - rl_b3/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1021:2: 1021 | rl_b1 = 1/(1-rda_x(1)/rda_x(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1022:2: 1022 | rl_b2 = -1/(rda_x(2)/rda_x(1)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1023:2: 1023 | rl_a1 = 1/rda_x(1) - rl_b1/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1024:2: 1024 | rl_a2 = - rl_b2/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1027:2: 1027 | rl_b1=1; rl_b2=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1028:2: 1028 | rl_a1=-1/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1029:2: 1029 | rl_a2=1/rda_x(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1031:2: 1031 | rl_b1=0; rl_b2=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1032:2: 1032 | rl_a1=1/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1033:2: 1033 | rl_a2=-1/rda_x(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic_reduced.F90:1098:2: 1098 | CALL resize_remap_vars(1,MAX(resize_increment,16)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o netcdf.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/netcdf.F f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o remap_conserv.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:264:0: 264 | #endif TREAT_OVERLAY | Warning: extra tokens at end of #endif directive /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:2413:50: 2413 | & phi1, phi2, phidiff1, phidiff2 | 1 Warning: Unused variable ‘phidiff1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:2413:60: 2413 | & phi1, phi2, phidiff1, phidiff2 | 1 Warning: Unused variable ‘phidiff2’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:1394:20: 1394 | & rl_halfpi, rl_v2lonmpi2, rl_v2lonppi2 | 1 Warning: Unused variable ‘rl_halfpi’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:1394:34: 1394 | & rl_halfpi, rl_v2lonmpi2, rl_v2lonppi2 | 1 Warning: Unused variable ‘rl_v2lonmpi2’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:1394:48: 1394 | & rl_halfpi, rl_v2lonmpi2, rl_v2lonppi2 | 1 Warning: Unused variable ‘rl_v2lonppi2’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:136:18: 136 | & full, ! | 1 Warning: Unused variable ‘full’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:148:14: 148 | & r2d | 1 Warning: Unused variable ‘r2d’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:1821:0: 1821 | intrsct_lon_off = begseg(2) + (s1+eps)*mat3 | Warning: ‘mat3’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_conserv.F:1826:0: 1826 | intrsct_lat_off = south_thresh + eps*mat1 | Warning: ‘mat1’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o remap_distwgt.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_distwgt.F f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_distwgt.F:474:5: 474 | 1011 FORMAT (1X, 'nadd2 =', 1X, I6, 2X, 'distance2 =', 1X, F18.16) | 1 Warning: Label 1011 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_distwgt.F:337:21: 337 | & min_add, max_add, nm1, np1, i, j, ip1, im1, jp1, jm1, | ^ Warning: ‘min_add’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o remap_vars.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_vars.F f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_vars.F:100:0: 100 | #endif TREAT_OVERLAY | Warning: extra tokens at end of #endif directive /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_vars.F:212:0: 212 | #endif TREAT_OVERLAY | Warning: extra tokens at end of #endif directive /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_vars.F:415:0: 415 | #endif TREAT_OVERLAY | Warning: extra tokens at end of #endif directive /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_vars.F:199:25: 199 | resize_increment = 0.1*max(grid1_size,grid2_size) | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o scrip.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/scrip.F f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/scrip.F:334:20: 334 | & nwgt, | 1 Warning: Unused variable ‘nwgt’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o constants.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/constants.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o distance.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/distance.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o fracnnei.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/fracnnei.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o grids.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/grids.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o iounits.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/iounits.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o kinds_mod.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/kinds_mod.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o remap_bicubic.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bicubic.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o remap_bilinear.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bilinear.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o remap_bilinear_reduced.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bilinear_reduced.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bilinear_reduced.f:473:42: 473 | integer (kind=int_kind) :: n, next_n, srch_add, ni, ! dummy indices | 1 Warning: Unused variable ‘next_n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_bilinear_reduced.f:474:16: 474 | & nx, ny, ntotmask, ! dimensions of src grid | 1 Warning: Unused variable ‘ny’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o remap_gauswgt.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_gauswgt.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_gauswgt.f:132:28: 132 | & distance ,plat,plon,src_latsnn, arg ! angular distance | 1 Warning: Unused variable ‘plat’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_gauswgt.f:132:33: 132 | & distance ,plat,plon,src_latsnn, arg ! angular distance | 1 Warning: Unused variable ‘plon’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o remap_write.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/remap_write.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -o timers.o.pic -c -fPIC /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/scrip/src/timers.f f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] ld -shared -o /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/libscrip.so mod_oasis_flush.o.pic remap_bicubic_reduced.o.pic netcdf.o.pic remap_conserv.o.pic remap_distwgt.o.pic remap_vars.o.pic scrip.o.pic constants.o.pic distance.o.pic fracnnei.o.pic grids.o.pic iounits.o.pic kinds_mod.o.pic remap_bicubic.o.pic remap_bilinear.o.pic remap_bilinear_reduced.o.pic remap_gauswgt.o.pic remap_write.o.pic timers.o.pic --soname libscrip.so.0d -lnetcdff -lnetcdf -lc make[4]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/scrip' make[3]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' make -f TopMakefileOasis3 makepsmile make[3]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' => Compiling library psmile (cd /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 ; \ cp -f /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/Makefile . ; ( echo 'include /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//util/make_dir/make.inc' > infile; cat Makefile >> infile ; cp -f infile Makefile ) ; \ make all ) make[4]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/psmile.MPI1' /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_kinds.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_kinds.F90:40:25: 40 | INTEGER(kind=ip_i4_p) :: OASIS_debug | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_data.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_sys.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_sys.F90:49:35: 49 | SUBROUTINE oasis_abort(id_compid, cd_routine, cd_message) | 1 Warning: Unused dummy argument ‘id_compid’ at (1) [-Wunused-dummy-argument] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_parameters.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_parameters.F90:17:52: 17 | INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Ok = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:2041:24: 2041 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 1 ...... 2102 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:2044:21: 2044 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 1 ...... 2105 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1980:24: 1980 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_INTEGER,reduce_type,comm,ierr) | 1 ...... 2102 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1983:21: 1983 | call MPI_REDUCE(lvec,gvec,gsize,MPI_INTEGER,reduce_type,0,comm,ierr) | 1 ...... 2105 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1797:24: 1797 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 1 ...... 2102 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1800:21: 1800 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 1 ...... 2105 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1431:24: 1431 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 1 ...... 2102 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1434:21: 1434 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 1 ...... 2105 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:912:18: 912 | call MPI_BCAST(arr,lsize,MPI_INTEGER,lpebcast,comm,ierr) | 1 ...... 954 | call MPI_BCAST(arr,lsize,MPI_REAL8,lpebcast,comm,ierr) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:708:18: 708 | call MPI_BCAST(vec,lsize,MPI_REAL8,lpebcast,comm,ierr) | 1 ...... 954 | call MPI_BCAST(arr,lsize,MPI_REAL8,lpebcast,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:430:17: 430 | call MPI_RECV(lvec,lsize,MPI_REAL8,pid,tag,comm,status,ierr) | 1 ...... 508 | call MPI_RECV(array,lsize,MPI_REAL8,pid,tag,comm,status,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:391:17: 391 | call MPI_RECV(lvec,lsize,MPI_INTEGER,pid,tag,comm,status,ierr) | 1 ...... 508 | call MPI_RECV(array,lsize,MPI_REAL8,pid,tag,comm,status,ierr) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:237:17: 237 | call MPI_SEND(lvec,lsize,MPI_REAL8,pid,tag,comm,ierr) | 1 ...... 313 | call MPI_SEND(array,lsize,MPI_REAL8,pid,tag,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:199:17: 199 | call MPI_SEND(lvec,lsize,MPI_INTEGER,pid,tag,comm,ierr) | 1 ...... 313 | call MPI_SEND(array,lsize,MPI_REAL8,pid,tag,comm,ierr) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:397:61: 397 | sum_ctime_global_tmp(n,1:mpi_size_local) = rarr(1:mpi_size_local) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:394:31: 385 | call MPI_Gather(cval,len(cval),MPI_CHARACTER,carr(1),len(cval),& | 2 ...... 394 | call MPI_Gather(rval,1,MPI_DOUBLE_PRECISION,rarr(1),1,MPI_DOUBLE_PRECISION,& | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/CHARACTER(*)). /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:253:34: 253 | integer :: pe1,pe2 | 1 Warning: Unused variable ‘pe1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:253:38: 253 | integer :: pe1,pe2 | 1 Warning: Unused variable ‘pe2’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:94:26: 94 | integer :: ierror,n | 1 Warning: Unused variable ‘ierror’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:237:63: 237 | double precision, allocatable :: sum_wtime_global(:,:) | ^ Warning: ‘sum_wtime_global.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:237:63: Warning: ‘sum_wtime_global.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:236:63: 236 | real, allocatable :: sum_ctime_global(:,:) | ^ Warning: ‘sum_ctime_global.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:236:63: Warning: ‘sum_ctime_global.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:238:59: 238 | integer, allocatable :: count_global(:,:) | ^ Warning: ‘count_global.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:238:59: Warning: ‘count_global.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:241:54: 241 | character(len=ic_med), allocatable :: carr(:) | ^ Warning: ‘carr.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:233:67: 233 | double precision, allocatable :: sum_wtime_global_tmp(:,:) | ^ Warning: ‘sum_wtime_global_tmp.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:233:67: Warning: ‘sum_wtime_global_tmp.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:347:0: 347 | sum_wtime_global_tmp = 0.0 | Warning: ‘sum_wtime_global_tmp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:233:67: 233 | double precision, allocatable :: sum_wtime_global_tmp(:,:) | ^ Warning: ‘sum_wtime_global_tmp.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_part.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_part.F90:167:0: 167 | deallocate(start,length) | Warning: ‘start.data’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_var.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_string.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_string.F90:877:28: 877 | integer(ip_i4_p) :: i,j,n ! generic indecies | 1 Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_string.F90:762:26: 762 | integer(ip_i4_p) :: n ! counter | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_string.F90:461:28: 461 | integer(ip_i4_p) :: rCode ! return code | 1 Warning: Unused variable ‘rcode’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_string.F90:406:28: 406 | integer(ip_i4_p) :: rCode ! return code | 1 Warning: Unused variable ‘rcode’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2379:8: 2379 | cnorm_opt(ig_number_field(jf)) .NE. 'DESTAREA' .AND. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2575:5: 2575 | 2010 FORMAT(A3,A1,I2) | 1 Warning: Label 2010 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2573:5: 2573 | 2008 FORMAT(A2,I4) | 1 Warning: Label 2008 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1927:4: 1927 | 1003 FORMAT(I3) | 1 Warning: Label 1003 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2917:4: 2917 | 235 CONTINUE | 1 Warning: Label 235 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2903:4: 2903 | 233 CONTINUE | 1 Warning: Label 233 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2873:4: 2873 | 210 CONTINUE | 1 Warning: Label 210 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1717:24: 1717 | cmodnam(jm) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (6/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2038:53: 2038 | cstate(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2128:46: 2128 | csper(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2147:46: 2147 | ctper(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2461:54: 2461 | cfilfic(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2467:54: 2467 | cfilmet(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2477:40: 2477 | cfldcor = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2487:54: 2487 | cconmet(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2493:60: 2493 | cconopt(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2515:59: 2515 | cbofld(jc,ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2530:59: 2530 | cbnfld(jc,ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:954:40: 954 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:961:40: 961 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:968:40: 968 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:976:40: 976 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:983:40: 983 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:991:40: 991 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:998:38: 998 | cg_input_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (32/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1323:53: 1323 | cficbf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1327:53: 1327 | cficaf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1339:58: 1339 | cficbf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1343:57: 1343 | cficaf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1369:57: 1369 | cficbf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1374:57: 1374 | cficaf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1401:57: 1401 | canal(ja,ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:3989:33: 3989 | INTEGER (kind=ip_intwp_p) :: ib | 1 Warning: Unused variable ‘ib’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:3944:33: 3944 | SUBROUTINE skip (cd_one, id_len, endflag) | 1 Warning: Unused dummy argument ‘id_len’ at (1) [-Wunused-dummy-argument] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1638:24: 1638 | CHARACTER*64 cl_cfname,cl_cfunit | 1 Warning: Unused variable ‘cl_cfname’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1638:34: 1638 | CHARACTER*64 cl_cfname,cl_cfunit | 1 Warning: Unused variable ‘cl_cfunit’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1648:37: 1648 | integer (kind=ip_intwp_p) :: icofld,imodel | 1 Warning: Unused variable ‘icofld’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1640:50: 1640 | INTEGER (kind=ip_intwp_p) il_file_unit, id_error | 1 Warning: Unused variable ‘id_error’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1640:40: 1640 | INTEGER (kind=ip_intwp_p) il_file_unit, id_error | 1 Warning: Unused variable ‘il_file_unit’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1642:32: 1642 | INTEGER (kind=ip_intwp_p) il_i, il_pos | 1 Warning: Unused variable ‘il_i’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1641:43: 1641 | INTEGER (kind=ip_intwp_p) il_max_entry_id, il_no_of_entries | 1 Warning: Unused variable ‘il_max_entry_id’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1641:61: 1641 | INTEGER (kind=ip_intwp_p) il_max_entry_id, il_no_of_entries | 1 Warning: Unused variable ‘il_no_of_entries’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1642:40: 1642 | INTEGER (kind=ip_intwp_p) il_i, il_pos | 1 Warning: Unused variable ‘il_pos’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1647:49: 1647 | integer (kind=ip_intwp_p) :: ifca,ifcb,ilab,jff,jc | 1 Warning: Unused variable ‘jff’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1646:40: 1646 | integer (kind=ip_intwp_p) :: ja,jf,jfn,jz,jm,ilen,idum | 1 Warning: Unused variable ‘jfn’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1644:19: 1644 | INTEGER lastplace | 1 Warning: Unused variable ‘lastplace’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1643:32: 1643 | LOGICAL llseq, lllag, ll_exist | 1 Warning: Unused variable ‘ll_exist’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:725:22: 725 | CHARACTER*7 cl_bsend | 1 Warning: Unused variable ‘cl_bsend’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:721:19: 721 | CHARACTER*2 cldeb | 1 Warning: Unused variable ‘cldeb’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:723:20: 723 | CHARACTER*8 clwork | 1 Warning: Unused variable ‘clwork’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:734:46: 734 | integer (kind=ip_intwp_p) :: ig_clim_maxport | 1 Warning: Unused variable ‘ig_clim_maxport’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:732:13: 732 | il_auxaf, istatus, il_id | 1 Warning: Unused variable ‘il_auxaf’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:731:63: 731 | INTEGER (kind=ip_intwp_p) iind, il_redu, ib, il_aux, il_auxbf, & | 1 Warning: Unused variable ‘il_auxbf’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:732:29: 732 | il_auxaf, istatus, il_id | 1 Warning: Unused variable ‘il_id’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:728:44: 728 | INTEGER (kind=ip_intwp_p) il_varid, il_len, il_err, il_maxanal | 1 Warning: Unused variable ‘il_len’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:731:41: 731 | INTEGER (kind=ip_intwp_p) iind, il_redu, ib, il_aux, il_auxbf, & | 1 Warning: Unused variable ‘il_redu’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:728:36: 728 | INTEGER (kind=ip_intwp_p) il_varid, il_len, il_err, il_maxanal | 1 Warning: Unused variable ‘il_varid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:732:22: 732 | il_auxaf, istatus, il_id | 1 Warning: Unused variable ‘istatus’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:733:39: 733 | integer (kind=ip_intwp_p) :: ja,jz,jm,jf,ilen | 1 Warning: Unused variable ‘jm’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:733:36: 733 | integer (kind=ip_intwp_p) :: ja,jz,jm,jf,ilen | 1 Warning: Unused variable ‘jz’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:735:21: 735 | logical :: lg_bsend,endflag | 1 Warning: Unused variable ‘lg_bsend’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:3787:0: 3787 | SUBROUTINE parseblk (cdone, cdtwo, knumb, klen, kleng) | Warning: ‘parseblk’ defined but not used [-Wunused-function] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2665:0: 2665 | cficbf(ig_number_field(jf))(1:ifcb)//cglonsuf, & | Warning: ‘ifcb’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2669:0: 2669 | cficaf(ig_number_field(jf))(1:ifca)//cglonsuf, & | Warning: ‘ifca’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_ioshr.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1572:36: 1572 | integer(ip_i4_p) :: ncid,dimid,dimid3(3),varid ! cdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1471:36: 1471 | integer(ip_i4_p) :: ncid,dimid,dimid2(2),varid ! cdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1371:36: 1371 | integer(ip_i4_p) :: ncid,dimid,dimid2(2),varid ! cdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1259:36: 1259 | character(len=ic_med) :: gridname ! grid name derived from fldname | 1 Warning: Unused variable ‘gridname’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1257:29: 1257 | integer(ip_i4_p) :: ind ! string index | 1 Warning: Unused variable ‘ind’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1086:37: 1086 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1086:41: 1086 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1103:34: 1103 | real(ip_double_p) :: tbnds(2) | 1 Warning: Unused variable ‘tbnds’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1100:37: 1100 | logical :: whead,wdata ! for writing restart/history cdf files | 1 Warning: Unused variable ‘wdata’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1100:31: 1100 | logical :: whead,wdata ! for writing restart/history cdf files | 1 Warning: Unused variable ‘whead’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:897:37: 897 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:897:41: 897 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:913:34: 913 | real(ip_double_p) :: tbnds(2) | 1 Warning: Unused variable ‘tbnds’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:911:37: 911 | logical :: whead,wdata ! for writing restart/history cdf files | 1 Warning: Unused variable ‘wdata’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:911:31: 911 | logical :: whead,wdata ! for writing restart/history cdf files | 1 Warning: Unused variable ‘whead’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:740:36: 740 | integer(ip_i4_p) :: ncid,dimid,dimid1(1),varid ! netcdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:557:36: 557 | integer(ip_i4_p) :: ncid,dimid,dimid1(1),varid ! netcdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:400:36: 400 | integer(ip_i4_p) :: ncid,dimid,dimid2(2),varid ! netcdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:391:37: 391 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:391:41: 391 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:398:33: 398 | character(ic_med) :: lstring ! local filename | 1 Warning: Unused variable ‘lstring’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:217:36: 217 | integer(ip_i4_p) :: ncid,dimid,dimid2(2),varid ! netcdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:209:37: 209 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:209:41: 209 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:215:33: 215 | character(ic_med) :: lstring ! local filename | 1 Warning: Unused variable ‘lstring’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:56:36: 56 | integer(ip_i4_p) :: ncid,dimid,dimid2(2),varid ! netcdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:51:37: 51 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:51:41: 51 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk1’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1738:11: 1738 | bsize = ((ns/commsize) + 1 ) * 1.2 ! local temporary buffer size | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1827:23: 1827 | bsize = 1.5 * bsize | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1534:34: 1534 | character(len=ic_long):: attstr ! netCDF attribute name string | 1 Warning: Unused variable ‘attstr’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1499:29: 1499 | integer :: iarea ! aVect index for area | 1 Warning: Unused variable ‘iarea’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1495:26: 1495 | integer :: ni,nj ! number of row and col in the matrix | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1495:29: 1495 | integer :: ni,nj ! number of row and col in the matrix | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1513:38: 1513 | real(R8) ,allocatable :: rtemp(:) ! real temporary | 1 Warning: Unused variable ‘rtemp’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1533:34: 1533 | character,allocatable :: str(:) ! variable length char string | 1 Warning: Unused variable ‘str’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:149:31: 149 | integer(kind=ip_i4_p) :: part | 1 Warning: Unused variable ‘part’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1811:13: 1811 | if (mywt) then | ^ Warning: ‘mywt’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1509:28: 1509 | logical :: mywt ! does this weight belong on my pe | ^ note: ‘mywt’ was declared here /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1708:0: 1708 | do n = 1,size(mygsmap%start) | Warning: ‘mygsmap’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1524:37: 1524 | type(mct_gsMap),pointer :: mygsmap ! pointer to one of the gsmaps | ^ note: ‘mygsmap’ was declared here /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:1408:36: 1408 | character(len=ic_med) :: tstring ! timer label string | 1 Warning: Unused variable ‘tstring’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:265:48: 265 | INTEGER(kind=ip_i4_p) :: lsize,nflds,iicount | 1 Warning: Unused variable ‘iicount’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:265:40: 265 | INTEGER(kind=ip_i4_p) :: lsize,nflds,iicount | 1 Warning: Unused variable ‘nflds’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:47:33: 47 | logical :: a2on,a3on,a4on,a5on ! data 2-5 logicals | 1 Warning: Unused variable ‘a2on’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:47:38: 47 | logical :: a2on,a3on,a4on,a5on ! data 2-5 logicals | 1 Warning: Unused variable ‘a3on’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:47:43: 47 | logical :: a2on,a3on,a4on,a5on ! data 2-5 logicals | 1 Warning: Unused variable ‘a4on’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:47:48: 47 | logical :: a2on,a3on,a4on,a5on ! data 2-5 logicals | 1 Warning: Unused variable ‘a5on’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:20:54: 20 | integer(kind=ip_i4_p) istatus(MPI_STATUS_SIZE) | 1 Warning: Unused PRIVATE module variable ‘istatus’ declared at (1) [-Wunused-value] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:731:30: 731 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:731:33: 731 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:730:35: 730 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘nis’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:731:36: 731 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:730:39: 730 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘njs’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:730:31: 730 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘ns’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:676:30: 676 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:676:33: 676 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:676:36: 676 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:633:30: 633 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:633:33: 633 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:632:35: 632 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘nis’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:633:36: 633 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:632:39: 632 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘njs’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:632:31: 632 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘ns’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:580:30: 580 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:580:33: 580 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:579:35: 579 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘nis’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:580:36: 580 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:579:39: 579 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘njs’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:450:30: 450 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:450:33: 450 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:450:36: 450 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:315:30: 315 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:315:33: 315 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:315:36: 315 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:187:30: 187 | integer(kind=ip_i4_p) :: n | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:58:30: 58 | integer(kind=ip_i4_p) :: n | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_grid.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_grid.F90:114:56: 114 | type(prism_grid_type),public,save :: prism_grid(mgrid) | 1 Warning: Array ‘prism_grid’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider using ‘-frecursive’, or increase the ‘-fmax-stack-var-size=’ limit, or change the code to use an ALLOCATABLE array. [-Wsurprising] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_grid.F90:579:21: 579 | logical :: exists ! check if file exists | 1 Warning: Unused variable ‘exists’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:584:30: 584 | INTEGER (kind=ip_intwp_p) :: n, il, ierr, tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:641:30: 641 | INTEGER (kind=ip_intwp_p) :: tmp_intercomm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:642:30: 642 | INTEGER (kind=ip_intwp_p) :: ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:59:43: 59 | integer(kind=ip_intwp_p) :: pio_numtasks | 1 Warning: Unused variable ‘pio_numtasks’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:58:39: 58 | integer(kind=ip_intwp_p) :: pio_root | 1 Warning: Unused variable ‘pio_root’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:57:41: 57 | integer(kind=ip_intwp_p) :: pio_stride | 1 Warning: Unused variable ‘pio_stride’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:56:39: 56 | character(len=ic_med) :: pio_type | 1 Warning: Unused variable ‘pio_type’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_auxiliary_routines.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_auxiliary_routines.F90:24:54: 24 | integer(kind=ip_i4_p) istatus(MPI_STATUS_SIZE) | 1 Warning: Unused PRIVATE module variable ‘istatus’ declared at (1) [-Wunused-value] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_auxiliary_routines.F90:253:0: 253 | .OR. (trans == ip_min) ) THEN | Warning: ‘trans’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_prism.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] ar -ruv /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/libpsmile.MPI1.a mod_oasis.o mod_oasis_advance.o mod_oasis_auxiliary_routines.o mod_oasis_coupler.o mod_oasis_data.o mod_oasis_getput_interface.o mod_oasis_grid.o mod_oasis_io.o mod_oasis_ioshr.o mod_oasis_kinds.o mod_oasis_method.o mod_oasis_mpi.o mod_oasis_namcouple.o mod_oasis_parameters.o mod_oasis_part.o mod_oasis_string.o mod_oasis_sys.o mod_oasis_timer.o mod_oasis_var.o mod_prism.o ar: `u' modifier ignored since `D' is the default (see `U') ar: creating /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/libpsmile.MPI1.a a - mod_oasis.o a - mod_oasis_advance.o a - mod_oasis_auxiliary_routines.o a - mod_oasis_coupler.o a - mod_oasis_data.o a - mod_oasis_getput_interface.o a - mod_oasis_grid.o a - mod_oasis_io.o a - mod_oasis_ioshr.o a - mod_oasis_kinds.o a - mod_oasis_method.o a - mod_oasis_mpi.o a - mod_oasis_namcouple.o a - mod_oasis_parameters.o a - mod_oasis_part.o a - mod_oasis_string.o a - mod_oasis_sys.o a - mod_oasis_timer.o a - mod_oasis_var.o a - mod_prism.o /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_kinds.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_kinds.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_kinds.F90:40:25: 40 | INTEGER(kind=ip_i4_p) :: OASIS_debug | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_data.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_data.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_sys.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_sys.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_sys.F90:49:35: 49 | SUBROUTINE oasis_abort(id_compid, cd_routine, cd_message) | 1 Warning: Unused dummy argument ‘id_compid’ at (1) [-Wunused-dummy-argument] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_parameters.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_parameters.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_parameters.F90:17:52: 17 | INTEGER (kind=ip_intwp_p), PARAMETER :: PRISM_Ok = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_mpi.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:2041:24: 2041 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 1 ...... 2102 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:2044:21: 2044 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 1 ...... 2105 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1980:24: 1980 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_INTEGER,reduce_type,comm,ierr) | 1 ...... 2102 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1983:21: 1983 | call MPI_REDUCE(lvec,gvec,gsize,MPI_INTEGER,reduce_type,0,comm,ierr) | 1 ...... 2105 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1797:24: 1797 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 1 ...... 2102 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1800:21: 1800 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 1 ...... 2105 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1431:24: 1431 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 1 ...... 2102 | call MPI_ALLREDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:1434:21: 1434 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 1 ...... 2105 | call MPI_REDUCE(lvec,gvec,gsize,MPI_REAL8,reduce_type,0,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:912:18: 912 | call MPI_BCAST(arr,lsize,MPI_INTEGER,lpebcast,comm,ierr) | 1 ...... 954 | call MPI_BCAST(arr,lsize,MPI_REAL8,lpebcast,comm,ierr) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:708:18: 708 | call MPI_BCAST(vec,lsize,MPI_REAL8,lpebcast,comm,ierr) | 1 ...... 954 | call MPI_BCAST(arr,lsize,MPI_REAL8,lpebcast,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:430:17: 430 | call MPI_RECV(lvec,lsize,MPI_REAL8,pid,tag,comm,status,ierr) | 1 ...... 508 | call MPI_RECV(array,lsize,MPI_REAL8,pid,tag,comm,status,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:391:17: 391 | call MPI_RECV(lvec,lsize,MPI_INTEGER,pid,tag,comm,status,ierr) | 1 ...... 508 | call MPI_RECV(array,lsize,MPI_REAL8,pid,tag,comm,status,ierr) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:237:17: 237 | call MPI_SEND(lvec,lsize,MPI_REAL8,pid,tag,comm,ierr) | 1 ...... 313 | call MPI_SEND(array,lsize,MPI_REAL8,pid,tag,comm,ierr) | 2 Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar) /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_mpi.F90:199:17: 199 | call MPI_SEND(lvec,lsize,MPI_INTEGER,pid,tag,comm,ierr) | 1 ...... 313 | call MPI_SEND(array,lsize,MPI_REAL8,pid,tag,comm,ierr) | 2 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(4)/REAL(8)). /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_timer.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:397:61: 397 | sum_ctime_global_tmp(n,1:mpi_size_local) = rarr(1:mpi_size_local) | 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:394:31: 385 | call MPI_Gather(cval,len(cval),MPI_CHARACTER,carr(1),len(cval),& | 2 ...... 394 | call MPI_Gather(rval,1,MPI_DOUBLE_PRECISION,rarr(1),1,MPI_DOUBLE_PRECISION,& | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/CHARACTER(*)). /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:253:34: 253 | integer :: pe1,pe2 | 1 Warning: Unused variable ‘pe1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:253:38: 253 | integer :: pe1,pe2 | 1 Warning: Unused variable ‘pe2’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:94:26: 94 | integer :: ierror,n | 1 Warning: Unused variable ‘ierror’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:237:63: 237 | double precision, allocatable :: sum_wtime_global(:,:) | ^ Warning: ‘sum_wtime_global.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:237:63: Warning: ‘sum_wtime_global.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:236:63: 236 | real, allocatable :: sum_ctime_global(:,:) | ^ Warning: ‘sum_ctime_global.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:236:63: Warning: ‘sum_ctime_global.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:238:59: 238 | integer, allocatable :: count_global(:,:) | ^ Warning: ‘count_global.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:238:59: Warning: ‘count_global.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:241:54: 241 | character(len=ic_med), allocatable :: carr(:) | ^ Warning: ‘carr.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:233:67: 233 | double precision, allocatable :: sum_wtime_global_tmp(:,:) | ^ Warning: ‘sum_wtime_global_tmp.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:233:67: Warning: ‘sum_wtime_global_tmp.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:347:0: 347 | sum_wtime_global_tmp = 0.0 | Warning: ‘sum_wtime_global_tmp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_timer.F90:233:67: 233 | double precision, allocatable :: sum_wtime_global_tmp(:,:) | ^ Warning: ‘sum_wtime_global_tmp.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_part.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_part.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_part.F90:167:0: 167 | deallocate(start,length) | Warning: ‘start.data’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_var.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_var.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_string.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_string.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_string.F90:877:28: 877 | integer(ip_i4_p) :: i,j,n ! generic indecies | 1 Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_string.F90:762:26: 762 | integer(ip_i4_p) :: n ! counter | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_string.F90:461:28: 461 | integer(ip_i4_p) :: rCode ! return code | 1 Warning: Unused variable ‘rcode’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_string.F90:406:28: 406 | integer(ip_i4_p) :: rCode ! return code | 1 Warning: Unused variable ‘rcode’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_namcouple.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2379:8: 2379 | cnorm_opt(ig_number_field(jf)) .NE. 'DESTAREA' .AND. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2575:5: 2575 | 2010 FORMAT(A3,A1,I2) | 1 Warning: Label 2010 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2573:5: 2573 | 2008 FORMAT(A2,I4) | 1 Warning: Label 2008 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1927:4: 1927 | 1003 FORMAT(I3) | 1 Warning: Label 1003 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2917:4: 2917 | 235 CONTINUE | 1 Warning: Label 235 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2903:4: 2903 | 233 CONTINUE | 1 Warning: Label 233 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2873:4: 2873 | 210 CONTINUE | 1 Warning: Label 210 at (1) defined but not used [-Wunused-label] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1717:24: 1717 | cmodnam(jm) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (6/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2038:53: 2038 | cstate(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2128:46: 2128 | csper(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2147:46: 2147 | ctper(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2461:54: 2461 | cfilfic(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2467:54: 2467 | cfilmet(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2477:40: 2477 | cfldcor = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2487:54: 2487 | cconmet(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2493:60: 2493 | cconopt(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2515:59: 2515 | cbofld(jc,ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2530:59: 2530 | cbnfld(jc,ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:954:40: 954 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:961:40: 961 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:968:40: 968 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:976:40: 976 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:983:40: 983 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:991:40: 991 | cg_restart_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:998:38: 998 | cg_input_file(jf) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (32/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1323:53: 1323 | cficbf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1327:53: 1327 | cficaf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1339:58: 1339 | cficbf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1343:57: 1343 | cficaf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1369:57: 1369 | cficbf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1374:57: 1374 | cficaf(ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1401:57: 1401 | canal(ja,ig_number_field(jf)) = clvari | 1 Warning: CHARACTER expression will be truncated in assignment (8/1000) at (1) [-Wcharacter-truncation] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:3989:33: 3989 | INTEGER (kind=ip_intwp_p) :: ib | 1 Warning: Unused variable ‘ib’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:3944:33: 3944 | SUBROUTINE skip (cd_one, id_len, endflag) | 1 Warning: Unused dummy argument ‘id_len’ at (1) [-Wunused-dummy-argument] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1638:24: 1638 | CHARACTER*64 cl_cfname,cl_cfunit | 1 Warning: Unused variable ‘cl_cfname’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1638:34: 1638 | CHARACTER*64 cl_cfname,cl_cfunit | 1 Warning: Unused variable ‘cl_cfunit’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1648:37: 1648 | integer (kind=ip_intwp_p) :: icofld,imodel | 1 Warning: Unused variable ‘icofld’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1640:50: 1640 | INTEGER (kind=ip_intwp_p) il_file_unit, id_error | 1 Warning: Unused variable ‘id_error’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1640:40: 1640 | INTEGER (kind=ip_intwp_p) il_file_unit, id_error | 1 Warning: Unused variable ‘il_file_unit’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1642:32: 1642 | INTEGER (kind=ip_intwp_p) il_i, il_pos | 1 Warning: Unused variable ‘il_i’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1641:43: 1641 | INTEGER (kind=ip_intwp_p) il_max_entry_id, il_no_of_entries | 1 Warning: Unused variable ‘il_max_entry_id’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1641:61: 1641 | INTEGER (kind=ip_intwp_p) il_max_entry_id, il_no_of_entries | 1 Warning: Unused variable ‘il_no_of_entries’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1642:40: 1642 | INTEGER (kind=ip_intwp_p) il_i, il_pos | 1 Warning: Unused variable ‘il_pos’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1647:49: 1647 | integer (kind=ip_intwp_p) :: ifca,ifcb,ilab,jff,jc | 1 Warning: Unused variable ‘jff’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1646:40: 1646 | integer (kind=ip_intwp_p) :: ja,jf,jfn,jz,jm,ilen,idum | 1 Warning: Unused variable ‘jfn’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1644:19: 1644 | INTEGER lastplace | 1 Warning: Unused variable ‘lastplace’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:1643:32: 1643 | LOGICAL llseq, lllag, ll_exist | 1 Warning: Unused variable ‘ll_exist’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:725:22: 725 | CHARACTER*7 cl_bsend | 1 Warning: Unused variable ‘cl_bsend’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:721:19: 721 | CHARACTER*2 cldeb | 1 Warning: Unused variable ‘cldeb’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:723:20: 723 | CHARACTER*8 clwork | 1 Warning: Unused variable ‘clwork’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:734:46: 734 | integer (kind=ip_intwp_p) :: ig_clim_maxport | 1 Warning: Unused variable ‘ig_clim_maxport’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:732:13: 732 | il_auxaf, istatus, il_id | 1 Warning: Unused variable ‘il_auxaf’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:731:63: 731 | INTEGER (kind=ip_intwp_p) iind, il_redu, ib, il_aux, il_auxbf, & | 1 Warning: Unused variable ‘il_auxbf’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:732:29: 732 | il_auxaf, istatus, il_id | 1 Warning: Unused variable ‘il_id’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:728:44: 728 | INTEGER (kind=ip_intwp_p) il_varid, il_len, il_err, il_maxanal | 1 Warning: Unused variable ‘il_len’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:731:41: 731 | INTEGER (kind=ip_intwp_p) iind, il_redu, ib, il_aux, il_auxbf, & | 1 Warning: Unused variable ‘il_redu’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:728:36: 728 | INTEGER (kind=ip_intwp_p) il_varid, il_len, il_err, il_maxanal | 1 Warning: Unused variable ‘il_varid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:732:22: 732 | il_auxaf, istatus, il_id | 1 Warning: Unused variable ‘istatus’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:733:39: 733 | integer (kind=ip_intwp_p) :: ja,jz,jm,jf,ilen | 1 Warning: Unused variable ‘jm’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:733:36: 733 | integer (kind=ip_intwp_p) :: ja,jz,jm,jf,ilen | 1 Warning: Unused variable ‘jz’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:735:21: 735 | logical :: lg_bsend,endflag | 1 Warning: Unused variable ‘lg_bsend’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:3787:0: 3787 | SUBROUTINE parseblk (cdone, cdtwo, knumb, klen, kleng) | Warning: ‘parseblk’ defined but not used [-Wunused-function] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2665:0: 2665 | cficbf(ig_number_field(jf))(1:ifcb)//cglonsuf, & | Warning: ‘ifcb’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_namcouple.F90:2669:0: 2669 | cficaf(ig_number_field(jf))(1:ifca)//cglonsuf, & | Warning: ‘ifca’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_ioshr.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_ioshr.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_io.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1572:36: 1572 | integer(ip_i4_p) :: ncid,dimid,dimid3(3),varid ! cdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1471:36: 1471 | integer(ip_i4_p) :: ncid,dimid,dimid2(2),varid ! cdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1371:36: 1371 | integer(ip_i4_p) :: ncid,dimid,dimid2(2),varid ! cdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1259:36: 1259 | character(len=ic_med) :: gridname ! grid name derived from fldname | 1 Warning: Unused variable ‘gridname’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1257:29: 1257 | integer(ip_i4_p) :: ind ! string index | 1 Warning: Unused variable ‘ind’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1086:37: 1086 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1086:41: 1086 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1103:34: 1103 | real(ip_double_p) :: tbnds(2) | 1 Warning: Unused variable ‘tbnds’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1100:37: 1100 | logical :: whead,wdata ! for writing restart/history cdf files | 1 Warning: Unused variable ‘wdata’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:1100:31: 1100 | logical :: whead,wdata ! for writing restart/history cdf files | 1 Warning: Unused variable ‘whead’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:897:37: 897 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:897:41: 897 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:913:34: 913 | real(ip_double_p) :: tbnds(2) | 1 Warning: Unused variable ‘tbnds’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:911:37: 911 | logical :: whead,wdata ! for writing restart/history cdf files | 1 Warning: Unused variable ‘wdata’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:911:31: 911 | logical :: whead,wdata ! for writing restart/history cdf files | 1 Warning: Unused variable ‘whead’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:740:36: 740 | integer(ip_i4_p) :: ncid,dimid,dimid1(1),varid ! netcdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:557:36: 557 | integer(ip_i4_p) :: ncid,dimid,dimid1(1),varid ! netcdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:400:36: 400 | integer(ip_i4_p) :: ncid,dimid,dimid2(2),varid ! netcdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:391:37: 391 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:391:41: 391 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:398:33: 398 | character(ic_med) :: lstring ! local filename | 1 Warning: Unused variable ‘lstring’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:217:36: 217 | integer(ip_i4_p) :: ncid,dimid,dimid2(2),varid ! netcdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:209:37: 209 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:209:41: 209 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk1’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:215:33: 215 | character(ic_med) :: lstring ! local filename | 1 Warning: Unused variable ‘lstring’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:56:36: 56 | integer(ip_i4_p) :: ncid,dimid,dimid2(2),varid ! netcdf info | 1 Warning: Unused variable ‘dimid’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:51:37: 51 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_io.F90:51:41: 51 | integer(ip_i4_p) :: n,n1,i,j,fk,fk1 ! index | 1 Warning: Unused variable ‘fk1’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_coupler.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1738:11: 1738 | bsize = ((ns/commsize) + 1 ) * 1.2 ! local temporary buffer size | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1827:23: 1827 | bsize = 1.5 * bsize | 1 Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1534:34: 1534 | character(len=ic_long):: attstr ! netCDF attribute name string | 1 Warning: Unused variable ‘attstr’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1499:29: 1499 | integer :: iarea ! aVect index for area | 1 Warning: Unused variable ‘iarea’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1495:26: 1495 | integer :: ni,nj ! number of row and col in the matrix | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1495:29: 1495 | integer :: ni,nj ! number of row and col in the matrix | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1513:38: 1513 | real(R8) ,allocatable :: rtemp(:) ! real temporary | 1 Warning: Unused variable ‘rtemp’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1533:34: 1533 | character,allocatable :: str(:) ! variable length char string | 1 Warning: Unused variable ‘str’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:149:31: 149 | integer(kind=ip_i4_p) :: part | 1 Warning: Unused variable ‘part’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1811:13: 1811 | if (mywt) then | ^ Warning: ‘mywt’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1509:28: 1509 | logical :: mywt ! does this weight belong on my pe | ^ note: ‘mywt’ was declared here /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1708:0: 1708 | do n = 1,size(mygsmap%start) | Warning: ‘mygsmap’ may be used uninitialized in this function [-Wmaybe-uninitialized] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_coupler.F90:1524:37: 1524 | type(mct_gsMap),pointer :: mygsmap ! pointer to one of the gsmaps | ^ note: ‘mygsmap’ was declared here /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_advance.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:1408:36: 1408 | character(len=ic_med) :: tstring ! timer label string | 1 Warning: Unused variable ‘tstring’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:265:48: 265 | INTEGER(kind=ip_i4_p) :: lsize,nflds,iicount | 1 Warning: Unused variable ‘iicount’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:265:40: 265 | INTEGER(kind=ip_i4_p) :: lsize,nflds,iicount | 1 Warning: Unused variable ‘nflds’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:47:33: 47 | logical :: a2on,a3on,a4on,a5on ! data 2-5 logicals | 1 Warning: Unused variable ‘a2on’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:47:38: 47 | logical :: a2on,a3on,a4on,a5on ! data 2-5 logicals | 1 Warning: Unused variable ‘a3on’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:47:43: 47 | logical :: a2on,a3on,a4on,a5on ! data 2-5 logicals | 1 Warning: Unused variable ‘a4on’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_advance.F90:47:48: 47 | logical :: a2on,a3on,a4on,a5on ! data 2-5 logicals | 1 Warning: Unused variable ‘a5on’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_getput_interface.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:20:54: 20 | integer(kind=ip_i4_p) istatus(MPI_STATUS_SIZE) | 1 Warning: Unused PRIVATE module variable ‘istatus’ declared at (1) [-Wunused-value] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:731:30: 731 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:731:33: 731 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:730:35: 730 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘nis’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:731:36: 731 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:730:39: 730 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘njs’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:730:31: 730 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘ns’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:676:30: 676 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:676:33: 676 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:676:36: 676 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:633:30: 633 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:633:33: 633 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:632:35: 632 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘nis’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:633:36: 633 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:632:39: 632 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘njs’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:632:31: 632 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘ns’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:580:30: 580 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:580:33: 580 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:579:35: 579 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘nis’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:580:36: 580 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:579:39: 579 | integer(kind=ip_i4_p) :: ns,nis,njs | 1 Warning: Unused variable ‘njs’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:450:30: 450 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:450:33: 450 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:450:36: 450 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:315:30: 315 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:315:33: 315 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘ni’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:315:36: 315 | integer(kind=ip_i4_p) :: n,ni,nj | 1 Warning: Unused variable ‘nj’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:187:30: 187 | integer(kind=ip_i4_p) :: n | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_getput_interface.F90:58:30: 58 | integer(kind=ip_i4_p) :: n | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_grid.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_grid.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_grid.F90:114:56: 114 | type(prism_grid_type),public,save :: prism_grid(mgrid) | 1 Warning: Array ‘prism_grid’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider using ‘-frecursive’, or increase the ‘-fmax-stack-var-size=’ limit, or change the code to use an ALLOCATABLE array. [-Wsurprising] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_grid.F90:579:21: 579 | logical :: exists ! check if file exists | 1 Warning: Unused variable ‘exists’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_method.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:584:30: 584 | INTEGER (kind=ip_intwp_p) :: n, il, ierr, tag | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:641:30: 641 | INTEGER (kind=ip_intwp_p) :: tmp_intercomm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:642:30: 642 | INTEGER (kind=ip_intwp_p) :: ierr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:59:43: 59 | integer(kind=ip_intwp_p) :: pio_numtasks | 1 Warning: Unused variable ‘pio_numtasks’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:58:39: 58 | integer(kind=ip_intwp_p) :: pio_root | 1 Warning: Unused variable ‘pio_root’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:57:41: 57 | integer(kind=ip_intwp_p) :: pio_stride | 1 Warning: Unused variable ‘pio_stride’ declared at (1) [-Wunused-variable] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_method.F90:56:39: 56 | character(len=ic_med) :: pio_type | 1 Warning: Unused variable ‘pio_type’ declared at (1) [-Wunused-variable] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis_auxiliary_routines.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_auxiliary_routines.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_auxiliary_routines.F90:24:54: 24 | integer(kind=ip_i4_p) istatus(MPI_STATUS_SIZE) | 1 Warning: Unused PRIVATE module variable ‘istatus’ declared at (1) [-Wunused-value] /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis_auxiliary_routines.F90:253:0: 253 | .OR. (trans == ip_min) ) THEN | Warning: ‘trans’ may be used uninitialized in this function [-Wmaybe-uninitialized] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_oasis.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_oasis.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] /usr/bin/mpif90 -Wall -I/usr/include -g -O2 -fdebug-prefix-map=/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022=. -fstack-protector-strong -fallow-invalid-boz -fallow-argument-mismatch -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/psmile.MPI1 -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -Duse_netCDF -Duse_comm_MPI1 -D__VERBOSE -DTREAT_OVERLAY -I/usr/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/include -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/mct -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/scrip -I/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio -fPIC -o mod_prism.o.pic -c /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//lib/psmile/src/mod_prism.F90 f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] f951: Warning: Nonexistent include directory ‘/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/build/lib/pio’ [-Wmissing-include-dirs] ld -shared -o /build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/libpsmile.MPI1.so mod_oasis.o.pic mod_oasis_advance.o.pic mod_oasis_auxiliary_routines.o.pic mod_oasis_coupler.o.pic mod_oasis_data.o.pic mod_oasis_getput_interface.o.pic mod_oasis_grid.o.pic mod_oasis_io.o.pic mod_oasis_ioshr.o.pic mod_oasis_kinds.o.pic mod_oasis_method.o.pic mod_oasis_mpi.o.pic mod_oasis_namcouple.o.pic mod_oasis_parameters.o.pic mod_oasis_part.o.pic mod_oasis_string.o.pic mod_oasis_sys.o.pic mod_oasis_timer.o.pic mod_oasis_var.o.pic mod_prism.o.pic --soname libpsmile.so.0d -lc make[4]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/build/build/lib/psmile.MPI1' make[3]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' make[2]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/util/make_dir' # Create pkgconfig files. for p in mct.pc psmile.pc scrip.pc ; do \ sed -e 's/@VERSION@/3+mct+dfsg.121022/' -e 's/@LIBDIR@/\/usr\/lib\/x86_64-linux-gnu/' \ < debian/${p}.in > debian/${p}; \ done # And docs /usr/bin/make -C lib/mct/doc make[2]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc' cd texsrc; make make[3]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc/texsrc' cp ../../mct/*.F90 . cp ../../mpeu/m_String.F90 . cp ../../mpeu/m_List.F90 . make doc make[4]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc/texsrc' perl ../../protex/protex -b m_Accumulator.F90 > m_Accumulator.tex perl ../../protex/protex -b m_AccumulatorComms.F90 > m_AccumulatorComms.tex perl ../../protex/protex -b m_AttrVect.F90 > m_AttrVect.tex perl ../../protex/protex -b m_AttrVectComms.F90 > m_AttrVectComms.tex perl ../../protex/protex -b m_AttrVectReduce.F90 > m_AttrVectReduce.tex perl ../../protex/protex -b m_ConvertMaps.F90 > m_ConvertMaps.tex perl ../../protex/protex -b m_ExchangeMaps.F90 > m_ExchangeMaps.tex perl ../../protex/protex -b m_GeneralGrid.F90 > m_GeneralGrid.tex perl ../../protex/protex -b m_GeneralGridComms.F90 > m_GeneralGridComms.tex perl ../../protex/protex -b m_GlobalMap.F90 > m_GlobalMap.tex perl ../../protex/protex -b m_GlobalSegMap.F90 > m_GlobalSegMap.tex perl ../../protex/protex -b m_GlobalSegMapComms.F90 > m_GlobalSegMapComms.tex perl ../../protex/protex -b m_GlobalToLocal.F90 > m_GlobalToLocal.tex perl ../../protex/protex -b m_MCTWorld.F90 > m_MCTWorld.tex perl ../../protex/protex -b m_MatAttrVectMul.F90 > m_MatAttrVectMul.tex perl ../../protex/protex -b m_Merge.F90 > m_Merge.tex perl ../../protex/protex -b m_Navigator.F90 > m_Navigator.tex perl ../../protex/protex -b m_Rearranger.F90 > m_Rearranger.tex perl ../../protex/protex -b m_Router.F90 > m_Router.tex perl ../../protex/protex -b m_SparseMatrix.F90 > m_SparseMatrix.tex perl ../../protex/protex -b m_SparseMatrixComms.F90 > m_SparseMatrixComms.tex perl ../../protex/protex -b m_SparseMatrixDecomp.F90 > m_SparseMatrixDecomp.tex perl ../../protex/protex -b m_SparseMatrixToMaps.F90 > m_SparseMatrixToMaps.tex perl ../../protex/protex -b m_SparseMatrixPlus.F90 > m_SparseMatrixPlus.tex perl ../../protex/protex -b m_SpatialIntegral.F90 > m_SpatialIntegral.tex perl ../../protex/protex -b m_SpatialIntegralV.F90 > m_SpatialIntegralV.tex perl ../../protex/protex -b m_String.F90 > m_String.tex perl ../../protex/protex -b m_Transfer.F90 > m_Transfer.tex perl ../../protex/protex -b m_List.F90 > m_List.tex make[4]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc/texsrc' make[3]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc/texsrc' make apis make[3]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc' cd texsrc; make make[4]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc/texsrc' cp ../../mct/*.F90 . cp ../../mpeu/m_String.F90 . cp ../../mpeu/m_List.F90 . make doc make[5]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc/texsrc' perl ../../protex/protex -b m_Accumulator.F90 > m_Accumulator.tex perl ../../protex/protex -b m_AccumulatorComms.F90 > m_AccumulatorComms.tex perl ../../protex/protex -b m_AttrVect.F90 > m_AttrVect.tex perl ../../protex/protex -b m_AttrVectComms.F90 > m_AttrVectComms.tex perl ../../protex/protex -b m_AttrVectReduce.F90 > m_AttrVectReduce.tex perl ../../protex/protex -b m_ConvertMaps.F90 > m_ConvertMaps.tex perl ../../protex/protex -b m_ExchangeMaps.F90 > m_ExchangeMaps.tex perl ../../protex/protex -b m_GeneralGrid.F90 > m_GeneralGrid.tex perl ../../protex/protex -b m_GeneralGridComms.F90 > m_GeneralGridComms.tex perl ../../protex/protex -b m_GlobalMap.F90 > m_GlobalMap.tex perl ../../protex/protex -b m_GlobalSegMap.F90 > m_GlobalSegMap.tex perl ../../protex/protex -b m_GlobalSegMapComms.F90 > m_GlobalSegMapComms.tex perl ../../protex/protex -b m_GlobalToLocal.F90 > m_GlobalToLocal.tex perl ../../protex/protex -b m_MCTWorld.F90 > m_MCTWorld.tex perl ../../protex/protex -b m_MatAttrVectMul.F90 > m_MatAttrVectMul.tex perl ../../protex/protex -b m_Merge.F90 > m_Merge.tex perl ../../protex/protex -b m_Navigator.F90 > m_Navigator.tex perl ../../protex/protex -b m_Rearranger.F90 > m_Rearranger.tex perl ../../protex/protex -b m_Router.F90 > m_Router.tex perl ../../protex/protex -b m_SparseMatrix.F90 > m_SparseMatrix.tex perl ../../protex/protex -b m_SparseMatrixComms.F90 > m_SparseMatrixComms.tex perl ../../protex/protex -b m_SparseMatrixDecomp.F90 > m_SparseMatrixDecomp.tex perl ../../protex/protex -b m_SparseMatrixToMaps.F90 > m_SparseMatrixToMaps.tex perl ../../protex/protex -b m_SparseMatrixPlus.F90 > m_SparseMatrixPlus.tex perl ../../protex/protex -b m_SpatialIntegral.F90 > m_SpatialIntegral.tex perl ../../protex/protex -b m_SpatialIntegralV.F90 > m_SpatialIntegralV.tex perl ../../protex/protex -b m_String.F90 > m_String.tex perl ../../protex/protex -b m_Transfer.F90 > m_Transfer.tex perl ../../protex/protex -b m_List.F90 > m_List.tex make[5]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc/texsrc' make[4]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc/texsrc' make apisdvi make[4]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc' latex mct_APIs.tex This is pdfTeX, Version 3.14159265-2.6-1.40.21 (TeX Live 2020/Debian) (preloaded format=latex) restricted \write18 enabled. entering extended mode (./mct_APIs.tex LaTeX2e <2020-02-02> patch level 5 L3 programming layer <2020-07-17> (/usr/share/texlive/texmf-dist/tex/latex/base/article.cls Document Class: article 2019/12/20 v1.4l Standard LaTeX document class (/usr/share/texlive/texmf-dist/tex/latex/base/size10.clo)) (/usr/share/texlive/texmf-dist/tex/latex/graphics/epsfig.sty (/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty (/usr/share/texlive/texmf-dist/tex/latex/graphics/keyval.sty) (/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty (/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty) (/usr/share/texlive/texmf-dist/tex/latex/graphics-cfg/graphics.cfg) (/usr/share/texlive/texmf-dist/tex/latex/graphics-def/dvips.def)))) (/usr/share/texlive/texmf-dist/tex/latex/l3backend/l3backend-dvips.def) No file mct_APIs.aux. Underfull \hbox (badness 10000) in paragraph at lines 47--49 Underfull \hbox (badness 10000) in paragraph at lines 55--61 [1] [2] [3] No file mct_APIs.toc. [4] (./texsrc/m_MCTWorld.tex Overfull \hbox (0.14703pt too wide) in paragraph at lines 48--48 []\OT1/cmr/bx/n/12 Fortran: Mod-ule In-ter-face m[]MCTWorld -- MCT-World Class (Source Overfull \hbox (49.3758pt too wide) in paragraph at lines 83--83 [] \OT1/cmtt/m/n/10 ! each c omponent is on (e.g. rank of its[] Overfull \hbox (49.3758pt too wide) in paragraph at lines 83--83 [] \OT1/cmtt/m/n/10 integer,dimension(:,:),pointer :: idGprocid ! Transl ate between local component rank[] [1] [2] [3] Overfull \hbox (7.37616pt too wide) in paragraph at lines 281--281 [] \OT1/cmtt/m/n/10 integer, intent(in) :: ncomps ! to tal number of components[] Overfull \hbox (75.62556pt too wide) in paragraph at lines 281--281 [] \OT1/cmtt/m/n/10 integer, dimension(:),intent(in) :: rnprocspid ! nu mber of processors for each component[] [4] Overfull \hbox (86.12547pt too wide) in paragraph at lines 281--281 [] \OT1/cmtt/m/n/10 integer, dimension(:,:),intent(in) :: ridGprocid ! an array of size (1:ncomps) x (0:Gsize-1)[] Overfull \hbox (7.37616pt too wide) in paragraph at lines 281--281 [] \OT1/cmtt/m/n/10 ! it 's actually 1:Gsize here[] [5] Overfull \hbox (15.12784pt too wide) in paragraph at lines 402--402 []\OT1/cmr/bx/n/12 ComponentRootRank[] - Rank of com-po-nent root on COMM[]WORL D. [6]) [7] (./texsrc/m_AttrVect.tex Overfull \hbox (33.62593pt too wide) in paragraph at lines 151--151 [] \OT1/cmtt/m/n/10 public :: AVSharedIndicesOneType ! Data structure rec ording shared indices between[] Overfull \hbox (23.12602pt too wide) in paragraph at lines 151--151 [] \OT1/cmtt/m/n/10 ! two attribute vect ors, for a single data type[] Overfull \hbox (17.87607pt too wide) in paragraph at lines 151--151 [] \OT1/cmtt/m/n/10 public :: AVSharedIndices ! Data structure recording shared indices between two[] [8] Overfull \hbox (38.87589pt too wide) in paragraph at lines 151--151 [] \OT1/cmtt/m/n/10 logical :: contiguous ! true if index seg ments are contiguous in memory[] Overfull \hbox (12.62611pt too wide) in paragraph at lines 151--151 [] \OT1/cmtt/m/n/10 character*7 :: data_flag ! data type flag (e .g., 'REAL' or 'INTEGER')[] Overfull \hbox (12.62611pt too wide) in paragraph at lines 151--151 [] \OT1/cmtt/m/n/10 ! arrays of indices to storage locations of shared a ttributes between the two[] Overfull \hbox (12.62611pt too wide) in paragraph at lines 151--151 [] \OT1/cmtt/m/n/10 type(AVSharedIndicesOneType) :: shared_real ! sh ared indices of type REAL[] Overfull \hbox (28.37598pt too wide) in paragraph at lines 151--151 [] \OT1/cmtt/m/n/10 type(AVSharedIndicesOneType) :: shared_integer ! sh ared indices of type INTEGER[] [9] Overfull \hbox (70.37561pt too wide) in paragraph at lines 243--243 [] \OT1/cmtt/m/n/10 public :: SharedIndices ! Given two AttrVects, create an AVSharedIndices structure[] Overfull \hbox (38.87589pt too wide) in paragraph at lines 243--243 [] \OT1/cmtt/m/n/10 ! AVSharedIndicesOneTy pe structure for a single type[] Overfull \hbox (17.87607pt too wide) in paragraph at lines 243--243 [] \OT1/cmtt/m/n/10 public :: cleanSharedIndicesOneType ! clean a AVShar edIndicesOneType structure[] Overfull \hbox (49.3758pt too wide) in paragraph at lines 243--243 [] \OT1/cmtt/m/n/10 interface SharedIndicesOneType ; module procedure Share dIndicesOneType_ ; end interface[] [10] Overfull \hbox (28.37598pt too wide) in paragraph at lines 243--243 [] \OT1/cmtt/m/n/10 interface cleanSharedIndices ; module procedure cleanSh aredIndices_ ; end interface[] Overfull \hbox (101.87534pt too wide) in paragraph at lines 243--243 [] \OT1/cmtt/m/n/10 interface cleanSharedIndicesOneType ; module procedure cleanSharedIndicesOneType_ ; end interface[] [11] [12] [13] Overfull \hbox (5.13554pt too wide) in paragraph at lines 481--495 \OT1/cmr/m/n/10 0$. If \OT1/cmtt/m/n/10 aV%iAttr(:,:) \OT1/cmr/m/n/10 is as-so- ci-ated, but \OT1/cmtt/m/n/10 aV%rAttr(:,:) \OT1/cmr/m/n/10 is not, then $[] = []$. [14] [15] [16] [17] Overfull \hbox (45.67706pt too wide) in paragraph at lines 679--691 \OT1/cmr/m/n/10 and \OT1/cmtt/m/n/10 'year'\OT1/cmr/m/n/10 . The ar-ray of in-t e-ger val-ues for the at-tribute \OT1/cmtt/m/n/10 'day' \OT1/cmr/m/n/10 is stor ed in \OT1/cmtt/m/n/10 aV%iAttr(indexIA[](aV,'day'),:)\OT1/cmr/m/n/10 . [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] Overfull \hbox (67.65863pt too wide) in paragraph at lines 1299--1307 []\OT1/cmr/m/n/10 If the op-tional ar-gu-ment \OT1/cmtt/m/n/10 sharedIndices \O T1/cmr/m/n/10 is present, it should be the re-sult of the call \OT1/cmtt/m/n/10 SharedIndicesOneType[](aVin, [28] Overfull \hbox (67.65863pt too wide) in paragraph at lines 1400--1408 []\OT1/cmr/m/n/10 If the op-tional ar-gu-ment \OT1/cmtt/m/n/10 sharedIndices \O T1/cmr/m/n/10 is present, it should be the re-sult of the call \OT1/cmtt/m/n/10 SharedIndicesOneType[](aVin, [29] [30] Overfull \hbox (30.90895pt too wide) in paragraph at lines 1514--1524 []\OT1/cmr/m/n/10 If the op-tional ar-gu-ment \OT1/cmtt/m/n/10 sharedIndices \O T1/cmr/m/n/10 is present, it should be the re-sult of the call \OT1/cmtt/m/n/10 SharedIndices[](aVin, Overfull \hbox (7.37616pt too wide) in paragraph at lines 1531--1531 [] \OT1/cmtt/m/n/10 subroutine Copy_(aVin, aVout, rList, TrList, iList, TiList , vector, sharedIndices)[] [31] [32] [33] [34] [35] Overfull \hbox (18.8445pt too wide) in paragraph at lines 1820--1830 \OT1/cmr/m/n/10 once the user no longer needs them. This should be done through a call to \OT1/cmtt/m/n/10 cleanSharedIndicesOneType[]\OT1/cmr/m/n/10 . Overfull \hbox (33.38261pt too wide) in paragraph at lines 1820--1830 \OT1/cmr/m/n/10 able is to be given new val-ues, \OT1/cmtt/m/n/10 cleanSharedIn dicesOneType[] \OT1/cmr/m/n/10 must be called be-fore \OT1/cmtt/m/n/10 SharedIn dicesOneType[] [36]) [37] (./texsrc/m_AttrVectComms.tex Overfull \hbox (9.2845pt too wide) in paragraph at lines 48--48 \OT1/cmr/bx/n/12 tions Meth-ods for the At-trVect (Source File: m[]AttrVectComm s.F90) [38] [39] [40] [41] [42] [43] [44] [45] Overfull \hbox (9.0998pt too wide) in paragraph at lines 553--558 \OT1/cmr/m/n/10 This rou-tine takes an \OT1/cmtt/m/n/10 AttrVect \OT1/cmr/m/n/1 0 ar-gu-ment \OT1/cmtt/m/n/10 (at input, valid on the root only), and broadcast s Overfull \hbox (49.3758pt too wide) in paragraph at lines 553--558 \OT1/cmtt/m/n/10 it to all the processes associated with the communicator handl e comm. The success (failure) Overfull \hbox (12.62611pt too wide) in paragraph at lines 553--558 \OT1/cmtt/m/n/10 of this routine is reported in the zero (non-zero) value of th e output argument stat. Overfull \hbox (15.19562pt too wide) in paragraph at lines 559--563 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output (on non-root processes) At trVect argument aV represents dynamically Overfull \hbox (7.37616pt too wide) in paragraph at lines 559--563 \OT1/cmtt/m/n/10 allocated memory. When it is no longer needed, it should be de allocated by invoking [46]) [47] (./texsrc/m_AttrVectReduce.tex Overfull \hbox (7.37616pt too wide) in paragraph at lines 51--75 \OT1/cmtt/m/n/10 This module provides routines to perform reductions on the Att rVect datatype. These Overfull \hbox (28.37598pt too wide) in paragraph at lines 51--75 \OT1/cmtt/m/n/10 reductions can either be the types of operations supported by MPI (currently, summation, Overfull \hbox (17.87607pt too wide) in paragraph at lines 51--75 \OT1/cmtt/m/n/10 minimum and maximum are available) that are applied either to all the attributes (both Overfull \hbox (2.1262pt too wide) in paragraph at lines 51--75 \OT1/cmtt/m/n/10 integer and real), or specific reductions applicable only to t he real attributes of Overfull \hbox (7.37616pt too wide) in paragraph at lines 51--75 \OT1/cmtt/m/n/10 an AttrVect. This module provides services for both local (i.e ., one address space) Overfull \hbox (12.62611pt too wide) in paragraph at lines 51--75 \OT1/cmtt/m/n/10 and global (distributed) reductions. The type of reduction is defined through use of [48] Overfull \hbox (16.40607pt too wide) in paragraph at lines 137--144 \OT1/cmtt/m/n/10 The subroutine LocalReduce[]() takes the input AttrVect argume nt inAV, and reduces each Overfull \hbox (28.37598pt too wide) in paragraph at lines 137--144 \OT1/cmtt/m/n/10 of its integer and real attributes, returning them in the outp ut AttrVect argument outAV Overfull \hbox (38.87589pt too wide) in paragraph at lines 137--144 \OT1/cmtt/m/n/10 (which is created by this routine). The type of reduction is d efined by the input INTEGER Overfull \hbox (17.87607pt too wide) in paragraph at lines 137--144 \OT1/cmtt/m/n/10 argument action. Allowed values for action are defined as publ ic data members to this Overfull \hbox (9.94566pt too wide) in paragraph at lines 161--165 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output AttrVect argument outAV is allocated memory, and must be destroyed Overfull \hbox (5.90616pt too wide) in paragraph at lines 161--165 \OT1/cmtt/m/n/10 by invoking the routine AttrVect[]clean() when it is no longer needed. Failure to do [49] Overfull \hbox (16.40607pt too wide) in paragraph at lines 198--205 \OT1/cmtt/m/n/10 The subroutine LocalReduceRAttr[]() takes the input AttrVect a rgument inAV, and reduces Overfull \hbox (28.37598pt too wide) in paragraph at lines 198--205 \OT1/cmtt/m/n/10 each of its REAL attributes, returning them in the output Attr Vect argument outAV (which Overfull \hbox (2.1262pt too wide) in paragraph at lines 198--205 \OT1/cmtt/m/n/10 is created by this routine). The type of reduction is defined by the input INTEGER Overfull \hbox (17.87607pt too wide) in paragraph at lines 198--205 \OT1/cmtt/m/n/10 argument action. Allowed values for action are defined as publ ic data members to this Overfull \hbox (9.94566pt too wide) in paragraph at lines 222--226 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output AttrVect argument outAV is allocated memory, and must be destroyed Overfull \hbox (5.90616pt too wide) in paragraph at lines 222--226 \OT1/cmtt/m/n/10 by invoking the routine AttrVect[]clean() when it is no longer needed. Failure to do [50] Overfull \hbox (0.6562pt too wide) in paragraph at lines 274--297 \OT1/cmtt/m/n/10 The subroutine AllReduce[]() takes the distributed input AttrV ect argument inAV, and Overfull \hbox (28.37598pt too wide) in paragraph at lines 274--297 \OT1/cmtt/m/n/10 performs a global reduction of all its attributes across the M PI communicator associated Overfull \hbox (33.62593pt too wide) in paragraph at lines 274--297 \OT1/cmtt/m/n/10 with the Fortran90 INTEGER handle comm, and returns these redu ced values to all processes Overfull \hbox (44.12584pt too wide) in paragraph at lines 274--297 \OT1/cmtt/m/n/10 in the AttrVect argument outAV (which is created by this routi ne). The reduction operation Overfull \hbox (7.37616pt too wide) in paragraph at lines 274--297 \OT1/cmtt/m/n/10 is specified by the user, and must have one of the values list ed in the table below: Overfull \hbox (9.94566pt too wide) in paragraph at lines 298--302 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output AttrVect argument outAV is allocated memory, and must be destroyed Overfull \hbox (5.90616pt too wide) in paragraph at lines 298--302 \OT1/cmtt/m/n/10 by invoking the routine AttrVect[]clean() when it is no longer needed. Failure to do [51] Overfull \hbox (16.40607pt too wide) in paragraph at lines 347--371 \OT1/cmtt/m/n/10 The subroutine GlobalReduce[]() takes the distributed input At trVect argument inAV, and Overfull \hbox (2.1262pt too wide) in paragraph at lines 347--371 \OT1/cmtt/m/n/10 performs a local reduction of all its integer and real attribu tes, followed by a an Overfull \hbox (33.62593pt too wide) in paragraph at lines 347--371 \OT1/cmtt/m/n/10 AllReduce of all the result of the local reduction across the MPI communicator associated Overfull \hbox (33.62593pt too wide) in paragraph at lines 347--371 \OT1/cmtt/m/n/10 with the Fortran90 INTEGER handle comm, and returns these redu ced values to all processes Overfull \hbox (44.12584pt too wide) in paragraph at lines 347--371 \OT1/cmtt/m/n/10 in the AttrVect argument outAV (which is created by this routi ne). The reduction operation Overfull \hbox (7.37616pt too wide) in paragraph at lines 347--371 \OT1/cmtt/m/n/10 is specified by the user, and must have one of the values list ed in the table below: Overfull \hbox (9.94566pt too wide) in paragraph at lines 372--376 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output AttrVect argument outAV is allocated memory, and must be destroyed Overfull \hbox (5.90616pt too wide) in paragraph at lines 372--376 \OT1/cmtt/m/n/10 by invoking the routine AttrVect[]clean() when it is no longer needed. Failure to do [52] Overfull \hbox (0.6562pt too wide) in paragraph at lines 409--419 \OT1/cmtt/m/n/10 The subroutine LocalWeightedSumRAttr[]() takes the input AttrV ect argument inAV, and Overfull \hbox (7.37616pt too wide) in paragraph at lines 409--419 \OT1/cmtt/m/n/10 performs a weighted sum of each of its REAL attributes, return ing them in the output Overfull \hbox (12.62611pt too wide) in paragraph at lines 409--419 \OT1/cmtt/m/n/10 AttrVect argument outAV (which is created by this routine and will contain \OT1/cmtt/m/it/10 no \OT1/cmtt/m/n/10 integer Overfull \hbox (17.87607pt too wide) in paragraph at lines 409--419 \OT1/cmtt/m/n/10 attributes). The weights used for the summation are provided b y the user in the input Overfull \hbox (2.1262pt too wide) in paragraph at lines 409--419 \OT1/cmtt/m/n/10 argument Weights(:). If the sum of the weights is desired, thi s can be returned as Overfull \hbox (33.62593pt too wide) in paragraph at lines 409--419 \OT1/cmtt/m/n/10 an attribute in outAV if the optional CHARACTER argument Weigh tSumAttr is provided (which Overfull \hbox (9.94566pt too wide) in paragraph at lines 420--422 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The argument WeightSumAttr must not b e identical to any of the real attribute Overfull \hbox (9.94566pt too wide) in paragraph at lines 423--427 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output AttrVect argument outAV is allocated memory, and must be destroyed Overfull \hbox (5.90616pt too wide) in paragraph at lines 423--427 \OT1/cmtt/m/n/10 by invoking the routine AttrVect[]clean() when it is no longer needed. Failure to do [53] Overfull \hbox (16.40607pt too wide) in paragraph at lines 471--484 \OT1/cmtt/m/n/10 The subroutine GlobalWeightedSumRAttr[]() takes the distribute d input AttrVect argument Overfull \hbox (7.37616pt too wide) in paragraph at lines 471--484 \OT1/cmtt/m/n/10 inAV, and performs a weighted global sum across the MPI commun icator associated with Overfull \hbox (7.37616pt too wide) in paragraph at lines 471--484 \OT1/cmtt/m/n/10 the Fortran90 INTEGER handle comm of each of its REAL attribut es, returning the sums Overfull \hbox (7.37616pt too wide) in paragraph at lines 471--484 \OT1/cmtt/m/n/10 to each process in the AttrVect argument outAV (which is creat ed by this routine and Overfull \hbox (12.62611pt too wide) in paragraph at lines 471--484 \OT1/cmtt/m/n/10 will contain \OT1/cmtt/m/it/10 no \OT1/cmtt/m/n/10 integer att ributes). The weights used for the summation are provided Overfull \hbox (7.37616pt too wide) in paragraph at lines 471--484 \OT1/cmtt/m/n/10 by the user in the input argument weights(:). If the sum of th e weights is desired, Overfull \hbox (59.8757pt too wide) in paragraph at lines 471--484 \OT1/cmtt/m/n/10 this can be returned as an attribute in outAV if the optional CHARACTER argument WeightSumAttr Overfull \hbox (2.1262pt too wide) in paragraph at lines 471--484 \OT1/cmtt/m/n/10 is provided (which will be concatenated onto the list of real attributes in inAV to Overfull \hbox (9.94566pt too wide) in paragraph at lines 485--487 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The argument WeightSumAttr must not b e identical to any of the real attribute Overfull \hbox (9.94566pt too wide) in paragraph at lines 488--492 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output AttrVect argument outAV is allocated memory, and must be destroyed Overfull \hbox (5.90616pt too wide) in paragraph at lines 488--492 \OT1/cmtt/m/n/10 by invoking the routine AttrVect[]clean() when it is no longer needed. Failure to do [54]) [55] (./texsrc/m_GlobalSegMap.tex Overfull \hbox (2.1262pt too wide) in paragraph at lines 52--60 \OT1/cmtt/m/n/10 Consider the problem of the 1-dimensional decomposition of an array across multiple Overfull \hbox (12.62611pt too wide) in paragraph at lines 52--60 \OT1/cmtt/m/n/10 processes. If each process owns only one contiguous segment, t hen the GlobalMap (see Overfull \hbox (21.65602pt too wide) in paragraph at lines 52--60 \OT1/cmtt/m/n/10 m[]GlobalMap or details) is sufficient to describe the decompo sition. If, however, each Overfull \hbox (28.37598pt too wide) in paragraph at lines 52--60 \OT1/cmtt/m/n/10 process owns multiple, non-adjacent segments of the array, a m ore sophisticated approach Overfull \hbox (54.62575pt too wide) in paragraph at lines 52--60 \OT1/cmtt/m/n/10 is needed. The GlobalSegMap data type allows one to describe a one-dimensional decomposition Overfull \hbox (33.62593pt too wide) in paragraph at lines 61--63 []\OT1/cmtt/m/n/10 In the current implementation of the GlobalSegMap, there is no santity check to guarantee Overfull \hbox (49.3758pt too wide) in paragraph at lines 64--68 \OT1/cmtt/m/n/10 The reason we have not implemented such a check is to allow th e user to use the GlobalSegMap [56] [57] Overfull \hbox (26.90598pt too wide) in paragraph at lines 198--208 \OT1/cmtt/m/n/10 This routine takes the \OT1/cmtt/m/it/10 scattered \OT1/cmtt/m /n/10 input INTEGER arrays start, length, and pe[]loc, gathers Overfull \hbox (33.62593pt too wide) in paragraph at lines 198--208 \OT1/cmtt/m/n/10 these data to the root process, and from them creates a \OT1/c mtt/m/it/10 global \OT1/cmtt/m/n/10 set of segment information Overfull \hbox (21.65602pt too wide) in paragraph at lines 198--208 \OT1/cmtt/m/n/10 for the output GlobalSegMap argument GSMap. The input INTEGER arguments comp[]id, gsize Overfull \hbox (12.62611pt too wide) in paragraph at lines 198--208 \OT1/cmtt/m/n/10 provide the GlobalSegMap component ID number and global grid s ize, respectively. The Overfull \hbox (26.90598pt too wide) in paragraph at lines 198--208 \OT1/cmtt/m/n/10 input argument my[]comm is the F90 INTEGER handle for the MPI communicator. If the input Overfull \hbox (2.1262pt too wide) in paragraph at lines 198--208 \OT1/cmtt/m/n/10 arrays are overdimensioned, optional argument \OT1/cmtt/m/it/1 0 numel \OT1/cmtt/m/n/10 can be used to specify how many [58] Overfull \hbox (12.62611pt too wide) in paragraph at lines 237--237 [] \OT1/cmtt/m/n/10 integer,intent(in), optional :: numel ! s pecify number of elements[] Overfull \hbox (11.15611pt too wide) in paragraph at lines 264--273 \OT1/cmtt/m/n/10 This routine takes the input INTEGER arrays start, length, and pe[]loc (all valid only Overfull \hbox (2.1262pt too wide) in paragraph at lines 264--273 \OT1/cmtt/m/n/10 on the root process), and from them creates a \OT1/cmtt/m/it/1 0 global \OT1/cmtt/m/n/10 set of segment information for Overfull \hbox (5.90616pt too wide) in paragraph at lines 264--273 \OT1/cmtt/m/n/10 the output GlobalSegMap argument GSMap. The input INTEGER argu ments ngseg, comp[]id, Overfull \hbox (12.62611pt too wide) in paragraph at lines 264--273 \OT1/cmtt/m/n/10 gsize (again, valid only on the root process) provide the Glob alSegMap global segment Overfull \hbox (2.1262pt too wide) in paragraph at lines 264--273 \OT1/cmtt/m/n/10 count, component ID number, and global grid size, respectively . The input argument [59] Overfull \hbox (35.93588pt too wide) in paragraph at lines 321--327 \OT1/cmtt/m/n/10 The routine initp[]() takes the input \OT1/cmtt/m/it/10 replic ated \OT1/cmtt/m/n/10 arguments comp[]id, ngseg, gsize, start(:), Overfull \hbox (0.6562pt too wide) in paragraph at lines 321--327 \OT1/cmtt/m/n/10 length(:), and pe[]loc(:), and uses them to initialize an outp ut GlobalSegMap GSMap. Overfull \hbox (59.8757pt too wide) in paragraph at lines 321--327 \OT1/cmtt/m/n/10 This routine operates on the assumption that these data are re plicated across the communicator [60] Overfull \hbox (9.68611pt too wide) in paragraph at lines 361--368 \OT1/cmtt/m/n/10 The routine initp1[]() takes the input \OT1/cmtt/m/it/10 repli cated \OT1/cmtt/m/n/10 arguments comp[]id, ngseg, gsize, and Overfull \hbox (16.40607pt too wide) in paragraph at lines 361--368 \OT1/cmtt/m/n/10 all[]arrays(:), and uses them to initialize an output GlobalSe gMap GSMap. This routine Overfull \hbox (7.37616pt too wide) in paragraph at lines 361--368 \OT1/cmtt/m/n/10 operates on the assumption that these data are replicated acro ss the communicator on Overfull \hbox (11.15611pt too wide) in paragraph at lines 361--368 \OT1/cmtt/m/n/10 which the GlobalSegMap is being created. The input array all[] arrays(:) should be of Overfull \hbox (9.68611pt too wide) in paragraph at lines 406--413 \OT1/cmtt/m/n/10 The routine initp0[]() takes the input \OT1/cmtt/m/it/10 repli cated \OT1/cmtt/m/n/10 arguments comp[]id, ngseg, gsize, and Overfull \hbox (12.62611pt too wide) in paragraph at lines 406--413 \OT1/cmtt/m/n/10 uses them perform null construction of the output GlobalSegMap GSMap. This is a null Overfull \hbox (2.1262pt too wide) in paragraph at lines 406--413 \OT1/cmtt/m/n/10 constructor in the sense that we are not filling in the segmen t information arrays. Overfull \hbox (59.8757pt too wide) in paragraph at lines 406--413 \OT1/cmtt/m/n/10 This routine operates on the assumption that these data are re plicated across the communicator [61] Overfull \hbox (14.93607pt too wide) in paragraph at lines 443--451 \OT1/cmtt/m/n/10 The routine init[]index[]() takes a local array of indices lin dx and uses them to create Overfull \hbox (17.87607pt too wide) in paragraph at lines 443--451 \OT1/cmtt/m/n/10 a GlobalSegMap. lindx is parsed to determine the lengths of th e runs, and then a call Overfull \hbox (0.6562pt too wide) in paragraph at lines 443--451 \OT1/cmtt/m/n/10 is made to initd[]. The optional argument lsize can be used if only the first lsize Overfull \hbox (17.87607pt too wide) in paragraph at lines 443--451 \OT1/cmtt/m/n/10 number of elements of lindx are valid. The optional argument g size is used to specify Overfull \hbox (7.37616pt too wide) in paragraph at lines 443--451 \OT1/cmtt/m/n/10 the global number of unique points if this can not be determin ed from the collective [62] Overfull \hbox (65.12566pt too wide) in paragraph at lines 492--497 \OT1/cmtt/m/n/10 This routine deallocates the array components of the GlobalSeg Map argument GSMap: GSMap%start, Overfull \hbox (26.90598pt too wide) in paragraph at lines 492--497 \OT1/cmtt/m/n/10 GSMap%length, and GSMap%pe[]loc. It also zeroes out the values of the integer components Overfull \hbox (16.40607pt too wide) in paragraph at lines 522--525 \OT1/cmtt/m/n/10 The function ngseg[]() returns the global number of vector seg ments in the GlobalSegMap [63] Overfull \hbox (26.90598pt too wide) in paragraph at lines 546--550 \OT1/cmtt/m/n/10 The function nlseg[]() returns the number of vector segments i n the GlobalSegMap argument Overfull \hbox (28.37598pt too wide) in paragraph at lines 546--550 \OT1/cmtt/m/n/10 GSMap that reside on the process specified by the input argume nt pID. This is the number Overfull \hbox (14.93607pt too wide) in paragraph at lines 577--581 \OT1/cmtt/m/n/10 The function max[]nlseg[]() returns the maximum number over al l processors of the vector Overfull \hbox (0.6562pt too wide) in paragraph at lines 577--581 \OT1/cmtt/m/n/10 segments in the GlobalSegMap argument gsap E.g. max[]p(nlseg(g smap,p)) but computed [64] Overfull \hbox (32.15593pt too wide) in paragraph at lines 641--644 \OT1/cmtt/m/n/10 The function gsize[]() takes the input GlobalSegMap arguement GSMap and returns the global Overfull \hbox (16.40607pt too wide) in paragraph at lines 665--669 \OT1/cmtt/m/n/10 The function GlobalStorage[]() takes the input GlobalSegMap ar guement GSMap and returns Overfull \hbox (38.87589pt too wide) in paragraph at lines 665--669 \OT1/cmtt/m/n/10 the global storage space required (\OT1/cmtt/m/it/10 i.e.\OT1/ cmtt/m/n/10 , the vector length) to hold all the data specified [65] Overfull \hbox (21.65602pt too wide) in paragraph at lines 693--697 \OT1/cmtt/m/n/10 The function ProcessStorage[]() takes the input GlobalSegMap a rguement GSMap and returns Overfull \hbox (7.37616pt too wide) in paragraph at lines 693--697 \OT1/cmtt/m/n/10 the storage space required by process PEno (\OT1/cmtt/m/it/10 i.e.\OT1/cmtt/m/n/10 , the vector length) to hold all the Overfull \hbox (16.40607pt too wide) in paragraph at lines 720--724 []\OT1/cmtt/m/n/10 The function OrderedPoints[]() takes the input GlobalSegMap arguement GSMap and returns Overfull \hbox (12.62611pt too wide) in paragraph at lines 720--724 \OT1/cmtt/m/n/10 a vector of the points owned by PEno. Points is allocated here . The calling process [66] Overfull \hbox (7.37616pt too wide) in paragraph at lines 749--754 \OT1/cmtt/m/n/10 This function returns the number of points owned by the local process, as defined by Overfull \hbox (17.87607pt too wide) in paragraph at lines 749--754 \OT1/cmtt/m/n/10 the input GlobalSegMap argument GSMap. The local process ID is determined through use Overfull \hbox (33.62593pt too wide) in paragraph at lines 749--754 \OT1/cmtt/m/n/10 of the input INTEGER argument comm, which is the Fortran handl e for the MPI communicator. Overfull \hbox (17.87607pt too wide) in paragraph at lines 784--788 []\OT1/cmtt/m/n/10 This routine assumes that there is one process that owns the datum with a given global Overfull \hbox (23.12602pt too wide) in paragraph at lines 784--788 \OT1/cmtt/m/n/10 index. It should not be used when the input GlobalSegMap argum ent GSMap has been built [67] Overfull \hbox (12.62611pt too wide) in paragraph at lines 814--820 []\OT1/cmtt/m/n/10 This routine assumes that there may be more than one process that owns the datum with Overfull \hbox (23.12602pt too wide) in paragraph at lines 814--820 \OT1/cmtt/m/n/10 a given global index. This routine should be used when the inp ut GlobalSegMap argument Overfull \hbox (17.87607pt too wide) in paragraph at lines 814--820 \OT1/cmtt/m/n/10 GSMap has been built to incorporate ! halo points. \OT1/cmtt/m /it/10 Nota Bene\OT1/cmtt/m/n/10 : The output array rank Overfull \hbox (11.15611pt too wide) in paragraph at lines 814--820 \OT1/cmtt/m/n/10 is allocated in this routine and must be deallocated by the ro utine calling rankm[](). Overfull \hbox (16.40607pt too wide) in paragraph at lines 848--854 []\OT1/cmtt/m/n/10 This routine scans the pe location list of the input GlobalS egMap GSMap%pe[]loc(:), and Overfull \hbox (17.87607pt too wide) in paragraph at lines 848--854 \OT1/cmtt/m/n/10 counts the number of pe locations that own at least one datum. This value is returned Overfull \hbox (37.40588pt too wide) in paragraph at lines 848--854 \OT1/cmtt/m/n/10 in the INTEGER argument n[]active. If the optional INTEGER arr ay argument list is included Overfull \hbox (33.62593pt too wide) in paragraph at lines 848--854 \OT1/cmtt/m/n/10 in the call, a sorted list (in ascending order) of the active processes will be returned. Overfull \hbox (3.48013pt too wide) in paragraph at lines 855--859 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If active[]pes[]() is invoked with th e optional argument pe[]list included, this Overfull \hbox (17.87607pt too wide) in paragraph at lines 855--859 \OT1/cmtt/m/n/10 routine will allocate and return this array. The user must dea llocate this array once [68] Overfull \hbox (2.1262pt too wide) in paragraph at lines 889--895 []\OT1/cmtt/m/n/10 This routine takes an input INTEGER array of point indices p oints(:), compares them Overfull \hbox (12.62611pt too wide) in paragraph at lines 889--895 \OT1/cmtt/m/n/10 with an input GlobalSegMap pointGSMap, and returns the \OT1/cm tt/m/it/10 unique \OT1/cmtt/m/n/10 process ID location for Overfull \hbox (7.37616pt too wide) in paragraph at lines 889--895 \OT1/cmtt/m/n/10 each point. Note the emphasize on unique. The assumption here (which is tested) is Overfull \hbox (2.1262pt too wide) in paragraph at lines 889--895 \OT1/cmtt/m/n/10 that pointGSMap is not haloed. The process ID locations for th e points is returned Overfull \hbox (28.88995pt too wide) in paragraph at lines 896--900 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The test of pointGSMap for halo point s, and the subsequent search for the process Overfull \hbox (33.62593pt too wide) in paragraph at lines 896--900 \OT1/cmtt/m/n/10 ID for each point is very slow. This first version of the rout ine is serial. A parallel [69] Overfull \hbox (33.62593pt too wide) in paragraph at lines 928--935 []\OT1/cmtt/m/n/10 This LOGICAL function tests the input GlobalSegMap GSMap for the presence of halo points. Overfull \hbox (17.87607pt too wide) in paragraph at lines 928--935 \OT1/cmtt/m/n/10 Halo points are points that appear in more than one segment of a GlobalSegMap. If \OT1/cmtt/m/it/10 any Overfull \hbox (11.15611pt too wide) in paragraph at lines 928--935 \OT1/cmtt/m/n/10 halo point is found, the function haloed[]() returns immediate ly with value .TRUE. If, Overfull \hbox (2.1262pt too wide) in paragraph at lines 928--935 \OT1/cmtt/m/n/10 after an exhaustive search of the map has been completed, no h alo points are found, Overfull \hbox (21.87628pt too wide) in paragraph at lines 939--942 []\OT1/cmtt/m/n/10 Extract the segment start and length information from GSMap% start and GSMap%length Overfull \hbox (27.12624pt too wide) in paragraph at lines 943--946 []\OT1/cmtt/m/n/10 Scan the arrays start andlength. A halo point is present if for at least one value Overfull \hbox (11.15611pt too wide) in paragraph at lines 977--981 \OT1/cmtt/m/n/10 Sort[]() uses the supplied keys key1 and key2 to generate a pe rmutation perm that will Overfull \hbox (74.15556pt too wide) in paragraph at lines 977--981 \OT1/cmtt/m/n/10 put the entries of the components GlobalSegMap%start, GlobalSe gMap%length and GlobalSegMap%pe[]loc Overfull \hbox (6.42014pt too wide) in paragraph at lines 982--985 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 Sort[]() returns an allocated array p erm(:). It the user must deallocate this [70] Overfull \hbox (26.90598pt too wide) in paragraph at lines 1014--1017 \OT1/cmtt/m/n/10 PermuteInPlace[]() uses a supplied index permutation perm to r e-order GlobalSegMap%start, Overfull \hbox (42.65584pt too wide) in paragraph at lines 1043--1047 \OT1/cmtt/m/n/10 SortPermuteInPlace[]() uses a the supplied key(s) to generate and apply an index permutation Overfull \hbox (2.1262pt too wide) in paragraph at lines 1043--1047 \OT1/cmtt/m/n/10 that will place the GlobalSegMap components GlobalSegMap%start , GlobalSegMap%length [71] Overfull \hbox (5.90616pt too wide) in paragraph at lines 1073--1077 \OT1/cmtt/m/n/10 The function increasing[]() returns .TRUE. if each proc's indi ces in the GlobalSegMap Overfull \hbox (28.37598pt too wide) in paragraph at lines 1073--1077 \OT1/cmtt/m/n/10 argument GSMap have strictly increasing indices. I.e. the proc 's segments have indices [72]) [73] (./texsrc/m_GlobalSegMapComms.tex Overfull \hbox (3.4331pt too wide) in paragraph at lines 48--48 []\OT1/cmr/bx/n/12 Fortran: Mod-ule In-ter-face m[]GlobalSegMapComms - Glob-alS egMap Overfull \hbox (12.72337pt too wide) in paragraph at lines 48--48 \OT1/cmr/bx/n/12 Com-mu-ni-ca-tions Sup-port (Source File: m[]GlobalSegMapComms .F90) Overfull \hbox (33.62593pt too wide) in paragraph at lines 53--57 \OT1/cmtt/m/n/10 This module provides communications support for the GlobalSegM ap datatype. Both blocking Overfull \hbox (119.93515pt too wide) in paragraph at lines 53--57 \OT1/cmtt/m/n/10 and non-blocking point-to-point communications are provided fo r send (analogues to MPI[]SEND()/MPI[]ISEND()) Overfull \hbox (38.87589pt too wide) in paragraph at lines 88--96 \OT1/cmtt/m/n/10 This routine performs a blocking send of a GlobalSegMap (the i nput argument outgoingGSMap) Overfull \hbox (21.65602pt too wide) in paragraph at lines 88--96 \OT1/cmtt/m/n/10 to the root processor on component comp[]id. The input INTEGER argument TagBase is used Overfull \hbox (28.37598pt too wide) in paragraph at lines 88--96 \OT1/cmtt/m/n/10 to generate tags for the messages associated with this operati on; there are six messages Overfull \hbox (12.62611pt too wide) in paragraph at lines 88--96 \OT1/cmtt/m/n/10 involved, so the user should avoid using tag values TagBase an d TagBase + 5. All six Overfull \hbox (23.12602pt too wide) in paragraph at lines 88--96 \OT1/cmtt/m/n/10 messages are blocking. The success (failure) of this operation is reported in the zero [74] Overfull \hbox (59.8757pt too wide) in paragraph at lines 136--147 \OT1/cmtt/m/n/10 This routine performs a non-blocking send of a GlobalSegMap (t he input argument outgoingGSMap) Overfull \hbox (11.15611pt too wide) in paragraph at lines 136--147 \OT1/cmtt/m/n/10 to the root processor on component comp[]id The input INTEGER argument TagBase is used Overfull \hbox (28.37598pt too wide) in paragraph at lines 136--147 \OT1/cmtt/m/n/10 to generate tags for the messages associated with this operati on; there are six messages Overfull \hbox (12.62611pt too wide) in paragraph at lines 136--147 \OT1/cmtt/m/n/10 involved, so the user should avoid using tag values TagBase an d TagBase + 5. All six Overfull \hbox (23.12602pt too wide) in paragraph at lines 136--147 \OT1/cmtt/m/n/10 messages are non- blocking, and the request handles for them a re returned in the output Overfull \hbox (7.37616pt too wide) in paragraph at lines 136--147 \OT1/cmtt/m/n/10 INTEGER array reqHandle, which can be checked for completion u sing any of MPI's wait Overfull \hbox (17.87607pt too wide) in paragraph at lines 136--147 \OT1/cmtt/m/n/10 functions. The success (failure) of this operation is reported in the zero (non-zero) Overfull \hbox (15.19562pt too wide) in paragraph at lines 148--150 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : Data is sent directly out of outgoing GSMap so it must not be deleted until the Overfull \hbox (9.94566pt too wide) in paragraph at lines 151--154 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The array reqHandle represents alloca ted memory that must be deallocated when [75] Overfull \hbox (54.62575pt too wide) in paragraph at lines 193--201 \OT1/cmtt/m/n/10 This routine performs a blocking receive of a GlobalSegMap (th e input argument outgoingGSMap) Overfull \hbox (5.90616pt too wide) in paragraph at lines 193--201 \OT1/cmtt/m/n/10 from the root processor on component comp[]id. The input INTEG ER argument TagBase is Overfull \hbox (7.37616pt too wide) in paragraph at lines 193--201 \OT1/cmtt/m/n/10 used to generate tags for the messages associated with this op eration; there are six Overfull \hbox (12.62611pt too wide) in paragraph at lines 193--201 \OT1/cmtt/m/n/10 messages involved, so the user should avoid using tag values T agBase and TagBase + 5. Overfull \hbox (2.1262pt too wide) in paragraph at lines 193--201 \OT1/cmtt/m/n/10 The success (failure) of this operation is reported in the zer o (non-zero) value of Overfull \hbox (21.65602pt too wide) in paragraph at lines 239--245 \OT1/cmtt/m/n/10 The routine bcast[]() takes the input/output \OT1/cmtt/m/it/10 GlobalSegMap \OT1/cmtt/m/n/10 argument GSMap (on input valid Overfull \hbox (7.37616pt too wide) in paragraph at lines 239--245 \OT1/cmtt/m/n/10 only on the root process, on output valid on all processes) an d broadcasts it to all Overfull \hbox (33.62593pt too wide) in paragraph at lines 239--245 \OT1/cmtt/m/n/10 processes on the communicator associated with the F90 handle c omm. The success (failure) Overfull \hbox (23.12602pt too wide) in paragraph at lines 239--245 \OT1/cmtt/m/n/10 of this operation is returned as a zero (non-zero) value of th e optional output INTEGER [76]) [77] (./texsrc/m_Router.tex Overfull \hbox (7.37616pt too wide) in paragraph at lines 52--56 \OT1/cmtt/m/n/10 The Router data type contains all the information needed to se nd an AttrVect between Overfull \hbox (23.12602pt too wide) in paragraph at lines 52--56 \OT1/cmtt/m/n/10 a component on M MPI-processes and a component on N MPI-proces ses. This module defines Overfull \hbox (75.62556pt too wide) in paragraph at lines 120--120 [] \OT1/cmtt/m/n/10 integer :: maxsize ! maximu m amount of data going to a processor[] Overfull \hbox (54.62575pt too wide) in paragraph at lines 120--120 [] \OT1/cmtt/m/n/10 integer :: lAvsize ! The lo cal size of AttrVect which can be[] Overfull \hbox (70.37561pt too wide) in paragraph at lines 120--120 [] \OT1/cmtt/m/n/10 ! used w ith this Router in MCT_Send/MCT_Recv[] Overfull \hbox (86.12547pt too wide) in paragraph at lines 120--120 [] \OT1/cmtt/m/n/10 integer :: numiatt ! Number of integer attributes currently in use[] Overfull \hbox (70.37561pt too wide) in paragraph at lines 120--120 [] \OT1/cmtt/m/n/10 integer :: numratt ! Number of real attributes currently in use[] Overfull \hbox (75.62556pt too wide) in paragraph at lines 120--120 [] \OT1/cmtt/m/n/10 integer,dimension(:),pointer :: pe_list ! proces sor ranks of send/receive in MCT_comm[] Overfull \hbox (28.37598pt too wide) in paragraph at lines 120--120 [] \OT1/cmtt/m/n/10 integer,dimension(:),pointer :: num_segs ! number of segments to send/receive[] Overfull \hbox (12.62611pt too wide) in paragraph at lines 120--120 [] \OT1/cmtt/m/n/10 integer,dimension(:),pointer :: locsize ! total of seg_lengths for a proc[] [78] Overfull \hbox (0.6562pt too wide) in paragraph at lines 154--157 \OT1/cmtt/m/n/10 The routine initd[]() exchanges the GSMap with the component i dentified by othercomp Overfull \hbox (9.94566pt too wide) in paragraph at lines 158--160 []\OT1/cmr/bx/n/10 N.B. \OT1/cmtt/m/n/10 The GSMap argument must be declared so that the index values on a processor are [79] Overfull \hbox (2.1262pt too wide) in paragraph at lines 199--201 \OT1/cmtt/m/n/10 Given two GlobalSegmentMaps GSMap and RGSMap, intialize a Rout er Rout between them. Overfull \hbox (15.19562pt too wide) in paragraph at lines 202--204 []\OT1/cmr/bx/n/10 N.B. \OT1/cmtt/m/n/10 The two GSMap arguments must be declar ed so that the index values on a processor [80] [81] Overfull \hbox (70.37561pt too wide) in paragraph at lines 295--297 \OT1/cmtt/m/n/10 Print out communication info about router on unit number 'lun' e.g. (source,destination,length) ) [82] (./texsrc/m_GeneralGrid.tex Overfull \hbox (38.87589pt too wide) in paragraph at lines 52--64 \OT1/cmtt/m/n/10 The GeneralGrid data type is a flexible, generic structure for storing physical coordinate Overfull \hbox (33.62593pt too wide) in paragraph at lines 52--64 \OT1/cmtt/m/n/10 grid information. The GeneralGrid may be employed to store coo rdinate grids of arbitrary Overfull \hbox (17.87607pt too wide) in paragraph at lines 52--64 \OT1/cmtt/m/n/10 dimension, and is also capable of supporting unstructured grid s such as meteorological Overfull \hbox (38.87589pt too wide) in paragraph at lines 52--64 \OT1/cmtt/m/n/10 observation data streams. The grid is representated by a liter al listing of the gridpoint Overfull \hbox (28.37598pt too wide) in paragraph at lines 52--64 \OT1/cmtt/m/n/10 coordinates, along with other integer and real \OT1/cmtt/m/it/ 10 attributes \OT1/cmtt/m/n/10 associated with each location. Overfull \hbox (17.87607pt too wide) in paragraph at lines 52--64 \OT1/cmtt/m/n/10 Examples of real non-coordinate attributes are grid cell lengt h, cross-sectional area, Overfull \hbox (2.1262pt too wide) in paragraph at lines 52--64 \OT1/cmtt/m/n/10 and volume elements, projections of local directional unit vec tors onto \OT1/cmtt/m/it/10 et cetera \OT1/cmtt/m/n/10 A Overfull \hbox (65.12566pt too wide) in paragraph at lines 52--64 \OT1/cmtt/m/n/10 GeneralGrid as at minimum one integer attribute---\OT1/cmtt/m/ it/10 the global grid point number\OT1/cmtt/m/n/10 , or GlobGridNum, Overfull \hbox (30.90619pt too wide) in paragraph at lines 68--75 []\OT1/cmtt/m/n/10 GGrid%coordinate[]list contains the list of the physical dim ension names of the grid. Overfull \hbox (27.12624pt too wide) in paragraph at lines 68--75 \OT1/cmtt/m/n/10 The user initializes a List by supplying the items in it as a string with the items Overfull \hbox (16.62633pt too wide) in paragraph at lines 68--75 \OT1/cmtt/m/n/10 delimitted by colons. For example, setting the coordinates for Euclidean 3-space Overfull \hbox (16.62633pt too wide) in paragraph at lines 68--75 \OT1/cmtt/m/n/10 is accomplished by a choice of 'x:y:z', cylindrical coordinate s by 'rho:theta:z', Overfull \hbox (15.15633pt too wide) in paragraph at lines 75--81 []\OT1/cmtt/m/n/10 GGrid%weight[]list contains the names of the spatial cell le ngth, area, and volume Overfull \hbox (0.87646pt too wide) in paragraph at lines 75--81 \OT1/cmtt/m/n/10 weights associated with the grid. These are also stored in Lis t form, and are Overfull \hbox (37.62614pt too wide) in paragraph at lines 75--81 \OT1/cmtt/m/n/10 set by the user in the same fashion as described above for coo rdinates. For example, Overfull \hbox (6.12642pt too wide) in paragraph at lines 75--81 \OT1/cmtt/m/n/10 one might wish create cell weight attributes for a cylindrical grid by defining Overfull \hbox (36.15614pt too wide) in paragraph at lines 81--89 []\OT1/cmtt/m/n/10 GGrid%other[]list is space for the user to define other real attributes. For example, Overfull \hbox (6.12642pt too wide) in paragraph at lines 81--89 \OT1/cmtt/m/n/10 one might wish to do vector calculus operatons in spherical co ordinates. Since Overfull \hbox (11.34645pt too wide) in paragraph at lines 81--89 \OT1/cmtt/m/n/10 the spherical coordinate unit vectors $[]$, $[]$, and $[]$ var y in space, it is sometimes Overfull \hbox (7.92506pt too wide) in paragraph at lines 81--89 \OT1/cmtt/m/n/10 useful to store their projections on the fixed Euclidean unit vectors $[]$, $[]$, and Overfull \hbox (15.15633pt too wide) in paragraph at lines 92--98 []\OT1/cmtt/m/n/10 GGrid%index[]list provides space for the user to define inte ger attributes such as Overfull \hbox (0.87646pt too wide) in paragraph at lines 92--98 \OT1/cmtt/m/n/10 alternative indexing schemes, indices for defining spatial reg ions, \OT1/cmtt/m/it/10 et cetera\OT1/cmtt/m/n/10 . Overfull \hbox (11.37637pt too wide) in paragraph at lines 92--98 \OT1/cmtt/m/n/10 This attribute list contains all the integer attributes for th e GeneralGrid save Overfull \hbox (0.87646pt too wide) in paragraph at lines 92--98 \OT1/cmtt/m/n/10 one: the with the ever-present \OT1/cmtt/m/it/10 global gridpo int number attribute \OT1/cmtt/m/n/10 GlobGridNum, Overfull \hbox (7.37616pt too wide) in paragraph at lines 100--103 []\OT1/cmtt/m/n/10 This module contains the definition of the GeneralGrid datat ype, various methods for Overfull \hbox (49.3758pt too wide) in paragraph at lines 100--103 \OT1/cmtt/m/n/10 creating and destroying it, query methods, and tools for multi ple-key sorting of gridpoints. [83] [84] Overfull \hbox (11.15611pt too wide) in paragraph at lines 225--234 \OT1/cmtt/m/n/10 The routine init[]() creates the storage space for grid point coordinates, area/volume Overfull \hbox (49.3758pt too wide) in paragraph at lines 225--234 \OT1/cmtt/m/n/10 weights, and other coordinate data (\OT1/cmtt/m/it/10 e.g.\OT1 /cmtt/m/n/10 , local cell dimensions). These data are referenced Overfull \hbox (17.87607pt too wide) in paragraph at lines 225--234 \OT1/cmtt/m/n/10 by List components that are also created by this routine (see the documentation of the Overfull \hbox (7.37616pt too wide) in paragraph at lines 225--234 \OT1/cmtt/m/n/10 declaration section of this module for more details about sett ing list information). Overfull \hbox (12.62611pt too wide) in paragraph at lines 225--234 \OT1/cmtt/m/n/10 Each of the input CHARACTER arguments is a colon-delimited str ing of attribute names, Overfull \hbox (12.62611pt too wide) in paragraph at lines 225--234 \OT1/cmtt/m/n/10 each corrsponding to a List element of the output GeneralGrid argument GGrid, and are Overfull \hbox (33.62593pt too wide) in paragraph at lines 260--262 []\OT1/cmtt/m/n/10 The input INTEGER argument lsize defines the number of grid points to be stored in GGrid. Overfull \hbox (33.62593pt too wide) in paragraph at lines 263--268 []\OT1/cmtt/m/n/10 If a set of sorting keys is supplied in the argument CoordSo rtOrder, the user can control Overfull \hbox (7.37616pt too wide) in paragraph at lines 263--268 \OT1/cmtt/m/n/10 whether the sorting by each key is in descending or ascending order by supplying the Overfull \hbox (23.12602pt too wide) in paragraph at lines 263--268 \OT1/cmtt/m/n/10 input LOGICAL array descend(:). By default, all sorting is in \OT1/cmtt/m/it/10 ascending \OT1/cmtt/m/n/10 order for each [85] Overfull \hbox (30.94548pt too wide) in paragraph at lines 269--272 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output GeneralGrid GGrid is dynam ically allocated memory. When one no longer Overfull \hbox (2.1262pt too wide) in paragraph at lines 269--272 \OT1/cmtt/m/n/10 needs GGrid, one should release this space by invoking clean() for the GeneralGrid. [86] Overfull \hbox (16.40607pt too wide) in paragraph at lines 335--344 \OT1/cmtt/m/n/10 The routine initl[]() creates the storage space for grid point coordinates, area/volume Overfull \hbox (49.3758pt too wide) in paragraph at lines 335--344 \OT1/cmtt/m/n/10 weights, and other coordinate data (\OT1/cmtt/m/it/10 e.g.\OT1 /cmtt/m/n/10 , local cell dimensions). These data are referenced Overfull \hbox (17.87607pt too wide) in paragraph at lines 335--344 \OT1/cmtt/m/n/10 by List components that are also created by this routine (see the documentation of the Overfull \hbox (7.37616pt too wide) in paragraph at lines 335--344 \OT1/cmtt/m/n/10 declaration section of this module for more details about sett ing list information). Overfull \hbox (38.87589pt too wide) in paragraph at lines 335--344 \OT1/cmtt/m/n/10 Each of the input List arguments is used directly to create th e corresponding List element Overfull \hbox (33.62593pt too wide) in paragraph at lines 370--372 []\OT1/cmtt/m/n/10 The input INTEGER argument lsize defines the number of grid points to be stored in GGrid. Overfull \hbox (33.62593pt too wide) in paragraph at lines 373--378 []\OT1/cmtt/m/n/10 If a set of sorting keys is supplied in the argument CoordSo rtOrder, the user can control Overfull \hbox (7.37616pt too wide) in paragraph at lines 373--378 \OT1/cmtt/m/n/10 whether the sorting by each key is in descending or ascending order by supplying the Overfull \hbox (23.12602pt too wide) in paragraph at lines 373--378 \OT1/cmtt/m/n/10 input LOGICAL array descend(:). By default, all sorting is in \OT1/cmtt/m/it/10 ascending \OT1/cmtt/m/n/10 order for each Overfull \hbox (30.94548pt too wide) in paragraph at lines 379--382 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output GeneralGrid GGrid is dynam ically allocated memory. When one no longer Overfull \hbox (2.1262pt too wide) in paragraph at lines 379--382 \OT1/cmtt/m/n/10 needs GGrid, one should release this space by invoking clean() for the GeneralGrid. [87] Overfull \hbox (21.65602pt too wide) in paragraph at lines 434--441 \OT1/cmtt/m/n/10 The routine initgg[]() creates the storage space for grid poin t coordinates, area/volume Overfull \hbox (7.37616pt too wide) in paragraph at lines 434--441 \OT1/cmtt/m/n/10 weights, and other coordinate data (\OT1/cmtt/m/it/10 e.g.\OT1 /cmtt/m/n/10 , nearest-neighbor coordinates). These data Overfull \hbox (7.37616pt too wide) in paragraph at lines 434--441 \OT1/cmtt/m/n/10 are all copied from the already initialized input GeneralGrid argument iGGrid. This Overfull \hbox (12.62611pt too wide) in paragraph at lines 434--441 \OT1/cmtt/m/n/10 routine initializes the output GeneralGrid argument oGGrid wit h the same List data as Overfull \hbox (9.94566pt too wide) in paragraph at lines 442--445 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : Though the attribute lists and gridpo int sorting strategy of iGGrid is copied Overfull \hbox (36.19543pt too wide) in paragraph at lines 448--451 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output GeneralGrid oGGrid is dyna mically allocated memory. When one no longer [88] Overfull \hbox (21.65602pt too wide) in paragraph at lines 495--512 \OT1/cmtt/m/n/10 The routine initCartesian[]() creates the storage space for gr id point coordinates, area Overfull \hbox (2.1262pt too wide) in paragraph at lines 495--512 \OT1/cmtt/m/n/10 and volume weights, and other coordinate data (\OT1/cmtt/m/it/ 10 e.g.\OT1/cmtt/m/n/10 , cell area and volume weights). Overfull \hbox (12.62611pt too wide) in paragraph at lines 495--512 \OT1/cmtt/m/n/10 The names of the Cartesian axes are supplied by the user as a colon-delimitted string Overfull \hbox (28.37598pt too wide) in paragraph at lines 495--512 \OT1/cmtt/m/n/10 in the input CHARACTER argument CoordChars. For example, a Car tesian grid for Euclidian Overfull \hbox (0.98727pt too wide) in paragraph at lines 495--512 \OT1/cmtt/m/n/10 3-space would have $[] \OT1/cmr/m/n/10 = []$\OT1/cmtt/m/n/10 . The user can define named real attributes Overfull \hbox (12.62611pt too wide) in paragraph at lines 495--512 \OT1/cmtt/m/n/10 for spatial weighting data in the input CHARACTER argument Wei ghtChars. For example, Overfull \hbox (38.93149pt too wide) in paragraph at lines 495--512 \OT1/cmtt/m/n/10 one could define attributes for Euclidean 3-space length eleme nts by setting $[] \OT1/cmr/m/n/10 = Overfull \hbox (13.90382pt too wide) in paragraph at lines 495--512 []$\OT1/cmtt/m/n/10 . The input CHARCTER argument OtherChars provides space for defining other Overfull \hbox (23.12602pt too wide) in paragraph at lines 495--512 \OT1/cmtt/m/n/10 real attributes (again as a colon-delimited string of attribut e names). One can define Overfull \hbox (33.62593pt too wide) in paragraph at lines 495--512 \OT1/cmtt/m/n/10 integer attributes by supplying a colon-delimitted string of n ames in the input CHARACTER Overfull \hbox (2.1262pt too wide) in paragraph at lines 495--512 \OT1/cmtt/m/n/10 argument IndexChars. For example, on could set aside storage s pace for the x-, y-, [89] Overfull \hbox (23.12602pt too wide) in paragraph at lines 513--530 []\OT1/cmtt/m/n/10 Once the storage space in GGrid is initialized, The gridpoin t coordinates are evaluated Overfull \hbox (38.87589pt too wide) in paragraph at lines 513--530 \OT1/cmtt/m/n/10 using the input arguments Dims (the number of points on each c oordinate axis) and AxisData Overfull \hbox (2.1262pt too wide) in paragraph at lines 513--530 \OT1/cmtt/m/n/10 (the coordinate values on all of the points of all of the axes ). The user presents Overfull \hbox (7.37616pt too wide) in paragraph at lines 513--530 \OT1/cmtt/m/n/10 the axes with each axis stored in a column of AxisData, and th e axes are laid out in Overfull \hbox (12.62611pt too wide) in paragraph at lines 513--530 \OT1/cmtt/m/n/10 the same order as the ordering of the axis names in CoordChars . The number of points Overfull \hbox (17.87607pt too wide) in paragraph at lines 513--530 \OT1/cmtt/m/n/10 on each axis is defined by the entries of the input INTEGER ar ray Dims(:). Continuing Overfull \hbox (11.48738pt too wide) in paragraph at lines 513--530 \OT1/cmtt/m/n/10 with the Euclidean 3-space example given above, setting $[] \O T1/cmr/m/n/10 = []$ \OT1/cmtt/m/n/10 will Overfull \hbox (12.62611pt too wide) in paragraph at lines 513--530 \OT1/cmtt/m/n/10 result in a Cartesian grid with 256 points in the x- and y-dir ections, and 128 points Overfull \hbox (38.87589pt too wide) in paragraph at lines 513--530 \OT1/cmtt/m/n/10 in the z-direction. Thus the appropriate dimensions of AxisDat a are 256 rows (the maximum Overfull \hbox (44.12584pt too wide) in paragraph at lines 513--530 \OT1/cmtt/m/n/10 number of axis points among all the axes) by 3 columns (the nu mber of physical dimensions). Overfull \hbox (96.62538pt too wide) in paragraph at lines 513--530 \OT1/cmtt/m/n/10 The x-axis points are stored in AxisData(1:256,1), the y-axis points are stored in AxisData(1:256,2), Overfull \hbox (7.37616pt too wide) in paragraph at lines 531--547 []\OT1/cmtt/m/n/10 The sorting order of the gridpoints can be either user-defin ed, or set automatically Overfull \hbox (2.1262pt too wide) in paragraph at lines 531--547 \OT1/cmtt/m/n/10 by MCT. If the latter is desired, the user must supply the arg ument CoordSortOrder, Overfull \hbox (12.62611pt too wide) in paragraph at lines 531--547 \OT1/cmtt/m/n/10 which defines the lexicographic ordering (by coordinate). The entries optional input Overfull \hbox (44.12584pt too wide) in paragraph at lines 531--547 \OT1/cmtt/m/n/10 LOGICAL array descend(:) stipulates whether the ordering with respect to the corresponding Overfull \hbox (12.62611pt too wide) in paragraph at lines 531--547 \OT1/cmtt/m/n/10 key in CoordChars is to be \OT1/cmtt/m/it/10 descending\OT1/cm tt/m/n/10 . If CoordChars is supplied, but descend(:) is Overfull \hbox (7.37616pt too wide) in paragraph at lines 531--547 \OT1/cmtt/m/n/10 not, the gridpoint information is placed in \OT1/cmtt/m/it/10 ascending \OT1/cmtt/m/n/10 order for each key. Returning Overfull \hbox (27.29263pt too wide) in paragraph at lines 531--547 \OT1/cmtt/m/n/10 to our Euclidian 3-space example, a choice of $[] \OT1/cmr/m/n /10 = []$ \OT1/cmtt/m/n/10 and $[] \OT1/cmr/m/n/10 = Overfull \hbox (24.95964pt too wide) in paragraph at lines 531--547 \OT1/cmr/m/n/10 ([]\OML/cmm/m/it/10 ; []; []\OT1/cmr/m/n/10 )$ \OT1/cmtt/m/n/10 will result in the entries of GGrid being orderd lexicographically Overfull \hbox (44.12584pt too wide) in paragraph at lines 531--547 \OT1/cmtt/m/n/10 by y (in descending order), x (in ascending order), and z (in ascending order). Regardless Overfull \hbox (2.1262pt too wide) in paragraph at lines 531--547 \OT1/cmtt/m/n/10 of the gridpoint sorting strategy, MCT will number each of the gridpoints in GGrid, [90] Overfull \hbox (23.12602pt too wide) in paragraph at lines 599--609 \OT1/cmtt/m/n/10 This routine creates the storage space for grid point coordina tes, area/volume weights, Overfull \hbox (2.1262pt too wide) in paragraph at lines 599--609 \OT1/cmtt/m/n/10 and other coordinate data (\OT1/cmtt/m/it/10 e.g.\OT1/cmtt/m/n /10 , local cell dimensions), and fills in user-supplied Overfull \hbox (7.37616pt too wide) in paragraph at lines 599--609 \OT1/cmtt/m/n/10 values for the grid point coordinates. These data are referenc ed by List components Overfull \hbox (23.12602pt too wide) in paragraph at lines 599--609 \OT1/cmtt/m/n/10 that are also created by this routine (see the documentation o f the declaration section Overfull \hbox (2.1262pt too wide) in paragraph at lines 599--609 \OT1/cmtt/m/n/10 of this module for more details about setting list information ). Each of the input Overfull \hbox (12.62611pt too wide) in paragraph at lines 599--609 \OT1/cmtt/m/n/10 CHARACTER arguments is a colon-delimited string of attribute n ames, each corrsponding Overfull \hbox (12.62611pt too wide) in paragraph at lines 599--609 \OT1/cmtt/m/n/10 to a List element of the output GeneralGrid argument GGrid, an d are summarized in the Overfull \hbox (12.62611pt too wide) in paragraph at lines 635--644 []\OT1/cmtt/m/n/10 The number of physical dimensions of the grid is set by the user in the input INTEGER Overfull \hbox (7.37616pt too wide) in paragraph at lines 635--644 \OT1/cmtt/m/n/10 argument nDims, and the number of grid points stored in GGrid is set using the input Overfull \hbox (70.37561pt too wide) in paragraph at lines 635--644 \OT1/cmtt/m/n/10 INTEGER argument nPoints. The grid point coordinates are input via the REAL array PointData(:). Overfull \hbox (7.37616pt too wide) in paragraph at lines 635--644 \OT1/cmtt/m/n/10 The number of entries in PointData must equal the product of n Dims and nPoints. The Overfull \hbox (44.12584pt too wide) in paragraph at lines 635--644 \OT1/cmtt/m/n/10 grid points are grouped in nPoints consecutive groups of nDims entries, with the coordinate Overfull \hbox (2.1262pt too wide) in paragraph at lines 635--644 \OT1/cmtt/m/n/10 values for each point set in the same order as the dimensions are named in the list Overfull \hbox (33.62593pt too wide) in paragraph at lines 645--650 []\OT1/cmtt/m/n/10 If a set of sorting keys is supplied in the argument CoordSo rtOrder, the user can control Overfull \hbox (7.37616pt too wide) in paragraph at lines 645--650 \OT1/cmtt/m/n/10 whether the sorting by each key is in descending or ascending order by supplying the Overfull \hbox (23.12602pt too wide) in paragraph at lines 645--650 \OT1/cmtt/m/n/10 input LOGICAL array descend(:). By default, all sorting is in \OT1/cmtt/m/it/10 ascending \OT1/cmtt/m/n/10 order for each Overfull \hbox (30.94548pt too wide) in paragraph at lines 651--654 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output GeneralGrid GGrid is dynam ically allocated memory. When one no longer Overfull \hbox (2.1262pt too wide) in paragraph at lines 651--654 \OT1/cmtt/m/n/10 needs GGrid, one should release this space by invoking clean() for the GeneralGrid. [91] Overfull \hbox (12.62611pt too wide) in paragraph at lines 703--708 \OT1/cmtt/m/n/10 This routine deallocates all attribute storage space for the i nput/output GeneralGrid Overfull \hbox (23.12602pt too wide) in paragraph at lines 703--708 \OT1/cmtt/m/n/10 argument GGrid, and destroys all of its List components and so rting flags. The success Overfull \hbox (12.62611pt too wide) in paragraph at lines 703--708 \OT1/cmtt/m/n/10 (failure) of this operation is signified by the zero (non-zero ) value of the optional [92] Overfull \hbox (17.87607pt too wide) in paragraph at lines 740--744 \OT1/cmtt/m/n/10 This routine sets all of the point values of the integer and r eal attributes of an the Overfull \hbox (33.62593pt too wide) in paragraph at lines 740--744 \OT1/cmtt/m/n/10 input/output GeneralGrid argument GGrid to zero. The default a ction is to set the values Overfull \hbox (28.37598pt too wide) in paragraph at lines 775--777 \OT1/cmtt/m/n/10 This INTEGER function returns the number of physical dimension s of the input GeneralGrid [93] Overfull \hbox (23.12602pt too wide) in paragraph at lines 801--807 \OT1/cmtt/m/n/10 This function returns an INTEGER, corresponding to the locatio n of an integer attribute Overfull \hbox (2.1262pt too wide) in paragraph at lines 801--807 \OT1/cmtt/m/n/10 within the input GeneralGrid argument GGrid. For example, ever y GGrid has at least Overfull \hbox (2.1262pt too wide) in paragraph at lines 801--807 \OT1/cmtt/m/n/10 one integer attribute (namely the global gridpoint index 'Glob GridNum'). The array Overfull \hbox (26.90598pt too wide) in paragraph at lines 810--816 \OT1/cmtt/m/n/10 If indexIA[]() is unable to match item to any of the integer a ttributes present in GGrid, Overfull \hbox (38.87589pt too wide) in paragraph at lines 810--816 \OT1/cmtt/m/n/10 the resulting value is zero which is equivalent to an error. T he optional input CHARACTER Overfull \hbox (28.37598pt too wide) in paragraph at lines 810--816 \OT1/cmtt/m/n/10 arguments perrWith and dieWith control how such errors are han dled. Below are the rules Overfull \hbox (15.15633pt too wide) in paragraph at lines 817--820 []\OT1/cmtt/m/n/10 if neither perrWith nor dieWith are present, indexIA[]() ter minates execution with Overfull \hbox (16.62633pt too wide) in paragraph at lines 820--823 []\OT1/cmtt/m/n/10 if perrWith is present, but dieWith is not, an error message is written to stderr Overfull \hbox (21.87628pt too wide) in paragraph at lines 820--823 \OT1/cmtt/m/n/10 incorporating user-supplied traceback information stored in th e argument perrWith; Overfull \hbox (27.12624pt too wide) in paragraph at lines 823--826 []\OT1/cmtt/m/n/10 if dieWith is present, execution terminates with an error me ssage written to stderr Overfull \hbox (37.62614pt too wide) in paragraph at lines 823--826 \OT1/cmtt/m/n/10 that incorporates user-supplied traceback information stored i n the argument dieWith; Overfull \hbox (32.37619pt too wide) in paragraph at lines 826--829 []\OT1/cmtt/m/n/10 if both perrWith and dieWith are present, execution terminat es with an error message [94] Overfull \hbox (23.12602pt too wide) in paragraph at lines 870--876 \OT1/cmtt/m/n/10 This function returns an INTEGER, corresponding to the locatio n of an integer attribute Overfull \hbox (2.1262pt too wide) in paragraph at lines 870--876 \OT1/cmtt/m/n/10 within the input GeneralGrid argument GGrid. For example, ever y GGrid has at least Overfull \hbox (2.1262pt too wide) in paragraph at lines 870--876 \OT1/cmtt/m/n/10 one integer attribute (namely the global gridpoint index 'Glob GridNum'). The array Overfull \hbox (26.90598pt too wide) in paragraph at lines 879--885 \OT1/cmtt/m/n/10 If indexRA[]() is unable to match item to any of the integer a ttributes present in GGrid, Overfull \hbox (38.87589pt too wide) in paragraph at lines 879--885 \OT1/cmtt/m/n/10 the resulting value is zero which is equivalent to an error. T he optional input CHARACTER Overfull \hbox (28.37598pt too wide) in paragraph at lines 879--885 \OT1/cmtt/m/n/10 arguments perrWith and dieWith control how such errors are han dled. Below are the rules Overfull \hbox (15.15633pt too wide) in paragraph at lines 886--889 []\OT1/cmtt/m/n/10 if neither perrWith nor dieWith are present, indexRA[]() ter minates execution with Overfull \hbox (16.62633pt too wide) in paragraph at lines 889--892 []\OT1/cmtt/m/n/10 if perrWith is present, but dieWith is not, an error message is written to stderr Overfull \hbox (21.87628pt too wide) in paragraph at lines 889--892 \OT1/cmtt/m/n/10 incorporating user-supplied traceback information stored in th e argument perrWith; Overfull \hbox (27.12624pt too wide) in paragraph at lines 892--895 []\OT1/cmtt/m/n/10 if dieWith is present, execution terminates with an error me ssage written to stderr Overfull \hbox (37.62614pt too wide) in paragraph at lines 892--895 \OT1/cmtt/m/n/10 that incorporates user-supplied traceback information stored i n the argument dieWith; Overfull \hbox (32.37619pt too wide) in paragraph at lines 895--898 []\OT1/cmtt/m/n/10 if both perrWith and dieWith are present, execution terminat es with an error message [95] Overfull \hbox (23.12602pt too wide) in paragraph at lines 935--939 \OT1/cmtt/m/n/10 This INTEGER function returns the number of grid points stored in the input GeneralGrid Overfull \hbox (7.37616pt too wide) in paragraph at lines 935--939 \OT1/cmtt/m/n/10 argument GGrid. Note that the value returned will be the numbe r of points stored on [96] Overfull \hbox (12.62611pt too wide) in paragraph at lines 969--974 \OT1/cmtt/m/n/10 This routine extracts from the input GeneralGrid argument GGri d the integer attribute Overfull \hbox (12.62611pt too wide) in paragraph at lines 969--974 \OT1/cmtt/m/n/10 corresponding to the tag defined in the input CHARACTER argume nt AttrTag, and returns Overfull \hbox (12.62611pt too wide) in paragraph at lines 969--974 \OT1/cmtt/m/n/10 it in the INTEGER output array outVect, and its length in the output INTEGER argument Overfull \hbox (13.14009pt too wide) in paragraph at lines 975--977 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine will fail if the AttrTag is not in the GeneralGrid List component Overfull \hbox (18.39005pt too wide) in paragraph at lines 978--986 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The flexibility of this routine regar ding the pointer association status of the Overfull \hbox (23.12602pt too wide) in paragraph at lines 978--986 \OT1/cmtt/m/n/10 output argument outVect means the user must invoke this routin e with care. If the user Overfull \hbox (7.37616pt too wide) in paragraph at lines 978--986 \OT1/cmtt/m/n/10 wishes this routine to fill a pre-allocated array, then obviou sly this array must be Overfull \hbox (7.37616pt too wide) in paragraph at lines 978--986 \OT1/cmtt/m/n/10 allocated prior to calling this routine. If the user wishes th at the routine \OT1/cmtt/m/it/10 create Overfull \hbox (38.87589pt too wide) in paragraph at lines 978--986 \OT1/cmtt/m/n/10 the output argument array outVect, then the user must ensure t his pointer is not allocated Overfull \hbox (7.89014pt too wide) in paragraph at lines 987--991 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If the user has relied on this routin e to allocate memory associated with the Overfull \hbox (7.37616pt too wide) in paragraph at lines 987--991 \OT1/cmtt/m/n/10 pointer outVect, then the user is responsible for deallocating this array once it is Overfull \hbox (70.37561pt too wide) in paragraph at lines 1021--1026 \OT1/cmtt/m/n/10 This routine extracts from the input GeneralGrid argument GGri d the real attribute corresponding Overfull \hbox (17.87607pt too wide) in paragraph at lines 1021--1026 \OT1/cmtt/m/n/10 to the tag defined in the input CHARACTER argument AttrTag, an d returns it in the REAL Overfull \hbox (13.14009pt too wide) in paragraph at lines 1027--1029 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine will fail if the AttrTag is not in the GeneralGrid List component Overfull \hbox (18.39005pt too wide) in paragraph at lines 1030--1038 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The flexibility of this routine regar ding the pointer association status of the Overfull \hbox (23.12602pt too wide) in paragraph at lines 1030--1038 \OT1/cmtt/m/n/10 output argument outVect means the user must invoke this routin e with care. If the user Overfull \hbox (7.37616pt too wide) in paragraph at lines 1030--1038 \OT1/cmtt/m/n/10 wishes this routine to fill a pre-allocated array, then obviou sly this array must be Overfull \hbox (7.37616pt too wide) in paragraph at lines 1030--1038 \OT1/cmtt/m/n/10 allocated prior to calling this routine. If the user wishes th at the routine \OT1/cmtt/m/it/10 create Overfull \hbox (38.87589pt too wide) in paragraph at lines 1030--1038 \OT1/cmtt/m/n/10 the output argument array outVect, then the user must ensure t his pointer is not allocated [97] Overfull \hbox (7.89014pt too wide) in paragraph at lines 1039--1043 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If the user has relied on this routin e to allocate memory associated with the Overfull \hbox (7.37616pt too wide) in paragraph at lines 1039--1043 \OT1/cmtt/m/n/10 pointer outVect, then the user is responsible for deallocating this array once it is Overfull \hbox (38.87589pt too wide) in paragraph at lines 1075--1081 \OT1/cmtt/m/n/10 This routine imports data provided in the input INTEGER vector inVect into the GeneralGrid Overfull \hbox (7.37616pt too wide) in paragraph at lines 1075--1081 \OT1/cmtt/m/n/10 argument GGrid, storing it as the integer attribute correspond ing to the tag defined Overfull \hbox (12.62611pt too wide) in paragraph at lines 1075--1081 \OT1/cmtt/m/n/10 in the input CHARACTER argument AttrTag. The input INTEGER arg ument lsize is used to Overfull \hbox (13.14009pt too wide) in paragraph at lines 1082--1084 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine will fail if the AttrTag is not in the GeneralGrid List component [98] Overfull \hbox (23.12602pt too wide) in paragraph at lines 1115--1121 \OT1/cmtt/m/n/10 This routine imports data provided in the input REAL vector in Vect into the GeneralGrid Overfull \hbox (7.37616pt too wide) in paragraph at lines 1115--1121 \OT1/cmtt/m/n/10 argument GGrid, storing it as the real attribute corresponding to the tag defined in Overfull \hbox (33.62593pt too wide) in paragraph at lines 1115--1121 \OT1/cmtt/m/n/10 the input CHARACTER argument AttrTag. The input INTEGER argume nt lsize is used to ensure Overfull \hbox (13.14009pt too wide) in paragraph at lines 1122--1124 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine will fail if the AttrTag is not in the GeneralGrid List component [99] Overfull \hbox (30.68593pt too wide) in paragraph at lines 1158--1169 \OT1/cmtt/m/n/10 The subroutine Sort[]() uses the list of keys present in the i nput List variable key[]List. Overfull \hbox (12.62611pt too wide) in paragraph at lines 1158--1169 \OT1/cmtt/m/n/10 This list of keys is checked to ensure that \OT1/cmtt/m/it/10 only \OT1/cmtt/m/n/10 coordinate attributes are present in Overfull \hbox (2.1262pt too wide) in paragraph at lines 1158--1169 \OT1/cmtt/m/n/10 the sorting keys, and that there are no redundant keys. Once c hecked, this list is Overfull \hbox (21.65602pt too wide) in paragraph at lines 1158--1169 \OT1/cmtt/m/n/10 used to find the appropriate real attributes referenced by the items in key[]list ( that Overfull \hbox (2.1262pt too wide) in paragraph at lines 1158--1169 \OT1/cmtt/m/n/10 is, it identifies the appropriate entries in GGrid%data%rList) , and then uses these Overfull \hbox (28.37598pt too wide) in paragraph at lines 1158--1169 \OT1/cmtt/m/n/10 keys to generate a an output permutation perm that will put th e entries of the attribute Overfull \hbox (30.68593pt too wide) in paragraph at lines 1158--1169 \OT1/cmtt/m/n/10 vector GGrid%data in lexicographic order as defined by key[]li st (the ordering in key[]list Overfull \hbox (16.40607pt too wide) in paragraph at lines 1201--1209 \OT1/cmtt/m/n/10 The subroutine Sortg[]() uses the list of sorting keys present in the input GeneralGrid Overfull \hbox (14.93607pt too wide) in paragraph at lines 1201--1209 \OT1/cmtt/m/n/10 variable GGrid%coordinate[]sort[]order to create a sort permut ation perm(:). Sorting is Overfull \hbox (17.87607pt too wide) in paragraph at lines 1201--1209 \OT1/cmtt/m/n/10 either in ascending or descending order based on the entries o f GGrid%descend(:). The Overfull \hbox (12.62611pt too wide) in paragraph at lines 1201--1209 \OT1/cmtt/m/n/10 output index permutation is stored in the array perm(:) that w ill put the entries of Overfull \hbox (72.68556pt too wide) in paragraph at lines 1201--1209 \OT1/cmtt/m/n/10 the attribute vector GGrid%data in lexicographic order as defi ned by GGrid%coordinate[]sort[]order. Overfull \hbox (13.14009pt too wide) in paragraph at lines 1210--1213 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine returnss an allocatable array perm(:). This allocated array must Overfull \hbox (17.87607pt too wide) in paragraph at lines 1210--1213 \OT1/cmtt/m/n/10 be deallocated when the user no longer needs it. Failure to do so will cause a memory [100] Overfull \hbox (13.14009pt too wide) in paragraph at lines 1214--1216 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine will fail if GGrid has n ot been initialized with sort keys in the Overfull \hbox (32.15593pt too wide) in paragraph at lines 1242--1246 \OT1/cmtt/m/n/10 The subroutine Permute[]() uses an input index permutation per m to re-order the coordinate Overfull \hbox (7.37616pt too wide) in paragraph at lines 1242--1246 \OT1/cmtt/m/n/10 data stored in the GeneralGrid argument GGrid. This permutatio n can be generated by [101] Overfull \hbox (34.46588pt too wide) in paragraph at lines 1278--1285 \OT1/cmtt/m/n/10 The subroutine SortPermute[]() uses the list of keys defined i n GGrid%coordinate[]sort[]order Overfull \hbox (12.62611pt too wide) in paragraph at lines 1278--1285 \OT1/cmtt/m/n/10 to create an index permutation perm, which is then applied to re-order the coordinate Overfull \hbox (7.37616pt too wide) in paragraph at lines 1278--1285 \OT1/cmtt/m/n/10 data stored in the GeneralGrid argument GGrid (more specifical ly, the gridpoint data Overfull \hbox (16.40607pt too wide) in paragraph at lines 1278--1285 \OT1/cmtt/m/n/10 stored in GGrid%data. This permutation is generated by the rou tine Sortg[]() contained Overfull \hbox (0.6562pt too wide) in paragraph at lines 1278--1285 \OT1/cmtt/m/n/10 in this module. The permutation is carried out by the routine Permute[]() contained Overfull \hbox (13.14009pt too wide) in paragraph at lines 1286--1288 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine will fail if GGrid has n ot been initialized with sort keys in the ) [102] (./texsrc/m_GeneralGridComms.tex Overfull \hbox (32.54277pt too wide) in paragraph at lines 48--48 \OT1/cmr/bx/n/12 tions for the Gen-er-al-Grid type. (Source File: m[]GeneralGri dComms.F90) Overfull \hbox (23.12602pt too wide) in paragraph at lines 53--56 \OT1/cmtt/m/n/10 In this module, we define communications methods specific to t he GeneralGrid class (see Overfull \hbox (0.6562pt too wide) in paragraph at lines 99--108 \OT1/cmtt/m/n/10 The point-to-point send routine send[]() sends the input Gener alGrid argument iGGrid Overfull \hbox (42.65584pt too wide) in paragraph at lines 99--108 \OT1/cmtt/m/n/10 to component comp[]id. The message is identified by the tag de fined by the INTEGER argument Overfull \hbox (37.40588pt too wide) in paragraph at lines 99--108 \OT1/cmtt/m/n/10 TagBase. The value of TagBase must match the value used in the call to recv[]() on process Overfull \hbox (7.37616pt too wide) in paragraph at lines 99--108 \OT1/cmtt/m/n/10 dest. The success (failure) of this operation corresponds to a zero (nonzero) value Overfull \hbox (2.1262pt too wide) in paragraph at lines 99--108 \OT1/cmtt/m/n/10 for the output INTEGER flag status. The argument will be sent to the local root of Overfull \hbox (51.9453pt too wide) in paragraph at lines 109--116 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : One must avoid assigning elsewhere th e MPI tag values between TagBase and TagBase+20, Overfull \hbox (42.65584pt too wide) in paragraph at lines 109--116 \OT1/cmtt/m/n/10 inclusive. This is because send[]() performs one send operatio n set up the header transfer, Overfull \hbox (4.43616pt too wide) in paragraph at lines 109--116 \OT1/cmtt/m/n/10 up to five List[]send operations (two MPI[]SEND calls in each) , two send operations to Overfull \hbox (17.87607pt too wide) in paragraph at lines 109--116 \OT1/cmtt/m/n/10 transfer iGGrid%descend(:), and finally the send of the AttrVe ct component iGGrid%data [103] Overfull \hbox (0.6562pt too wide) in paragraph at lines 166--173 \OT1/cmtt/m/n/10 The point-to-point receive routine recv[]() receives the outpu t GeneralGrid argument Overfull \hbox (0.6562pt too wide) in paragraph at lines 166--173 \OT1/cmtt/m/n/10 oGGrid from component comp[]id. The message is identified by t he tag defined by the Overfull \hbox (12.62611pt too wide) in paragraph at lines 166--173 \OT1/cmtt/m/n/10 INTEGER argument TagBase. The value of TagBase must match the value used in the call Overfull \hbox (21.65602pt too wide) in paragraph at lines 166--173 \OT1/cmtt/m/n/10 to send[]() on the other component. The success (failure) of t his operation corresponds Overfull \hbox (9.94566pt too wide) in paragraph at lines 174--182 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : This routine assumes that the General Grid argument oGGrid is uninitialized on Overfull \hbox (2.1262pt too wide) in paragraph at lines 174--182 \OT1/cmtt/m/n/10 input; that is, all the List components are blank, the LOGICAL array oGGrid%descend Overfull \hbox (33.62593pt too wide) in paragraph at lines 174--182 \OT1/cmtt/m/n/10 is unallocated, and the AttrVect component oGGrid%data is unin itialized. The GeneralGrid Overfull \hbox (7.37616pt too wide) in paragraph at lines 174--182 \OT1/cmtt/m/n/10 oGGrid represents allocated memory. When the user no longer ne eds oGGrid, it should Overfull \hbox (20.18602pt too wide) in paragraph at lines 174--182 \OT1/cmtt/m/n/10 be deallocated by invoking GeneralGrid[]clean() (see m[]Genera lGrid for further details). [104] Overfull \hbox (51.9453pt too wide) in paragraph at lines 183--190 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : One must avoid assigning elsewhere th e MPI tag values between TagBase and TagBase+20, Overfull \hbox (5.90616pt too wide) in paragraph at lines 183--190 \OT1/cmtt/m/n/10 inclusive. This is because recv[]() performs one receive opera tion set up the header Overfull \hbox (56.9357pt too wide) in paragraph at lines 183--190 \OT1/cmtt/m/n/10 transfer, up to five List[]recv operations (two MPI[]RECV call s in each), two receive operations Overfull \hbox (49.3758pt too wide) in paragraph at lines 183--190 \OT1/cmtt/m/n/10 to transfer iGGrid%descend(:), and finally the receive of the AttrVect component iGGrid%data [105] Overfull \hbox (41.18584pt too wide) in paragraph at lines 238--245 \OT1/cmtt/m/n/10 GM[]gather[]() takes an input GeneralGrid argument iG whose de composition on the communicator Overfull \hbox (7.37616pt too wide) in paragraph at lines 238--245 \OT1/cmtt/m/n/10 associated with the F90 handle comm is described by the Global Map argument GMap, and Overfull \hbox (7.37616pt too wide) in paragraph at lines 238--245 \OT1/cmtt/m/n/10 gathers it to the GeneralGrid output argument oG on the root. The success (failure) Overfull \hbox (17.87607pt too wide) in paragraph at lines 238--245 \OT1/cmtt/m/n/10 of this operation is reported as a zero (nonzero) value in the optional INTEGER output Overfull \hbox (4.69571pt too wide) in paragraph at lines 246--250 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : An important assumption made here is that the distributed GeneralGrid iG has Overfull \hbox (7.37616pt too wide) in paragraph at lines 246--250 \OT1/cmtt/m/n/10 been initialized with the same coordinate system, sort order, other real attributes, Overfull \hbox (15.19562pt too wide) in paragraph at lines 251--256 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : Once the gridpoint data of the Genera lGrid are assembled on the root, they are Overfull \hbox (28.37598pt too wide) in paragraph at lines 251--256 \OT1/cmtt/m/n/10 stored in the order determined by the input GlobalMap GMap. Th e user may need to sorted Overfull \hbox (25.43597pt too wide) in paragraph at lines 251--256 \OT1/cmtt/m/n/10 these gathered data to order them in accordance with the coord inate[]sort[]order attribute Overfull \hbox (4.69571pt too wide) in paragraph at lines 257--261 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output GeneralGrid oG represents allocated memory on the root. When the Overfull \hbox (0.6562pt too wide) in paragraph at lines 257--261 \OT1/cmtt/m/n/10 user no longer needs oG it should be deallocated using General Grid[]clean() to avoid Overfull \hbox (46.43579pt too wide) in paragraph at lines 299--306 \OT1/cmtt/m/n/10 GMS[]gather[]() takes an input GeneralGrid argument iG whose d ecomposition on the communicator Overfull \hbox (7.37616pt too wide) in paragraph at lines 299--306 \OT1/cmtt/m/n/10 associated with the F90 handle comm is described by the Global SegMap argument GSMap, Overfull \hbox (28.37598pt too wide) in paragraph at lines 299--306 \OT1/cmtt/m/n/10 and gathers it to the GeneralGrid output argument oG on the ro ot. The success (failure) Overfull \hbox (17.87607pt too wide) in paragraph at lines 299--306 \OT1/cmtt/m/n/10 of this operation is reported as a zero (nonzero) value in the optional INTEGER output [106] Overfull \hbox (4.69571pt too wide) in paragraph at lines 307--311 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : An important assumption made here is that the distributed GeneralGrid iG has Overfull \hbox (7.37616pt too wide) in paragraph at lines 307--311 \OT1/cmtt/m/n/10 been initialized with the same coordinate system, sort order, other real attributes, Overfull \hbox (15.19562pt too wide) in paragraph at lines 312--317 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : Once the gridpoint data of the Genera lGrid are assembled on the root, they are Overfull \hbox (12.62611pt too wide) in paragraph at lines 312--317 \OT1/cmtt/m/n/10 stored in the order determined by the input GlobalSegMap GSMap . The user may need to Overfull \hbox (9.68611pt too wide) in paragraph at lines 312--317 \OT1/cmtt/m/n/10 sorted these gathered data to order them in accordance with th e coordinate[]sort[]order Overfull \hbox (4.69571pt too wide) in paragraph at lines 318--322 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output GeneralGrid oG represents allocated memory on the root. When the Overfull \hbox (0.6562pt too wide) in paragraph at lines 318--322 \OT1/cmtt/m/n/10 user no longer needs oG it should be deallocated using General Grid[]clean() to avoid Overfull \hbox (14.93607pt too wide) in paragraph at lines 363--371 \OT1/cmtt/m/n/10 GM[]scatter[]() takes an input GeneralGrid argument iG (valid only on the root process), Overfull \hbox (54.62575pt too wide) in paragraph at lines 363--371 \OT1/cmtt/m/n/10 and scatters it to the distributed GeneralGrid variable oG. Th e GeneralGrid oG is distributed Overfull \hbox (17.87607pt too wide) in paragraph at lines 363--371 \OT1/cmtt/m/n/10 on the communicator associated with the F90 handle comm using the domain decomposition Overfull \hbox (12.62611pt too wide) in paragraph at lines 363--371 \OT1/cmtt/m/n/10 described by the GlobalMap argument GMap. The success (failure ) of this operation is [107] Overfull \hbox (4.69571pt too wide) in paragraph at lines 372--376 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output GeneralGrid oG represents allocated memory on the root. When the Overfull \hbox (0.6562pt too wide) in paragraph at lines 372--376 \OT1/cmtt/m/n/10 user no longer needs oG it should be deallocated using General Grid[]clean() to avoid Overfull \hbox (14.93607pt too wide) in paragraph at lines 418--426 \OT1/cmtt/m/n/10 GM[]scatter[]() takes an input GeneralGrid argument iG (valid only on the root process), Overfull \hbox (54.62575pt too wide) in paragraph at lines 418--426 \OT1/cmtt/m/n/10 and scatters it to the distributed GeneralGrid variable oG. Th e GeneralGrid oG is distributed Overfull \hbox (17.87607pt too wide) in paragraph at lines 418--426 \OT1/cmtt/m/n/10 on the communicator associated with the F90 handle comm using the domain decomposition Overfull \hbox (17.87607pt too wide) in paragraph at lines 418--426 \OT1/cmtt/m/n/10 described by the GlobalSegMap argument GSMap. The success (fai lure) of this operation Overfull \hbox (2.1262pt too wide) in paragraph at lines 418--426 \OT1/cmtt/m/n/10 is reported as a zero (nonzero) value in the optional INTEGER output argument stat. Overfull \hbox (4.69571pt too wide) in paragraph at lines 427--431 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The output GeneralGrid oG represents allocated memory on the root. When the Overfull \hbox (0.6562pt too wide) in paragraph at lines 427--431 \OT1/cmtt/m/n/10 user no longer needs oG it should be deallocated using General Grid[]clean() to avoid [108] Overfull \hbox (16.40607pt too wide) in paragraph at lines 472--478 \OT1/cmtt/m/n/10 bcast[]() takes an input GeneralGrid argument ioG (valid only on the root process), and Overfull \hbox (23.12602pt too wide) in paragraph at lines 472--478 \OT1/cmtt/m/n/10 broadcasts it to all processes on the communicator associated with the F90 handle comm. Overfull \hbox (7.37616pt too wide) in paragraph at lines 472--478 \OT1/cmtt/m/n/10 The success (failure) of this operation is reported as a zero (nonzero) value in the Overfull \hbox (36.19543pt too wide) in paragraph at lines 479--483 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : On the non-root processes, the output GeneralGrid ioG represents allocated memory. Overfull \hbox (42.65584pt too wide) in paragraph at lines 479--483 \OT1/cmtt/m/n/10 When the user no longer needs ioG it should be deallocated by invoking GeneralGrid[]clean(). [109] Overfull \hbox (38.87589pt too wide) in paragraph at lines 523--530 \OT1/cmtt/m/n/10 This routine broadcasts the header information from the input GeneralGrid argument ioGGrid Overfull \hbox (7.37616pt too wide) in paragraph at lines 523--530 \OT1/cmtt/m/n/10 (on input valid on the root only). This broadcast is from the root to all processes Overfull \hbox (7.37616pt too wide) in paragraph at lines 523--530 \OT1/cmtt/m/n/10 on the communicator associated with the fortran 90 INTEGER han dle comm. The success Overfull \hbox (28.37598pt too wide) in paragraph at lines 523--530 \OT1/cmtt/m/n/10 (failure) of this operation corresponds to a zero (nonzero) va lue for the output INTEGER Overfull \hbox (38.87589pt too wide) in paragraph at lines 531--535 []\OT1/cmtt/m/n/10 The \OT1/cmtt/m/it/10 header information \OT1/cmtt/m/n/10 in a GeneralGrid variable comprises all the non-AttrVect components Overfull \hbox (17.87607pt too wide) in paragraph at lines 531--535 \OT1/cmtt/m/n/10 of the GeneralGrid; that is, everything except the gridpoint c oordinate, geometry, and [110] Overfull \hbox (12.62611pt too wide) in paragraph at lines 587--594 \OT1/cmtt/m/n/10 This routine copies the header information from the input Gene ralGrid argument iGGrid Overfull \hbox (2.1262pt too wide) in paragraph at lines 587--594 \OT1/cmtt/m/n/10 to the output GeneralGrid argument oGGrid. The \OT1/cmtt/m/it/ 10 header information \OT1/cmtt/m/n/10 in a GeneralGrid Overfull \hbox (38.87589pt too wide) in paragraph at lines 587--594 \OT1/cmtt/m/n/10 variable comprises all the non-AttrVect components of the Gene ralGrid; that is, everything Overfull \hbox (17.87607pt too wide) in paragraph at lines 587--594 \OT1/cmtt/m/n/10 except the gridpoint coordinate, geometry, and index data stor ed in iGGrid%data. This [111]) [112] (./texsrc/m_Navigator.tex Overfull \hbox (12.62611pt too wide) in paragraph at lines 52--57 \OT1/cmtt/m/n/10 A \OT1/cmtt/m/it/10 Navigator \OT1/cmtt/m/n/10 is a table used to \OT1/cmtt/m/it/10 index \OT1/cmtt/m/n/10 or \OT1/cmtt/m/it/10 Navigate \OT1 /cmtt/m/n/10 segments of a vector, or segments of Overfull \hbox (2.1262pt too wide) in paragraph at lines 52--57 \OT1/cmtt/m/n/10 a dimension of a higher-dimensional array. In MCT, this concep t is embodied in the Overfull \hbox (0.87646pt too wide) in paragraph at lines 59--61 []\OT1/cmtt/m/n/10 The \OT1/cmtt/m/it/10 displacement \OT1/cmtt/m/n/10 of the s tarting index of each segment from the vector's first Overfull \hbox (16.62633pt too wide) in paragraph at lines 62--66 []\OT1/cmtt/m/n/10 The \OT1/cmtt/m/it/10 total length \OT1/cmtt/m/n/10 of the v ector or array dimension for which segments are defined. Overfull \hbox (16.62633pt too wide) in paragraph at lines 62--66 \OT1/cmtt/m/n/10 This last item is optional, but if defined provides the abilit y for the Navigator Overfull \hbox (6.12642pt too wide) in paragraph at lines 62--66 \OT1/cmtt/m/n/10 to check for erroneous segment entries (i.e., segments that ar e out-of-bounds). Overfull \hbox (23.12602pt too wide) in paragraph at lines 68--71 []\OT1/cmtt/m/n/10 This module defines the Navigator datatype, creation and des truction methods, a variety [113] Overfull \hbox (12.62611pt too wide) in paragraph at lines 137--146 \OT1/cmtt/m/n/10 This routine creates a Navigator Nav capable of storing inform ation about NumSegments Overfull \hbox (33.62593pt too wide) in paragraph at lines 137--146 \OT1/cmtt/m/n/10 segments. The user can supply the length of the vector (or arr ay subspace) being indexed Overfull \hbox (12.62611pt too wide) in paragraph at lines 137--146 \OT1/cmtt/m/n/10 by supplying the optional input INTEGER argument VectorLength (if it is not supplied, Overfull \hbox (17.87607pt too wide) in paragraph at lines 137--146 \OT1/cmtt/m/n/10 this component of Nav will be set to zero, signifying to other Navigator routines that Overfull \hbox (2.1262pt too wide) in paragraph at lines 137--146 \OT1/cmtt/m/n/10 vector length information is unavailable). The success (failur e) of this operation Overfull \hbox (23.12602pt too wide) in paragraph at lines 137--146 \OT1/cmtt/m/n/10 is signified by the zero (non-zero) value of the optional outp ut INTEGER argument stat. [114] Overfull \hbox (7.37616pt too wide) in paragraph at lines 177--182 \OT1/cmtt/m/n/10 This routine deallocates allocated memory associated with the input/output Navigator Overfull \hbox (28.37598pt too wide) in paragraph at lines 177--182 \OT1/cmtt/m/n/10 argument Nav, and clears the vector length and number of segme nts components The success Overfull \hbox (12.62611pt too wide) in paragraph at lines 177--182 \OT1/cmtt/m/n/10 (failure) of this operation is signified by the zero (non-zero ) value of the optional Overfull \hbox (38.87589pt too wide) in paragraph at lines 210--213 \OT1/cmtt/m/n/10 This INTEGER query function returns the number of segments in the input Navigator argument Overfull \hbox (17.87607pt too wide) in paragraph at lines 236--239 \OT1/cmtt/m/n/10 This INTEGER query function returns the maximum number of segm ents for which start and [115] Overfull \hbox (2.1262pt too wide) in paragraph at lines 261--266 \OT1/cmtt/m/n/10 This INTEGER query function returns the total length of the ve ctor navigated by the Overfull \hbox (17.87607pt too wide) in paragraph at lines 261--266 \OT1/cmtt/m/n/10 input Navigator argument Nav. Note that the vector length is a quantity the user must Overfull \hbox (7.37616pt too wide) in paragraph at lines 261--266 \OT1/cmtt/m/n/10 have set when Nav was initialized. If it has not been set, the return value will be Overfull \hbox (28.37598pt too wide) in paragraph at lines 288--295 \OT1/cmtt/m/n/10 This routine resets the number of segments stored in the input /output Navigator argument Overfull \hbox (33.62593pt too wide) in paragraph at lines 288--295 \OT1/cmtt/m/n/10 Nav. It behaves in one of two modes: If the optional INTEGER i nput argument NumSegments Overfull \hbox (28.37598pt too wide) in paragraph at lines 288--295 \OT1/cmtt/m/n/10 is provided, then this value is taken to be the new number of segments. If this routine Overfull \hbox (17.87607pt too wide) in paragraph at lines 288--295 \OT1/cmtt/m/n/10 is invoked without NumSegments provided, then the new number o f segments is set as per [116] Overfull \hbox (2.1262pt too wide) in paragraph at lines 323--327 \OT1/cmtt/m/n/10 This multi-purpose query routine can be used to retrieve vario us characteristics of Overfull \hbox (2.1262pt too wide) in paragraph at lines 323--327 \OT1/cmtt/m/n/10 a given segment (identified by the input INTEGER argument iSeg ) stored in the input Overfull \hbox (6.12642pt too wide) in paragraph at lines 328--331 []\OT1/cmtt/m/n/10 The \OT1/cmtt/m/it/10 displacement \OT1/cmtt/m/n/10 of the f irst element in this segment from the first element of Overfull \hbox (0.87646pt too wide) in paragraph at lines 328--331 \OT1/cmtt/m/n/10 the vector. This quantity is returned in the optional output I NTEGER argument Overfull \hbox (21.87628pt too wide) in paragraph at lines 331--333 []\OT1/cmtt/m/n/10 The \OT1/cmtt/m/it/10 number of elements \OT1/cmtt/m/n/10 in this segment. This quantity is returned in the optional Overfull \hbox (6.12642pt too wide) in paragraph at lines 333--336 []\OT1/cmtt/m/n/10 The \OT1/cmtt/m/it/10 index \OT1/cmtt/m/n/10 of the first el ement in this segment This quantity is returned in the Overfull \hbox (6.12642pt too wide) in paragraph at lines 336--339 []\OT1/cmtt/m/n/10 The \OT1/cmtt/m/it/10 index \OT1/cmtt/m/n/10 of the final el ement in this segment This quantity is returned in the Overfull \hbox (12.62611pt too wide) in paragraph at lines 340--342 \OT1/cmtt/m/n/10 Any combination of the above characteristics may be obtained b y invoking this routine [117] Overfull \hbox (12.62611pt too wide) in paragraph at lines 374--380 \OT1/cmtt/m/n/10 This pointer-valued query function returns a pointer to the \O T1/cmtt/m/it/10 displacements \OT1/cmtt/m/n/10 information Overfull \hbox (28.37598pt too wide) in paragraph at lines 374--380 \OT1/cmtt/m/n/10 (the displacement of the first element of each segment from th e beginning of the vector) Overfull \hbox (7.37616pt too wide) in paragraph at lines 374--380 \OT1/cmtt/m/n/10 contained in the input Navigator argument Nav. It has four bas ic modes of behavior, Overfull \hbox (12.62611pt too wide) in paragraph at lines 374--380 \OT1/cmtt/m/n/10 depending on which (if any) of the optional input INTEGER argu ments lbnd and ubnd are Overfull \hbox (3.18642pt too wide) in paragraph at lines 381--384 []\OT1/cmtt/m/n/10 If neither lbnd nor ubnd is supplied, then ptr[]displs[] ret urns a pointer to \OT1/cmtt/m/it/10 all Overfull \hbox (34.68614pt too wide) in paragraph at lines 384--387 []\OT1/cmtt/m/n/10 If both lbnd and ubnd are supplied, then ptr[]displs[] retur ns a pointer to the segment Overfull \hbox (39.9361pt too wide) in paragraph at lines 387--391 []\OT1/cmtt/m/n/10 If lbnd is supplied but ubnd is not, then ptr[]displs[] retu rns a pointer to the segment Overfull \hbox (63.87592pt too wide) in paragraph at lines 387--391 \OT1/cmtt/m/n/10 of the array Nav%displs(lbnd:msize), where msize is the length of the array Nav%displs(:). Overfull \hbox (39.9361pt too wide) in paragraph at lines 391--394 []\OT1/cmtt/m/n/10 If lbnd is not supplied but ubnd is, then ptr[]displs[] retu rns a pointer to the segment Overfull \hbox (7.37616pt too wide) in paragraph at lines 425--431 \OT1/cmtt/m/n/10 This pointer-valued query function returns a pointer to the \O T1/cmtt/m/it/10 counts \OT1/cmtt/m/n/10 information (that Overfull \hbox (28.37598pt too wide) in paragraph at lines 425--431 \OT1/cmtt/m/n/10 is, the number of elements in each of each segment the vector being navigated) contained Overfull \hbox (7.37616pt too wide) in paragraph at lines 425--431 \OT1/cmtt/m/n/10 in the input Navigator argument Nav. It has four basic modes o f behavior, depending Overfull \hbox (12.62611pt too wide) in paragraph at lines 425--431 \OT1/cmtt/m/n/10 on which (if any) of the optional input INTEGER arguments lbnd and ubnd are supplied. [118] Overfull \hbox (3.18642pt too wide) in paragraph at lines 432--435 []\OT1/cmtt/m/n/10 If neither lbnd nor ubnd is supplied, then ptr[]counts[] ret urns a pointer to \OT1/cmtt/m/it/10 all Overfull \hbox (34.68614pt too wide) in paragraph at lines 435--438 []\OT1/cmtt/m/n/10 If both lbnd and ubnd are supplied, then ptr[]counts[] retur ns a pointer to the segment Overfull \hbox (39.9361pt too wide) in paragraph at lines 438--442 []\OT1/cmtt/m/n/10 If lbnd is supplied but ubnd is not, then ptr[]counts[] retu rns a pointer to the segment Overfull \hbox (63.87592pt too wide) in paragraph at lines 438--442 \OT1/cmtt/m/n/10 of the array Nav%counts(lbnd:msize), where msize is the length of the array Nav%counts(:). Overfull \hbox (39.9361pt too wide) in paragraph at lines 442--445 []\OT1/cmtt/m/n/10 If lbnd is not supplied but ubnd is, then ptr[]counts[] retu rns a pointer to the segment ) [119] (./texsrc/m_GlobalMap.tex Overfull \hbox (65.12566pt too wide) in paragraph at lines 52--55 \OT1/cmtt/m/n/10 The GlobalMap is a datatype used to store descriptors of a one -dimensional domain decomposition Overfull \hbox (63.87592pt too wide) in paragraph at lines 58--60 []\OT1/cmtt/m/n/10 The segments are laid out in identical order to the MPI rank of each process participating Overfull \hbox (12.62611pt too wide) in paragraph at lines 61--64 \OT1/cmtt/m/n/10 per process ID). It is the simpler of the two domain decomposi tion descriptors offerd Overfull \hbox (7.37616pt too wide) in paragraph at lines 61--64 \OT1/cmtt/m/n/10 by MCT (the other being the GlobalSegMap). It consists of the following components: Overfull \hbox (46.65605pt too wide) in paragraph at lines 65--68 []\OT1/cmtt/m/n/10 The MCT component identification number (see the module m[]M CTWorld for more information Overfull \hbox (11.37637pt too wide) in paragraph at lines 70--72 []\OT1/cmtt/m/n/10 The number of elements \OT1/cmtt/m/it/10 stored on each proc ess \OT1/cmtt/m/n/10 on the communicator over which the Overfull \hbox (6.12642pt too wide) in paragraph at lines 72--77 []\OT1/cmtt/m/n/10 The index of the elemnent \OT1/cmtt/m/it/10 immediately befo re \OT1/cmtt/m/n/10 the starting element of each local Overfull \hbox (16.62633pt too wide) in paragraph at lines 72--77 \OT1/cmtt/m/n/10 segment (this choice allows for direct use of this information with MPI's scatter Overfull \hbox (42.8761pt too wide) in paragraph at lines 72--77 \OT1/cmtt/m/n/10 and gather operations). We refer to this quantity as the \OT1/ cmtt/m/it/10 displacement \OT1/cmtt/m/n/10 of the segment, Overfull \hbox (7.37616pt too wide) in paragraph at lines 79--84 []\OT1/cmtt/m/n/10 Both the segment displacement and length data are stored in arrays whose indices run Overfull \hbox (22.65405pt too wide) in paragraph at lines 79--84 \OT1/cmtt/m/n/10 from zero to $\OML/cmm/m/it/10 N \OMS/cmsy/m/n/10 ^^@ \OT1/cmr /m/n/10 1$\OT1/cmtt/m/n/10 , where $\OML/cmm/m/it/10 N$ \OT1/cmtt/m/n/10 is the number of MPI processes on the communicator on which Overfull \hbox (2.1262pt too wide) in paragraph at lines 79--84 \OT1/cmtt/m/n/10 the GlobalMap is defined. This is done so this information cor responds directly to Overfull \hbox (2.1262pt too wide) in paragraph at lines 85--90 []\OT1/cmtt/m/n/10 This module contains the definition of the GlobalMap datatyp e, all-processor and an Overfull \hbox (17.87607pt too wide) in paragraph at lines 85--90 \OT1/cmtt/m/n/10 on-root creation methods (both of which can be used to create a GlobalMap on the local Overfull \hbox (2.1262pt too wide) in paragraph at lines 85--90 \OT1/cmtt/m/n/10 communicator), a creation method to create/propagate a GlobalM ap native to a remote [120] Overfull \hbox (2.1262pt too wide) in paragraph at lines 153--159 \OT1/cmtt/m/n/10 This routine creates the GlobalMap GMap from distributed data spread across the MPI Overfull \hbox (28.37598pt too wide) in paragraph at lines 153--159 \OT1/cmtt/m/n/10 communicatior associated with the input INTEGER handle comm. T he INTEGER input argument Overfull \hbox (5.90616pt too wide) in paragraph at lines 153--159 \OT1/cmtt/m/n/10 comp[]id is used to define the MCT component ID for GMap. The input INTEGER argument [121] Overfull \hbox (65.12566pt too wide) in paragraph at lines 192--200 \OT1/cmtt/m/n/10 This routine creates the GlobalMap GMap, and propagates it to all processes on the communicator Overfull \hbox (16.40607pt too wide) in paragraph at lines 192--200 \OT1/cmtt/m/n/10 associated with the MPI INTEGER handle comm. The input INTEGER arguments comp[]id (the Overfull \hbox (7.37616pt too wide) in paragraph at lines 192--200 \OT1/cmtt/m/n/10 MCT component ID number) and lns(:) need only be valid on the process whose rank is Overfull \hbox (2.1262pt too wide) in paragraph at lines 192--200 \OT1/cmtt/m/n/10 equal to root on comm. The array lns(:) should have length equ al to the number of Overfull \hbox (28.37598pt too wide) in paragraph at lines 234--249 \OT1/cmtt/m/n/10 This routine creates and propagates across the local communica tor a GlobalMap associated Overfull \hbox (2.1262pt too wide) in paragraph at lines 234--249 \OT1/cmtt/m/n/10 with a remote component. The controlling process in this opera tion has MPI process Overfull \hbox (21.65602pt too wide) in paragraph at lines 234--249 \OT1/cmtt/m/n/10 ID defined by the input INTEGER argument my[]root, and its MPI communinicator is defined Overfull \hbox (9.68611pt too wide) in paragraph at lines 234--249 \OT1/cmtt/m/n/10 by the input INTEGER argument my[]comm. The input INTEGER argu ment remote[]npes is the Overfull \hbox (2.1262pt too wide) in paragraph at lines 234--249 \OT1/cmtt/m/n/10 number of MPI processes on the remote component's communicator (which need be valid Overfull \hbox (30.68593pt too wide) in paragraph at lines 234--249 \OT1/cmtt/m/n/10 only on the process my[]root). The input the INTEGER array rem ote[]lns(:), and the INTEGER Overfull \hbox (25.43597pt too wide) in paragraph at lines 234--249 \OT1/cmtt/m/n/10 argument remote[]comp[]id need only be valid on the process wh ose rank on the communicator Overfull \hbox (8.21611pt too wide) in paragraph at lines 234--249 \OT1/cmtt/m/n/10 my[]comm is my[]root. The argument remote[]lns(:) defines the vector segment length on Overfull \hbox (4.43616pt too wide) in paragraph at lines 234--249 \OT1/cmtt/m/n/10 each process of the remote component's communicator, and the a rgument remote[]comp[]id [122] Overfull \hbox (28.37598pt too wide) in paragraph at lines 287--292 \OT1/cmtt/m/n/10 This routine deallocates all allocated memory associated with the input/output GlobalMap Overfull \hbox (17.87607pt too wide) in paragraph at lines 287--292 \OT1/cmtt/m/n/10 argument GMap, and sets to zero all of its statically defined components. The success Overfull \hbox (12.62611pt too wide) in paragraph at lines 287--292 \OT1/cmtt/m/n/10 (failure) of this operation is signified by the zero (non-zero ) value of the optional [123] Overfull \hbox (17.87607pt too wide) in paragraph at lines 322--324 \OT1/cmtt/m/n/10 This INTEGER function returns the length of the local vector s egment as defined by the Overfull \hbox (28.37598pt too wide) in paragraph at lines 346--349 \OT1/cmtt/m/n/10 This INTEGER function returns the global length of a vector th at is decomposed according [124] Overfull \hbox (2.1262pt too wide) in paragraph at lines 372--376 \OT1/cmtt/m/n/10 This routine uses the input GlobalMap argument GMap to determi ne the process ID (on Overfull \hbox (2.1262pt too wide) in paragraph at lines 372--376 \OT1/cmtt/m/n/10 the communicator on which GMap was defined) of the vector elem ent with global index Overfull \hbox (21.65602pt too wide) in paragraph at lines 402--407 \OT1/cmtt/m/n/10 This routine takes as input a process ID (defined by the input INTEGER argument pe[]no), Overfull \hbox (28.37598pt too wide) in paragraph at lines 402--407 \OT1/cmtt/m/n/10 examines the input GlobalMap argument GMap, and returns the gl obal indices for the first Overfull \hbox (17.87607pt too wide) in paragraph at lines 402--407 \OT1/cmtt/m/n/10 and last elements of the segment owned by this process in the output INTEGER arguments [125] Overfull \hbox (2.1262pt too wide) in paragraph at lines 434--436 \OT1/cmtt/m/n/10 This INTEGER query function returns the MCT component ID numbe r stored in the input ) [126] (./texsrc/m_Transfer.tex Overfull \hbox (2.1262pt too wide) in paragraph at lines 52--55 \OT1/cmtt/m/n/10 This module provides routines for doing MxN transfer of data i n an Attribute Vector Overfull \hbox (7.37616pt too wide) in paragraph at lines 52--55 \OT1/cmtt/m/n/10 between two components on separate sets of MPI processes. Uses the Router datatype. [127] Overfull \hbox (2.1262pt too wide) in paragraph at lines 119--123 \OT1/cmtt/m/n/10 Send the the data in the AttrVect aV to the component specifie d in the Router Rout. Overfull \hbox (38.87589pt too wide) in paragraph at lines 119--123 \OT1/cmtt/m/n/10 An error will result if the size of the attribute vector does not match the size parameter Overfull \hbox (12.62611pt too wide) in paragraph at lines 126--129 []\OT1/cmtt/m/n/10 The optional argument Tag can be used to set the tag value u sed in the data transfer. Overfull \hbox (30.68593pt too wide) in paragraph at lines 126--129 \OT1/cmtt/m/n/10 DefaultTag will be used otherwise. Tag must be the same in the matching recv[] or irecv[]. Overfull \hbox (22.17pt too wide) in paragraph at lines 130--133 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The AttrVect argument in the correspo nding recv[] call is assumed to have exactly Overfull \hbox (12.62611pt too wide) in paragraph at lines 160--160 [] \OT1/cmtt/m/n/10 18May01 - R. Jacob - use MP_Type to d etermine type in mpi_send[] Overfull \hbox (28.37598pt too wide) in paragraph at lines 160--160 [] \OT1/cmtt/m/n/10 07Jun01 - R. Jacob - remove logic to check "direction" of Router.[] Overfull \hbox (54.62575pt too wide) in paragraph at lines 160--160 [] \OT1/cmtt/m/n/10 03Aug01 - E. Ong - Explicitly specify the starting address in mpi_send.[] Overfull \hbox (28.37598pt too wide) in paragraph at lines 160--160 [] \OT1/cmtt/m/n/10 11Nov02 - R. Jacob - Use DefaultTag a nd add optional Tag argument[] Overfull \hbox (54.62575pt too wide) in paragraph at lines 160--160 [] \OT1/cmtt/m/n/10 22Jan08 - R. Jacob - Handle unordered GSMaps by permuting before send.[] Overfull \hbox (28.37598pt too wide) in paragraph at lines 160--160 [] \OT1/cmtt/m/n/10 remove special case for sending one segment dir ectly from Av which probably[] [128] Overfull \hbox (2.1262pt too wide) in paragraph at lines 193--197 \OT1/cmtt/m/n/10 Send the the data in the AttrVect aV to the component specifie d in the Router Rout. Overfull \hbox (38.87589pt too wide) in paragraph at lines 193--197 \OT1/cmtt/m/n/10 An error will result if the size of the attribute vector does not match the size parameter Overfull \hbox (12.62611pt too wide) in paragraph at lines 201--204 []\OT1/cmtt/m/n/10 The optional argument Tag can be used to set the tag value u sed in the data transfer. Overfull \hbox (30.68593pt too wide) in paragraph at lines 201--204 \OT1/cmtt/m/n/10 DefaultTag will be used otherwise. Tag must be the same in the matching recv[] or irecv[]. Overfull \hbox (18.39005pt too wide) in paragraph at lines 205--208 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The AttrVect argument in the correspo nding recv call is assumed to have exactly Overfull \hbox (23.12602pt too wide) in paragraph at lines 231--235 \OT1/cmtt/m/n/10 Recieve into the AttrVect aV the data coming from the componen t specified in the Router Overfull \hbox (23.12602pt too wide) in paragraph at lines 231--235 \OT1/cmtt/m/n/10 Rout. An error will result if the size of the attribute vector does not match the size Overfull \hbox (12.62611pt too wide) in paragraph at lines 239--242 []\OT1/cmtt/m/n/10 The optional argument Tag can be used to set the tag value u sed in the data transfer. Overfull \hbox (30.68593pt too wide) in paragraph at lines 239--242 \OT1/cmtt/m/n/10 DefaultTag will be used otherwise. Tag must be the same in the matching send[] or isend[]. Overfull \hbox (0.6562pt too wide) in paragraph at lines 243--247 []\OT1/cmtt/m/n/10 If data for a grid point is coming from more than one proces s, recv[] will overwrite Overfull \hbox (17.87607pt too wide) in paragraph at lines 243--247 \OT1/cmtt/m/n/10 the duplicate values leaving the last received value in the ou tput aV. If the optional Overfull \hbox (33.62593pt too wide) in paragraph at lines 243--247 \OT1/cmtt/m/n/10 argument Sum is invoked, the output will contain the sum of an y duplicate values received [129] Overfull \hbox (14.93607pt too wide) in paragraph at lines 248--250 []\OT1/cmtt/m/n/10 Will return as soon as MPI[]IRECV's are posted. Call waitrec v[] to complete the receive Overfull \hbox (22.17pt too wide) in paragraph at lines 251--254 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The AttrVect argument in the correspo nding send[] call is assumed to have exactly Overfull \hbox (2.1262pt too wide) in paragraph at lines 293--295 \OT1/cmtt/m/n/10 Wait for the data being received with the Router Rout to compl ete. When done, copy [130] Overfull \hbox (23.12602pt too wide) in paragraph at lines 322--326 \OT1/cmtt/m/n/10 Recieve into the AttrVect aV the data coming from the componen t specified in the Router Overfull \hbox (23.12602pt too wide) in paragraph at lines 322--326 \OT1/cmtt/m/n/10 Rout. An error will result if the size of the attribute vector does not match the size Overfull \hbox (12.62611pt too wide) in paragraph at lines 330--333 []\OT1/cmtt/m/n/10 The optional argument Tag can be used to set the tag value u sed in the data transfer. Overfull \hbox (0.6562pt too wide) in paragraph at lines 334--338 []\OT1/cmtt/m/n/10 If data for a grid point is coming from more than one proces s, recv[] will overwrite Overfull \hbox (17.87607pt too wide) in paragraph at lines 334--338 \OT1/cmtt/m/n/10 the duplicate values leaving the last received value in the ou tput aV. If the optional Overfull \hbox (33.62593pt too wide) in paragraph at lines 334--338 \OT1/cmtt/m/n/10 argument Sum is invoked, the output will contain the sum of an y duplicate values received Overfull \hbox (22.17pt too wide) in paragraph at lines 341--344 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The AttrVect argument in the correspo nding send[] call is assumed to have exactly [131]) [132] (./texsrc/m_Rearranger.tex Overfull \hbox (17.87607pt too wide) in paragraph at lines 52--59 \OT1/cmtt/m/n/10 This module provides routines and datatypes for rearranging da ta between two Attribute Overfull \hbox (12.62611pt too wide) in paragraph at lines 52--59 \OT1/cmtt/m/n/10 Vectors defined on the same grid but with two different Global SegMaps. ''Rearrange'' Overfull \hbox (17.87607pt too wide) in paragraph at lines 52--59 \OT1/cmtt/m/n/10 is a generalized form of a parallel matrix transpose. A parall el matrix transpose can Overfull \hbox (2.1262pt too wide) in paragraph at lines 52--59 \OT1/cmtt/m/n/10 take advantage of symmetry in the data movement algorithm. An MCT Rearranger makes Overfull \hbox (23.12602pt too wide) in paragraph at lines 60--63 []\OT1/cmtt/m/n/10 When data needs to move between two components and the compo nents share any processors, Overfull \hbox (25.43597pt too wide) in paragraph at lines 60--63 \OT1/cmtt/m/n/10 use m[]Rearranger. If the components are on distinct sets of p rocessors, use m[]Transfer. [133] Overfull \hbox (2.1262pt too wide) in paragraph at lines 129--132 \OT1/cmtt/m/n/10 This routine takes two GlobalSegMap inputs, SourceGSMap and Ta rgetGSMap and build a Overfull \hbox (17.87607pt too wide) in paragraph at lines 129--132 \OT1/cmtt/m/n/10 Rearranger OutRearranger between them. myComm is used for the internal communication. Overfull \hbox (4.69571pt too wide) in paragraph at lines 133--135 []\OT1/cmr/bx/n/10 N.B. \OT1/cmtt/m/n/10 The two GlolbalSegMap inputs must be i nitialized so that the index values on a [134] Overfull \hbox (12.62611pt too wide) in paragraph at lines 173--177 \OT1/cmtt/m/n/10 This routine deallocates allocated memory associated with the input/output Rearranger Overfull \hbox (38.87589pt too wide) in paragraph at lines 173--177 \OT1/cmtt/m/n/10 argument ReArr. The success (failure) of this operation is rep orted in the zero (nonzero) Overfull \hbox (2.1262pt too wide) in paragraph at lines 206--210 \OT1/cmtt/m/n/10 This subroutine will take data in the SourceAv Attribute Vecto r and rearrange it to Overfull \hbox (23.12602pt too wide) in paragraph at lines 206--210 \OT1/cmtt/m/n/10 match the GlobalSegMap used to define the TargetAv Attribute V ector using the Rearrnger Overfull \hbox (12.62611pt too wide) in paragraph at lines 211--213 []\OT1/cmtt/m/n/10 The optional argument Tag can be used to set the tag value u sed in the rearrangement. Overfull \hbox (33.62593pt too wide) in paragraph at lines 214--217 []\OT1/cmtt/m/n/10 If the optional argument Sum is present and true, data for t he same physical point coming Overfull \hbox (23.12602pt too wide) in paragraph at lines 218--220 []\OT1/cmtt/m/n/10 If the optional argument Vector is present and true, vector architecture-friendly parts Overfull \hbox (12.62611pt too wide) in paragraph at lines 221--224 []\OT1/cmtt/m/n/10 If the optional argument AlltoAll is present and true, the c ommunication will be done Overfull \hbox (38.87589pt too wide) in paragraph at lines 225--228 []\OT1/cmtt/m/n/10 The size of the SourceAv and TargetAv argument must match th ose stored in the InRearranger Overfull \hbox (23.64pt too wide) in paragraph at lines 229--232 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 SourceAv and TargetAv are assumed to have exactly the same attributes in exactly [135] Overfull \hbox (28.37598pt too wide) in paragraph at lines 287--290 \OT1/cmtt/m/n/10 Print out communication info for both routers in a rearranger. Print out on unit number [136]) [137] (./texsrc/m_SparseMatrix.tex Overfull \hbox (38.87589pt too wide) in paragraph at lines 52--65 \OT1/cmtt/m/n/10 The SparseMatrix data type is MCT's object for storing sparse matrices. In MCT, intergrid Overfull \hbox (28.37598pt too wide) in paragraph at lines 52--65 \OT1/cmtt/m/n/10 interpolation is implemented as a sparse matrix-vector multipl ication, with the AttrVect Overfull \hbox (2.1262pt too wide) in paragraph at lines 52--65 \OT1/cmtt/m/n/10 type playing the roles of the input and output vectors. The in terpolation matrices Overfull \hbox (31.1998pt too wide) in paragraph at lines 52--65 \OT1/cmr/bx/n/10 M \OT1/cmtt/m/n/10 used to effect $\OT1/cmr/bx/n/10 y \OT1/cmr /m/n/10 = \OT1/cmr/bx/n/10 Mx$ \OT1/cmtt/m/n/10 will typically have $\OMS/cmsy/ m/n/10 O\OT1/cmr/m/n/10 ([])$ \OT1/cmtt/m/n/10 non-zero elements. For that reas on, Overfull \hbox (2.1262pt too wide) in paragraph at lines 52--65 \OT1/cmtt/m/n/10 the SparseMatrix type stores \OT1/cmtt/m/it/10 only \OT1/cmtt/ m/n/10 information about non-zero matrix elements, along Overfull \hbox (7.37616pt too wide) in paragraph at lines 52--65 \OT1/cmtt/m/n/10 with the number of rows and columns in the full matrix. The no nzero matrix elements Overfull \hbox (11.15611pt too wide) in paragraph at lines 52--65 \OT1/cmtt/m/n/10 are stored in AttrVect form (see the module m[]AttrVect for mo re details), and the set Overfull \hbox (44.12584pt too wide) in paragraph at lines 86--89 []\OT1/cmtt/m/n/10 The provision of both local and global column and row indice s is made because this datatype Overfull \hbox (38.87589pt too wide) in paragraph at lines 86--89 \OT1/cmtt/m/n/10 can be used in either shared-memory or distributed-memory para llel matrix-vector products. Overfull \hbox (17.87607pt too wide) in paragraph at lines 90--95 []\OT1/cmtt/m/n/10 This module contains the definition of the SparseMatrix type , creation and destruction Overfull \hbox (2.1262pt too wide) in paragraph at lines 90--95 \OT1/cmtt/m/n/10 methods, a variety of accessor methods, routines for testing t he suitability of the Overfull \hbox (33.62593pt too wide) in paragraph at lines 90--95 \OT1/cmtt/m/n/10 matrix for interpolation (i.e. the sum of each row is either z ero or unity), and methods Overfull \hbox (59.8757pt too wide) in paragraph at lines 96--99 []\OT1/cmtt/m/n/10 For better performance of the Matrix-Vector multiply on vect or architectures, the SparseMatrix Overfull \hbox (28.37598pt too wide) in paragraph at lines 96--99 \OT1/cmtt/m/n/10 object also contains arrays for holding the sparse matrix data in a more vector-friendly [138] [139] [140] Overfull \hbox (33.62593pt too wide) in paragraph at lines 293--300 \OT1/cmtt/m/n/10 This routine creates the storage space for entries of a Sparse Matrix, and sets the number Overfull \hbox (2.1262pt too wide) in paragraph at lines 293--300 \OT1/cmtt/m/n/10 of rows and columns in it. The input INTEGER arguments nrows a nd ncols specify the Overfull \hbox (12.62611pt too wide) in paragraph at lines 293--300 \OT1/cmtt/m/n/10 number of rows and columns respectively. The optional input ar gument lsize specifies Overfull \hbox (2.1262pt too wide) in paragraph at lines 293--300 \OT1/cmtt/m/n/10 the number of nonzero entries in the SparseMatrix. The initial ized SparseMatrix is Overfull \hbox (20.44557pt too wide) in paragraph at lines 301--305 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : This routine is allocating dynamical memory in the form of a SparseMatrix. The Overfull \hbox (12.62611pt too wide) in paragraph at lines 301--305 \OT1/cmtt/m/n/10 user must deallocate this space when the SparseMatrix is no lo nger needed by invoking [141] Overfull \hbox (54.62575pt too wide) in paragraph at lines 335--337 \OT1/cmtt/m/n/10 This routine creates the storage space for and intializes the vector parts of a SparseMatrix. Overfull \hbox (62.4452pt too wide) in paragraph at lines 338--344 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : This routine assumes the locally inde xed parts of a SparseMatrix have been initialized. Overfull \hbox (23.12602pt too wide) in paragraph at lines 338--344 \OT1/cmtt/m/n/10 This is accomplished by either importing the values directly w ith importLocalRowIndices Overfull \hbox (2.1262pt too wide) in paragraph at lines 338--344 \OT1/cmtt/m/n/10 and importLocalColIndices or by importing the Global Row and C ol Indices and making Overfull \hbox (20.44557pt too wide) in paragraph at lines 345--349 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The vector portion can use a large am ount of memory so it is highly recommended Overfull \hbox (23.12602pt too wide) in paragraph at lines 345--349 \OT1/cmtt/m/n/10 that this routine only be called on a SparseMatrix that has be en scattered or otherwise Overfull \hbox (2.1262pt too wide) in paragraph at lines 372--375 \OT1/cmtt/m/n/10 This routine deallocates dynamical memory held by input Sparse Matrix argument sMat. [142] Overfull \hbox (7.37616pt too wide) in paragraph at lines 405--408 \OT1/cmtt/m/n/10 This INTEGER function reports on-processor storage of the numb er of nonzero elements Overfull \hbox (44.12584pt too wide) in paragraph at lines 429--436 \OT1/cmtt/m/n/10 This routine computes the number of nonzero elements in a dist ributed SparseMatrix variable Overfull \hbox (7.37616pt too wide) in paragraph at lines 429--436 \OT1/cmtt/m/n/10 sMat. The input SparseMatrix argument sMat is examined on each process to determine Overfull \hbox (33.62593pt too wide) in paragraph at lines 429--436 \OT1/cmtt/m/n/10 the number of nonzero elements it holds, and this value is sum med across the communicator Overfull \hbox (17.87607pt too wide) in paragraph at lines 429--436 \OT1/cmtt/m/n/10 associated with the input INTEGER handle comm, with the total returned \OT1/cmtt/m/it/10 on each process [143] Overfull \hbox (17.87607pt too wide) in paragraph at lines 460--466 \OT1/cmtt/m/n/10 This INTEGER function reports the row index for a given INTEGE R attribute of the input Overfull \hbox (38.87589pt too wide) in paragraph at lines 460--466 \OT1/cmtt/m/n/10 SparseMatrix argument sMat. The attribute requested is represe nted by the input CHARACTER Overfull \hbox (12.62611pt too wide) in paragraph at lines 460--466 \OT1/cmtt/m/n/10 variable attribute. The list of integer attributes one can req uest is defined in the Overfull \hbox (32.15593pt too wide) in paragraph at lines 467--472 []\OT1/cmtt/m/n/10 Here is how indexIA[] provides access to integer attribute d ata in a SparseMatrix variable Overfull \hbox (23.12602pt too wide) in paragraph at lines 467--472 \OT1/cmtt/m/n/10 sMat. Suppose we wish to access global row information. This a ttribute has associated Overfull \hbox (7.37616pt too wide) in paragraph at lines 467--472 \OT1/cmtt/m/n/10 with it the string tag grow. The corresponding index returned (igrow) is determined Overfull \hbox (96.62538pt too wide) in paragraph at lines 476--478 []\OT1/cmtt/m/n/10 Access to the global row index data in sMat is thus obtained by referencing sMat%data%iAttr(igrow,:). [144] Overfull \hbox (2.1262pt too wide) in paragraph at lines 510--516 \OT1/cmtt/m/n/10 This INTEGER function reports the row index for a given REAL a ttribute of the input Overfull \hbox (38.87589pt too wide) in paragraph at lines 510--516 \OT1/cmtt/m/n/10 SparseMatrix argument sMat. The attribute requested is represe nted by the input CHARACTER Overfull \hbox (59.8757pt too wide) in paragraph at lines 510--516 \OT1/cmtt/m/n/10 variable attribute. The list of real attributes one can reques t is defined in the description Overfull \hbox (32.15593pt too wide) in paragraph at lines 517--522 []\OT1/cmtt/m/n/10 Here is how indexRA[] provides access to integer attribute d ata in a SparseMatrix variable Overfull \hbox (17.87607pt too wide) in paragraph at lines 517--522 \OT1/cmtt/m/n/10 sMat. Suppose we wish to access matrix element values. This at tribute has associated Overfull \hbox (28.37598pt too wide) in paragraph at lines 517--522 \OT1/cmtt/m/n/10 with it the string tag weight. The corresponding index returne d (iweight) is determined Overfull \hbox (96.62538pt too wide) in paragraph at lines 526--528 []\OT1/cmtt/m/n/10 Access to the matrix element data in sMat is thus obtained b y referencing sMat%data%rAttr(iweight,:). Overfull \hbox (23.12602pt too wide) in paragraph at lines 559--563 \OT1/cmtt/m/n/10 This routine returns the \OT1/cmtt/m/it/10 total \OT1/cmtt/m/n /10 number of in the input SparseMatrix argument sMat. This Overfull \hbox (33.62593pt too wide) in paragraph at lines 559--563 \OT1/cmtt/m/n/10 number of rows is a constant, and not dependent on the decompo sition of the SparseMatrix. [145] Overfull \hbox (23.12602pt too wide) in paragraph at lines 582--586 \OT1/cmtt/m/n/10 This routine returns the \OT1/cmtt/m/it/10 total \OT1/cmtt/m/n /10 number of in the input SparseMatrix argument sMat. This Overfull \hbox (49.3758pt too wide) in paragraph at lines 582--586 \OT1/cmtt/m/n/10 number of columns is a constant, and not dependent on the deco mposition of the SparseMatrix. Overfull \hbox (23.12602pt too wide) in paragraph at lines 606--610 \OT1/cmtt/m/n/10 This routine extracts from the input SparseMatrix argument sMa t its global row indices, Overfull \hbox (12.62611pt too wide) in paragraph at lines 606--610 \OT1/cmtt/m/n/10 and returns them in the INTEGER output array GlobalRows, and i ts length in the output Overfull \hbox (18.39005pt too wide) in paragraph at lines 611--619 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The flexibility of this routine regar ding the pointer association status of the Overfull \hbox (12.62611pt too wide) in paragraph at lines 611--619 \OT1/cmtt/m/n/10 output argument GlobalRows means the user must invoke this rou tine with care. If the Overfull \hbox (17.87607pt too wide) in paragraph at lines 611--619 \OT1/cmtt/m/n/10 user wishes this routine to fill a pre-allocated array, then o bviously this array must Overfull \hbox (23.12602pt too wide) in paragraph at lines 611--619 \OT1/cmtt/m/n/10 be allocated prior to calling this routine. If the user wishes that the routine \OT1/cmtt/m/it/10 create Overfull \hbox (2.1262pt too wide) in paragraph at lines 611--619 \OT1/cmtt/m/n/10 the output argument array GlobalRows, then the user must ensur e this pointer is not Overfull \hbox (33.62593pt too wide) in paragraph at lines 611--619 \OT1/cmtt/m/n/10 allocated (i.e. the user must nullify this pointer) at the tim e this routine is invoked. Overfull \hbox (7.89014pt too wide) in paragraph at lines 620--624 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If the user has relied on this routin e to allocate memory associated with the Overfull \hbox (7.37616pt too wide) in paragraph at lines 620--624 \OT1/cmtt/m/n/10 pointer GlobalRows, then the user is responsible for deallocat ing this array once it [146] Overfull \hbox (38.87589pt too wide) in paragraph at lines 653--657 \OT1/cmtt/m/n/10 This routine extracts from the input SparseMatrix argument sMa t its global column indices, Overfull \hbox (28.37598pt too wide) in paragraph at lines 653--657 \OT1/cmtt/m/n/10 and returns them in the INTEGER output array GlobalColumns, an d its length in the output Overfull \hbox (18.39005pt too wide) in paragraph at lines 658--666 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The flexibility of this routine regar ding the pointer association status of the Overfull \hbox (7.37616pt too wide) in paragraph at lines 658--666 \OT1/cmtt/m/n/10 output argument GlobalColumns means the user must invoke this routine with care. If Overfull \hbox (12.62611pt too wide) in paragraph at lines 658--666 \OT1/cmtt/m/n/10 the user wishes this routine to fill a pre-allocated array, th en obviously this array Overfull \hbox (12.62611pt too wide) in paragraph at lines 658--666 \OT1/cmtt/m/n/10 must be allocated prior to calling this routine. If the user w ishes that the routine Overfull \hbox (17.87607pt too wide) in paragraph at lines 658--666 \OT1/cmtt/m/it/10 create \OT1/cmtt/m/n/10 the output argument array GlobalColum ns, then the user must ensure this pointer Overfull \hbox (7.37616pt too wide) in paragraph at lines 658--666 \OT1/cmtt/m/n/10 is not allocated (i.e. the user must nullify this pointer) at the time this routine Overfull \hbox (7.89014pt too wide) in paragraph at lines 667--671 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If the user has relied on this routin e to allocate memory associated with the Overfull \hbox (7.37616pt too wide) in paragraph at lines 667--671 \OT1/cmtt/m/n/10 pointer GlobalColumns, then the user is responsible for deallo cating this array once [147] Overfull \hbox (17.87607pt too wide) in paragraph at lines 701--705 \OT1/cmtt/m/n/10 This routine extracts from the input SparseMatrix argument sMa t its local row indices, Overfull \hbox (7.37616pt too wide) in paragraph at lines 701--705 \OT1/cmtt/m/n/10 and returns them in the INTEGER output array LocalRows, and it s length in the output Overfull \hbox (18.39005pt too wide) in paragraph at lines 706--714 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The flexibility of this routine regar ding the pointer association status of the Overfull \hbox (7.37616pt too wide) in paragraph at lines 706--714 \OT1/cmtt/m/n/10 output argument LocalRows means the user must invoke this rout ine with care. If the Overfull \hbox (17.87607pt too wide) in paragraph at lines 706--714 \OT1/cmtt/m/n/10 user wishes this routine to fill a pre-allocated array, then o bviously this array must Overfull \hbox (23.12602pt too wide) in paragraph at lines 706--714 \OT1/cmtt/m/n/10 be allocated prior to calling this routine. If the user wishes that the routine \OT1/cmtt/m/it/10 create Overfull \hbox (49.3758pt too wide) in paragraph at lines 706--714 \OT1/cmtt/m/n/10 the output argument array LocalRows, then the user must ensure this pointer is not allocated Overfull \hbox (7.89014pt too wide) in paragraph at lines 715--719 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If the user has relied on this routin e to allocate memory associated with the Overfull \hbox (2.1262pt too wide) in paragraph at lines 715--719 \OT1/cmtt/m/n/10 pointer LocalRows, then the user is responsible for deallocati ng this array once it Overfull \hbox (33.62593pt too wide) in paragraph at lines 748--752 \OT1/cmtt/m/n/10 This routine extracts from the input SparseMatrix argument sMa t its local column indices, Overfull \hbox (23.12602pt too wide) in paragraph at lines 748--752 \OT1/cmtt/m/n/10 and returns them in the INTEGER output array LocalColumns, and its length in the output Overfull \hbox (18.39005pt too wide) in paragraph at lines 753--761 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The flexibility of this routine regar ding the pointer association status of the Overfull \hbox (2.1262pt too wide) in paragraph at lines 753--761 \OT1/cmtt/m/n/10 output argument LocalColumns means the user must invoke this r outine with care. If Overfull \hbox (12.62611pt too wide) in paragraph at lines 753--761 \OT1/cmtt/m/n/10 the user wishes this routine to fill a pre-allocated array, th en obviously this array Overfull \hbox (12.62611pt too wide) in paragraph at lines 753--761 \OT1/cmtt/m/n/10 must be allocated prior to calling this routine. If the user w ishes that the routine Overfull \hbox (12.62611pt too wide) in paragraph at lines 753--761 \OT1/cmtt/m/it/10 create \OT1/cmtt/m/n/10 the output argument array LocalColumn s, then the user must ensure this pointer Overfull \hbox (7.37616pt too wide) in paragraph at lines 753--761 \OT1/cmtt/m/n/10 is not allocated (i.e. the user must nullify this pointer) at the time this routine [148] Overfull \hbox (7.89014pt too wide) in paragraph at lines 762--766 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If the user has relied on this routin e to allocate memory associated with the Overfull \hbox (2.1262pt too wide) in paragraph at lines 762--766 \OT1/cmtt/m/n/10 pointer LocalColumns, then the user is responsible for dealloc ating this array once Overfull \hbox (7.37616pt too wide) in paragraph at lines 796--800 \OT1/cmtt/m/n/10 This routine extracts the matrix elements from the input Spars eMatrix argument sMat, Overfull \hbox (17.87607pt too wide) in paragraph at lines 796--800 \OT1/cmtt/m/n/10 and returns them in the REAL output array MatrixElements, and its length in the output Overfull \hbox (18.39005pt too wide) in paragraph at lines 801--809 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The flexibility of this routine regar ding the pointer association status of the Overfull \hbox (12.62611pt too wide) in paragraph at lines 801--809 \OT1/cmtt/m/n/10 output argument MatrixElements means the user must invoke this routine with care. If Overfull \hbox (12.62611pt too wide) in paragraph at lines 801--809 \OT1/cmtt/m/n/10 the user wishes this routine to fill a pre-allocated array, th en obviously this array Overfull \hbox (12.62611pt too wide) in paragraph at lines 801--809 \OT1/cmtt/m/n/10 must be allocated prior to calling this routine. If the user w ishes that the routine Overfull \hbox (23.12602pt too wide) in paragraph at lines 801--809 \OT1/cmtt/m/it/10 create \OT1/cmtt/m/n/10 the output argument array MatrixEleme nts, then the user must ensure this pointer Overfull \hbox (7.37616pt too wide) in paragraph at lines 801--809 \OT1/cmtt/m/n/10 is not allocated (i.e. the user must nullify this pointer) at the time this routine Overfull \hbox (7.89014pt too wide) in paragraph at lines 810--814 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If the user has relied on this routin e to allocate memory associated with the Overfull \hbox (12.62611pt too wide) in paragraph at lines 810--814 \OT1/cmtt/m/n/10 pointer MatrixElements, then the user is responsible for deall ocating this array once Overfull \hbox (2.1262pt too wide) in paragraph at lines 815--817 []\OT1/cmtt/m/n/10 The native precision version is described here. A double pre cision version is also [149] Overfull \hbox (7.37616pt too wide) in paragraph at lines 849--854 \OT1/cmtt/m/n/10 This routine imports global row index data into the SparseMatr ix argument sMat. The Overfull \hbox (2.1262pt too wide) in paragraph at lines 849--854 \OT1/cmtt/m/n/10 user provides the index data in the input INTEGER vector inVec t. The input INTEGER Overfull \hbox (12.62611pt too wide) in paragraph at lines 849--854 \OT1/cmtt/m/n/10 argument lsize is used as a consistencey check to ensure the u ser is sufficient space Overfull \hbox (23.12602pt too wide) in paragraph at lines 884--889 \OT1/cmtt/m/n/10 This routine imports global column index data into the SparseM atrix argument sMat. The Overfull \hbox (2.1262pt too wide) in paragraph at lines 884--889 \OT1/cmtt/m/n/10 user provides the index data in the input INTEGER vector inVec t. The input INTEGER Overfull \hbox (12.62611pt too wide) in paragraph at lines 884--889 \OT1/cmtt/m/n/10 argument lsize is used as a consistencey check to ensure the u ser is sufficient space [150] Overfull \hbox (2.1262pt too wide) in paragraph at lines 919--924 \OT1/cmtt/m/n/10 This routine imports local row index data into the SparseMatri x argument sMat. The Overfull \hbox (2.1262pt too wide) in paragraph at lines 919--924 \OT1/cmtt/m/n/10 user provides the index data in the input INTEGER vector inVec t. The input INTEGER Overfull \hbox (12.62611pt too wide) in paragraph at lines 919--924 \OT1/cmtt/m/n/10 argument lsize is used as a consistencey check to ensure the u ser is sufficient space [151] Overfull \hbox (17.87607pt too wide) in paragraph at lines 954--959 \OT1/cmtt/m/n/10 This routine imports local column index data into the SparseMa trix argument sMat. The Overfull \hbox (2.1262pt too wide) in paragraph at lines 954--959 \OT1/cmtt/m/n/10 user provides the index data in the input INTEGER vector inVec t. The input INTEGER Overfull \hbox (12.62611pt too wide) in paragraph at lines 954--959 \OT1/cmtt/m/n/10 argument lsize is used as a consistencey check to ensure the u ser is sufficient space Overfull \hbox (7.37616pt too wide) in paragraph at lines 989--995 \OT1/cmtt/m/n/10 This routine imports matrix elements index data into the Spars eMatrix argument sMat. Overfull \hbox (7.37616pt too wide) in paragraph at lines 989--995 \OT1/cmtt/m/n/10 The user provides the index data in the input REAL vector inVe ct. The input INTEGER Overfull \hbox (12.62611pt too wide) in paragraph at lines 989--995 \OT1/cmtt/m/n/10 argument lsize is used as a consistencey check to ensure the u ser is sufficient space [152] Overfull \hbox (7.37616pt too wide) in paragraph at lines 1027--1030 \OT1/cmtt/m/n/10 This routine creates a copy of the input SparseMatrix argument sMat, returning it as Overfull \hbox (28.88995pt too wide) in paragraph at lines 1031--1034 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output argument sMatCopy represen ts allocated memory the user must deallocate Overfull \hbox (12.62611pt too wide) in paragraph at lines 1031--1034 \OT1/cmtt/m/n/10 when it is no longer needed. The MCT routine to use for this p urpose is clean() from [153] Overfull \hbox (2.1262pt too wide) in paragraph at lines 1065--1070 \OT1/cmtt/m/n/10 This routine examines the input distributed SparseMatrix varia ble sMat, and returns Overfull \hbox (28.37598pt too wide) in paragraph at lines 1065--1070 \OT1/cmtt/m/n/10 the range of local row values having nonzero elements. The fir st local row with nonzero Overfull \hbox (2.1262pt too wide) in paragraph at lines 1101--1106 \OT1/cmtt/m/n/10 This routine examines the input distributed SparseMatrix varia ble sMat, and returns Overfull \hbox (33.62593pt too wide) in paragraph at lines 1101--1106 \OT1/cmtt/m/n/10 the range of global row values having nonzero elements. The fi rst local row with nonzero [154] Overfull \hbox (2.1262pt too wide) in paragraph at lines 1138--1143 \OT1/cmtt/m/n/10 This routine examines the input distributed SparseMatrix varia ble sMat, and returns Overfull \hbox (17.87607pt too wide) in paragraph at lines 1138--1143 \OT1/cmtt/m/n/10 the range of local column values having nonzero elements. The first local column with Overfull \hbox (41.18584pt too wide) in paragraph at lines 1138--1143 \OT1/cmtt/m/n/10 nonzero elements is returned in the INTEGER argument start[]co l, the last column in end[]col. Overfull \hbox (2.1262pt too wide) in paragraph at lines 1174--1179 \OT1/cmtt/m/n/10 This routine examines the input distributed SparseMatrix varia ble sMat, and returns Overfull \hbox (2.1262pt too wide) in paragraph at lines 1174--1179 \OT1/cmtt/m/n/10 the range of global column values having nonzero elements. The first global column Overfull \hbox (5.90616pt too wide) in paragraph at lines 1174--1179 \OT1/cmtt/m/n/10 with nonzero elements is returned in the INTEGER argument star t[]col, the last column [155] Overfull \hbox (33.62593pt too wide) in paragraph at lines 1211--1219 \OT1/cmtt/m/n/10 This routine computes the sparsity of a (all on one process) o r distributed SparseMatrix. Overfull \hbox (2.1262pt too wide) in paragraph at lines 1211--1219 \OT1/cmtt/m/n/10 The input SparseMatrix argument sMat is examined to determine the number of nonzero Overfull \hbox (12.62611pt too wide) in paragraph at lines 1211--1219 \OT1/cmtt/m/n/10 elements it holds, and this value is divided by the product of the number of rows and Overfull \hbox (7.37616pt too wide) in paragraph at lines 1211--1219 \OT1/cmtt/m/n/10 columns in sMat. If the optional input argument comm is given, then the distributed Overfull \hbox (2.1262pt too wide) in paragraph at lines 1211--1219 \OT1/cmtt/m/n/10 elements are counted and the sparsity computed accordingly, an d the resulting value Overfull \hbox (12.62611pt too wide) in paragraph at lines 1220--1223 []\OT1/cmtt/m/n/10 Given the inherent problems with multiplying and dividing la rge integers, the work in Overfull \hbox (33.62593pt too wide) in paragraph at lines 1220--1223 \OT1/cmtt/m/n/10 this routine is performed using floating point arithmetic on t he logarithms of the number [156] Overfull \hbox (7.37616pt too wide) in paragraph at lines 1253--1262 \OT1/cmtt/m/n/10 This routine examines the input distributed SparseMatrix varia ble sMat, and examines Overfull \hbox (23.12602pt too wide) in paragraph at lines 1253--1262 \OT1/cmtt/m/n/10 the global row and column index for each element, comparing th em with the known maximum Overfull \hbox (14.93607pt too wide) in paragraph at lines 1253--1262 \OT1/cmtt/m/n/10 values for each (as returned by the routines nRows[]() and nCo ls[](), respectively). If Overfull \hbox (38.87589pt too wide) in paragraph at lines 1253--1262 \OT1/cmtt/m/n/10 global row or column entries are non-positive, or greater than the defined maximum values, Overfull \hbox (2.1262pt too wide) in paragraph at lines 1253--1262 \OT1/cmtt/m/n/10 this routine stops execution with an error message. If no out- of-bounds values are Overfull \hbox (4.43616pt too wide) in paragraph at lines 1290--1296 \OT1/cmtt/m/n/10 Given an input SparseMatrix argument sMat, row[]sum[]() return s the number of the rows Overfull \hbox (26.90598pt too wide) in paragraph at lines 1290--1296 \OT1/cmtt/m/n/10 num[]rows in the sparse matrix and the sum of the elements in each row in the array sums. Overfull \hbox (2.1262pt too wide) in paragraph at lines 1290--1296 \OT1/cmtt/m/n/10 The input argument comm is the Fortran 90 MPI communicator han dle used to determine Overfull \hbox (5.90616pt too wide) in paragraph at lines 1290--1296 \OT1/cmtt/m/n/10 the number of rows and perform the sums. The output arguments num[]rows and sums are [157] Overfull \hbox (22.86224pt too wide) in paragraph at lines 1297--1300 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine allocates an array sums . The user is responsible for deallocating Overfull \hbox (2.1262pt too wide) in paragraph at lines 1297--1300 \OT1/cmtt/m/n/10 this array when it is no longer needed. Failure to do so will cause a memory leak. Overfull \hbox (41.18584pt too wide) in paragraph at lines 1340--1348 \OT1/cmtt/m/n/10 The routine row[]sum[]check() sums the rows of the input distr ibuted (across the communicator Overfull \hbox (12.62611pt too wide) in paragraph at lines 1340--1348 \OT1/cmtt/m/n/10 identified by comm) SparseMatrix variable sMat. It then compar es these sums with the Overfull \hbox (14.93607pt too wide) in paragraph at lines 1340--1348 \OT1/cmtt/m/n/10 num[]valid input "valid" values stored in the array valid[]sum s. If all of the sums are Overfull \hbox (0.6562pt too wide) in paragraph at lines 1340--1348 \OT1/cmtt/m/n/10 within the absolute tolerence specified by the input argument abs[]tol of any of the Overfull \hbox (7.37616pt too wide) in paragraph at lines 1340--1348 \OT1/cmtt/m/n/10 valid values, the output LOGICAL flag valid is set to .TRUE. O therwise, this flag is [158] Overfull \hbox (11.15611pt too wide) in paragraph at lines 1381--1395 \OT1/cmtt/m/n/10 The subroutine Sort[]() uses a list of sorting keys defined by the input List argument Overfull \hbox (0.6562pt too wide) in paragraph at lines 1381--1395 \OT1/cmtt/m/n/10 key[]list, searches for the appropriate integer or real attrib utes referenced by the Overfull \hbox (11.15611pt too wide) in paragraph at lines 1381--1395 \OT1/cmtt/m/n/10 items in key[]list ( that is, it identifies the appropriate en tries in sMat%data%iList Overfull \hbox (7.37616pt too wide) in paragraph at lines 1381--1395 \OT1/cmtt/m/n/10 and sMat%data%rList), and then uses these keys to generate an index permutation perm Overfull \hbox (17.87607pt too wide) in paragraph at lines 1381--1395 \OT1/cmtt/m/n/10 that will put the nonzero matrix entries of stored in sMat%dat a in lexicographic order Overfull \hbox (20.18602pt too wide) in paragraph at lines 1381--1395 \OT1/cmtt/m/n/10 as defined by key[]ist (the ordering in key[]list being from l eft to right. The optional Overfull \hbox (7.37616pt too wide) in paragraph at lines 1381--1395 \OT1/cmtt/m/n/10 LOGICAL array input argument descend specifies whether or not to sort by each key in Overfull \hbox (38.87589pt too wide) in paragraph at lines 1381--1395 \OT1/cmtt/m/it/10 descending \OT1/cmtt/m/n/10 order or \OT1/cmtt/m/it/10 ascend ing \OT1/cmtt/m/n/10 order. Entries in descend that have value .TRUE. correspon d Overfull \hbox (2.1262pt too wide) in paragraph at lines 1381--1395 \OT1/cmtt/m/n/10 to a sort by the corresponding key in descending order. If the argument descend is [159] Overfull \hbox (16.40607pt too wide) in paragraph at lines 1427--1431 \OT1/cmtt/m/n/10 The subroutine Permute[]() uses an input index permutation per m to re-order the entries Overfull \hbox (12.62611pt too wide) in paragraph at lines 1427--1431 \OT1/cmtt/m/n/10 of the SparseMatrix argument sMat. The index permutation perm is generated using the Overfull \hbox (0.6562pt too wide) in paragraph at lines 1460--1474 \OT1/cmtt/m/n/10 The subroutine SortPermute[]() uses a list of sorting keys def ined by the input List Overfull \hbox (11.15611pt too wide) in paragraph at lines 1460--1474 \OT1/cmtt/m/n/10 argument key[]list, searches for the appropriate integer or re al attributes referenced Overfull \hbox (42.65584pt too wide) in paragraph at lines 1460--1474 \OT1/cmtt/m/n/10 by the items in key[]ist ( that is, it identifies the appropri ate entries in sMat%data%iList Overfull \hbox (7.37616pt too wide) in paragraph at lines 1460--1474 \OT1/cmtt/m/n/10 and sMat%data%rList), and then uses these keys to generate an index permutation that Overfull \hbox (7.37616pt too wide) in paragraph at lines 1460--1474 \OT1/cmtt/m/n/10 will put the nonzero matrix entries of stored in sMat%data in lexicographic order as Overfull \hbox (9.68611pt too wide) in paragraph at lines 1460--1474 \OT1/cmtt/m/n/10 defined by key[]list (the ordering in key[]list being from lef t to right. The optional Overfull \hbox (7.37616pt too wide) in paragraph at lines 1460--1474 \OT1/cmtt/m/n/10 LOGICAL array input argument descend specifies whether or not to sort by each key in Overfull \hbox (38.87589pt too wide) in paragraph at lines 1460--1474 \OT1/cmtt/m/it/10 descending \OT1/cmtt/m/n/10 order or \OT1/cmtt/m/it/10 ascend ing \OT1/cmtt/m/n/10 order. Entries in descend that have value .TRUE. correspon d Overfull \hbox (2.1262pt too wide) in paragraph at lines 1460--1474 \OT1/cmtt/m/n/10 to a sort by the corresponding key in descending order. If the argument descend is Overfull \hbox (7.37616pt too wide) in paragraph at lines 1475--1477 []\OT1/cmtt/m/n/10 Once this index permutation is created, it is applied to re- order the entries of the [160]) [161] (./texsrc/m_SparseMatrixComms.tex Overfull \hbox (17.56091pt too wide) in paragraph at lines 48--48 \OT1/cmr/bx/n/12 com-mu-ni-ca-tions meth-ods. (Source File: m[]SparseMatrixComm s.F90) Overfull \hbox (23.12602pt too wide) in paragraph at lines 52--58 \OT1/cmtt/m/n/10 The SparseMatrix datatype provides sparse matrix storage for t he parallel matrix-vector Overfull \hbox (38.67459pt too wide) in paragraph at lines 52--58 \OT1/cmtt/m/n/10 multiplication $\OT1/cmr/bx/n/10 y \OT1/cmr/m/n/10 = \OT1/cmr/ bx/n/10 Mx$\OT1/cmtt/m/n/10 . This module provides communications services for the SparseMatrix Overfull \hbox (65.12566pt too wide) in paragraph at lines 52--58 \OT1/cmtt/m/n/10 type. These services include scattering matrix elements based on row or column decompositions, Overfull \hbox (2.64018pt too wide) in paragraph at lines 59--63 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 These routines will not communicate t he vector portion of a SparseMatrix, if Overfull \hbox (65.12566pt too wide) in paragraph at lines 59--63 \OT1/cmtt/m/n/10 it has been initialized. A WARNING will be issued in most case s. In general, do communication Overfull \hbox (7.37616pt too wide) in paragraph at lines 103--111 \OT1/cmtt/m/n/10 This routine scatters the input SparseMatrix argument GsMat (v alid only on the root) Overfull \hbox (7.37616pt too wide) in paragraph at lines 103--111 \OT1/cmtt/m/n/10 to a distributed SparseMatrix variable LsMat across all the pr ocesses present on the Overfull \hbox (12.62611pt too wide) in paragraph at lines 103--111 \OT1/cmtt/m/n/10 communicator associated with the integer handle comm. The deco mposition defining the Overfull \hbox (28.37598pt too wide) in paragraph at lines 103--111 \OT1/cmtt/m/n/10 scatter is supplied by the input GlobalSegMap argument columnG SMap. The optional output Overfull \hbox (28.37598pt too wide) in paragraph at lines 103--111 \OT1/cmtt/m/n/10 INTEGER flag stat signifies a successful (failed) operation if it is returned with value Overfull \hbox (7.89014pt too wide) in paragraph at lines 112--115 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine returns an allocated Spa rseMatrix variable LsMat. The user must Overfull \hbox (0.6562pt too wide) in paragraph at lines 112--115 \OT1/cmtt/m/n/10 destroy this variable when it is no longer needed by invoking SparseMatrix[]Clean(). [162] Overfull \hbox (7.37616pt too wide) in paragraph at lines 166--174 \OT1/cmtt/m/n/10 This routine scatters the input SparseMatrix argument GsMat (v alid only on the root) Overfull \hbox (7.37616pt too wide) in paragraph at lines 166--174 \OT1/cmtt/m/n/10 to a distributed SparseMatrix variable LsMat across all the pr ocesses present on the Overfull \hbox (12.62611pt too wide) in paragraph at lines 166--174 \OT1/cmtt/m/n/10 communicator associated with the integer handle comm. The deco mposition defining the Overfull \hbox (7.37616pt too wide) in paragraph at lines 166--174 \OT1/cmtt/m/n/10 scatter is supplied by the input GlobalSegMap argument rowGSMa p. The output integer Overfull \hbox (12.62611pt too wide) in paragraph at lines 166--174 \OT1/cmtt/m/n/10 flag stat signifies a successful (failed) operation if it is r eturned with value zero Overfull \hbox (7.89014pt too wide) in paragraph at lines 175--178 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine returns an allocated Spa rseMatrix variable LsMat. The user must Overfull \hbox (0.6562pt too wide) in paragraph at lines 175--178 \OT1/cmtt/m/n/10 destroy this variable when it is no longer needed by invoking SparseMatrix[]Clean(). [163] Overfull \hbox (38.87589pt too wide) in paragraph at lines 229--235 \OT1/cmtt/m/n/10 This routine gathers the input distributed SparseMatrix argume nt LsMat to the SparseMatrix Overfull \hbox (12.62611pt too wide) in paragraph at lines 229--235 \OT1/cmtt/m/n/10 variable GsMat on the root. The decomposition defining the gat her is supplied by the Overfull \hbox (7.37616pt too wide) in paragraph at lines 229--235 \OT1/cmtt/m/n/10 input GlobalMap argument GMap. The status flag stat has value zero (nonzero) if the [164] Overfull \hbox (7.89014pt too wide) in paragraph at lines 236--239 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine returns an allocated Spa rseMatrix variable GsMat. The user must Overfull \hbox (0.6562pt too wide) in paragraph at lines 236--239 \OT1/cmtt/m/n/10 destroy this variable when it is no longer needed by invoking SparseMatrix[]Clean(). Overfull \hbox (38.87589pt too wide) in paragraph at lines 278--284 \OT1/cmtt/m/n/10 This routine gathers the input distributed SparseMatrix argume nt LsMat to the SparseMatrix Overfull \hbox (12.62611pt too wide) in paragraph at lines 278--284 \OT1/cmtt/m/n/10 variable GsMat on the root. The decomposition defining the gat her is supplied by the Overfull \hbox (7.37616pt too wide) in paragraph at lines 278--284 \OT1/cmtt/m/n/10 input GlobalSegMap argument GSMap. The status flag stat has va lue zero (nonzero) if Overfull \hbox (7.89014pt too wide) in paragraph at lines 285--288 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine returns an allocated Spa rseMatrix variable GsMat. The user must Overfull \hbox (0.6562pt too wide) in paragraph at lines 285--288 \OT1/cmtt/m/n/10 destroy this variable when it is no longer needed by invoking SparseMatrix[]Clean(). [165] Overfull \hbox (12.62611pt too wide) in paragraph at lines 325--329 \OT1/cmtt/m/n/10 This routine broadcasts the SparseMatrix argument sMat from th e root to all processes Overfull \hbox (23.12602pt too wide) in paragraph at lines 325--329 \OT1/cmtt/m/n/10 on the communicator associated with the communicator handle co mm. The status flag stat Overfull \hbox (2.64018pt too wide) in paragraph at lines 330--333 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine returns an allocated Spa rseMatrix variable sMat. The user must Overfull \hbox (0.6562pt too wide) in paragraph at lines 330--333 \OT1/cmtt/m/n/10 destroy this variable when it is no longer needed by invoking SparseMatrix[]Clean(). Overfull \hbox (60.38968pt too wide) in paragraph at lines 334--336 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine will exit with an error if the vector portion of sMat has been initialized [166]) [167] (./texsrc/m_SparseMatrixDecomp.tex Overfull \hbox (7.56235pt too wide) in paragraph at lines 48--48 []\OT1/cmr/bx/n/12 Fortran: Mod-ule In-ter-face m[]SparseMatrixDecomp -- Par-al -lel sparse Overfull \hbox (0.43173pt too wide) in paragraph at lines 48--48 \OT1/cmr/bx/n/12 ma-trix de-com-po-si-tion. (Source File: m[]SparseMatrixDecomp .F90) Overfull \hbox (23.12602pt too wide) in paragraph at lines 52--61 \OT1/cmtt/m/n/10 The SparseMatrix datatype provides sparse matrix storage for t he parallel matrix-vector Overfull \hbox (1.92491pt too wide) in paragraph at lines 52--61 \OT1/cmtt/m/n/10 multiplication $\OT1/cmr/bx/n/10 y \OT1/cmr/m/n/10 = \OT1/cmr/ bx/n/10 Mx$\OT1/cmtt/m/n/10 . This module provides services to create decomposi tions for Overfull \hbox (33.62593pt too wide) in paragraph at lines 52--61 \OT1/cmtt/m/n/10 the SparseMatrix. The matrix decompositions available are row and column decompositions. Overfull \hbox (17.87607pt too wide) in paragraph at lines 52--61 \OT1/cmtt/m/n/10 They are generated by invoking the appropriate routine in this module, and passing the Overfull \hbox (17.87607pt too wide) in paragraph at lines 52--61 \OT1/cmtt/m/n/10 corresponding \OT1/cmtt/m/it/10 vector \OT1/cmtt/m/n/10 decomp osition. For a row (column) decomposition, one invokes the Overfull \hbox (9.01508pt too wide) in paragraph at lines 52--61 \OT1/cmtt/m/n/10 routine ByRow() (ByColumn()), passing the domain decomposition for the vector \OT1/cmr/bx/n/10 y \OT1/cmtt/m/n/10 (\OT1/cmr/bx/n/10 x\OT1/cmt t/m/n/10 ). Overfull \hbox (9.50114pt too wide) in paragraph at lines 92--92 []\OT1/cmr/bx/n/12 ByColumnGSMap[] - Gen-er-ate Row-based Glob-alSegMap for Spa rse- [168] Underfull \hbox (badness 10000) in paragraph at lines 139--140 Overfull \hbox (12.62611pt too wide) in paragraph at lines 141--150 []\OT1/cmtt/m/n/10 This routine is invoked from all processes on the communicat or comm to create from an Overfull \hbox (50.19525pt too wide) in paragraph at lines 141--150 \OT1/cmtt/m/n/10 input SparseMatrix sMat (valid only on the root process) and a n input \OT1/cmr/bx/n/10 x\OT1/cmtt/m/n/10 -vector decomposition Overfull \hbox (7.37616pt too wide) in paragraph at lines 141--150 \OT1/cmtt/m/n/10 described by the GlobalSegMap argument xGSMap (valid at least on the root) to create Overfull \hbox (2.1262pt too wide) in paragraph at lines 141--150 \OT1/cmtt/m/n/10 an output GlobalSegMap decomposition of the matrix elements sM GSMap, which is valid Overfull \hbox (44.12584pt too wide) in paragraph at lines 141--150 \OT1/cmtt/m/n/10 on all processes on the communicator. This matrix GlobalSegMap describes the corresponding Overfull \hbox (15.19562pt too wide) in paragraph at lines 151--153 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The argument sMat is returned sorted in lexicographic order by column and row. [169] [170] Underfull \hbox (badness 10000) in paragraph at lines 223--224 Overfull \hbox (12.62611pt too wide) in paragraph at lines 225--234 []\OT1/cmtt/m/n/10 This routine is invoked from all processes on the communicat or comm to create from an Overfull \hbox (50.19525pt too wide) in paragraph at lines 225--234 \OT1/cmtt/m/n/10 input SparseMatrix sMat (valid only on the root process) and a n input \OT1/cmr/bx/n/10 y\OT1/cmtt/m/n/10 -vector decomposition Overfull \hbox (7.37616pt too wide) in paragraph at lines 225--234 \OT1/cmtt/m/n/10 described by the GlobalSegMap argument yGSMap (valid at least on the root) to create Overfull \hbox (2.1262pt too wide) in paragraph at lines 225--234 \OT1/cmtt/m/n/10 an output GlobalSegMap decomposition of the matrix elements sM GSMap, which is valid Overfull \hbox (44.12584pt too wide) in paragraph at lines 225--234 \OT1/cmtt/m/n/10 on all processes on the communicator. This matrix GlobalSegMap describes the corresponding Overfull \hbox (15.19562pt too wide) in paragraph at lines 235--237 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The argument sMat is returned sorted in lexicographic order by row and column. Underfull \hbox (badness 10000) in paragraph at lines 280--281 [171] Overfull \hbox (11.15611pt too wide) in paragraph at lines 282--287 []\OT1/cmtt/m/n/10 This routine examins an input list of num[]elements process ID locations stored in the Overfull \hbox (14.93607pt too wide) in paragraph at lines 282--287 \OT1/cmtt/m/n/10 array element[]pe[]locs, counts the number of contiguous segme nts nsegs, and returns the Overfull \hbox (72.68556pt too wide) in paragraph at lines 282--287 \OT1/cmtt/m/n/10 segment start index, length, and process ID location in the ar rays seg[]starts(:), seg[]lengths(:), Overfull \hbox (15.19562pt too wide) in paragraph at lines 288--290 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The argument sMat is returned sorted in lexicographic order by row and column. ) [172] (./texsrc/m_SparseMatrixToMaps.tex Overfull \hbox (7.37616pt too wide) in paragraph at lines 52--61 \OT1/cmtt/m/n/10 The SparseMatrix provides consolidated (on one process) or dis tributed sparse matrix Overfull \hbox (23.12602pt too wide) in paragraph at lines 52--61 \OT1/cmtt/m/n/10 In performing parallel matrix-vector multiplication, one has n umerous options regarding Overfull \hbox (46.18146pt too wide) in paragraph at lines 52--61 \OT1/cmtt/m/n/10 the decomposition of the matrix \OT1/cmr/bx/n/10 M\OT1/cmtt/m/ n/10 , and the vectors \OT1/cmr/bx/n/10 y \OT1/cmtt/m/n/10 and \OT1/cmr/bx/n/10 x\OT1/cmtt/m/n/10 . This module provides services Overfull \hbox (2.1262pt too wide) in paragraph at lines 52--61 \OT1/cmtt/m/n/10 to generate mct mapping components---the GlobalMap and GlobalS egMap for the vectors Overfull \hbox (44.12584pt too wide) in paragraph at lines 93--97 \OT1/cmtt/m/n/10 Given an input SparseMatrix argument this routine generates an output GlobalSegMap variable Overfull \hbox (2.94566pt too wide) in paragraph at lines 93--97 \OT1/cmtt/m/n/10 xGSMap, which describes the domain decomposition of the vector \OT1/cmr/bx/n/10 x \OT1/cmtt/m/n/10 in the distributed [173] Overfull \hbox (44.12584pt too wide) in paragraph at lines 146--151 \OT1/cmtt/m/n/10 Given an input SparseMatrix argument this routine generates an output GlobalSegMap variable Overfull \hbox (2.94566pt too wide) in paragraph at lines 146--151 \OT1/cmtt/m/n/10 yGSMap, which describes the domain decomposition of the vector \OT1/cmr/bx/n/10 y \OT1/cmtt/m/n/10 in the distributed [174] Overfull \hbox (5.90616pt too wide) in paragraph at lines 200--205 \OT1/cmtt/m/n/10 This routine examines an input INTEGER list numbers indices (o f length num[]indices), Overfull \hbox (23.12602pt too wide) in paragraph at lines 200--205 \OT1/cmtt/m/n/10 determines the number of segments of consecutive numbers (or r uns) nsegs. The starting Overfull \hbox (7.37616pt too wide) in paragraph at lines 200--205 \OT1/cmtt/m/n/10 indices for each run, and their lengths are returned in the IN TEGER arrays starts(:) [175]) [176] (./texsrc/m_SparseMatrixPlus.tex Overfull \hbox (16.029pt too wide) in paragraph at lines 48--48 \OT1/cmr/bx/n/12 Matrix-Vector Mul-ti-pli-ca-tion (Source File: m[]SparseMatrix Plus.F90) Overfull \hbox (12.62611pt too wide) in paragraph at lines 52--58 \OT1/cmtt/m/n/10 Matrix-vector multiplication is one of the MCT's core services , and is used primarily Overfull \hbox (7.43265pt too wide) in paragraph at lines 52--58 \OT1/cmtt/m/n/10 for the interpolation of data fields from one physical grid to another. Let $\OT1/cmr/bx/n/10 x \OMS/cmsy/m/n/10 2 <[]$ Overfull \hbox (23.12602pt too wide) in paragraph at lines 61--66 []\OT1/cmtt/m/n/10 Within MCT, the SparseMatrix data type is MCT's object for s toring sparse matrices such Overfull \hbox (19.11223pt too wide) in paragraph at lines 61--66 \OT1/cmtt/m/n/10 as \OT1/cmr/bx/n/10 M \OT1/cmtt/m/n/10 , and the AttrVect data type is MCT's field data storage object. That is, \OT1/cmr/bx/n/10 x \OT1/cmtt /m/n/10 and Overfull \hbox (2.1262pt too wide) in paragraph at lines 67--71 []\OT1/cmtt/m/n/10 For global address spaces (uniprocessor or shared-memory par allel), this picture of Overfull \hbox (28.37598pt too wide) in paragraph at lines 67--71 \OT1/cmtt/m/n/10 matrix-vector multiplication is sufficient. If one wishes to p erform \OT1/cmtt/m/it/10 distributed-memory Overfull \hbox (7.37616pt too wide) in paragraph at lines 67--71 \OT1/cmtt/m/it/10 parallel \OT1/cmtt/m/n/10 matrix-vector multiplication, howev er, in addition to computation, one must Overfull \hbox (1.29317pt too wide) in paragraph at lines 76--81 []\OT1/cmtt/m/n/10 Decompose \OT1/cmr/bx/n/10 M \OT1/cmtt/m/n/10 based on its \ OT1/cmtt/m/it/10 rows\OT1/cmtt/m/n/10 , and corresponding to the decomposition for the Overfull \hbox (45.50194pt too wide) in paragraph at lines 76--81 \OT1/cmtt/m/n/10 vector \OT1/cmr/bx/n/10 y\OT1/cmtt/m/n/10 . That is, if a give n process owns the $\OML/cmm/m/it/10 i[]$ \OT1/cmtt/m/n/10 element of \OT1/cmr/ bx/n/10 y\OT1/cmtt/m/n/10 , then all the elements Overfull \hbox (30.78677pt too wide) in paragraph at lines 76--81 \OT1/cmtt/m/n/10 of row $\OML/cmm/m/it/10 i$ \OT1/cmtt/m/n/10 of \OT1/cmr/bx/n/ 10 M \OT1/cmtt/m/n/10 also reside on this process. Then $\OT1/cmr/bx/n/10 y \OT 1/cmr/m/n/10 = \OT1/cmr/bx/n/10 Mx$ \OT1/cmtt/m/n/10 is implemented as follows: Overfull \hbox (6.70999pt too wide) in paragraph at lines 82--84 []\OT1/cmtt/m/n/10 Create an \OT1/cmtt/m/it/10 intermediate vector \OT1/cmr/bx/ n/10 x' \OT1/cmtt/m/n/10 that is the pre-image of the elements of \OT1/cmr/bx/n /10 y Overfull \hbox (22.87646pt too wide) in paragraph at lines 84--86 []\OT1/cmtt/m/n/10 Comunnicate with the appropriate processes on the local comm unicator to gather Overfull \hbox (17.04303pt too wide) in paragraph at lines 89--94 []\OT1/cmtt/m/n/10 Decompose \OT1/cmr/bx/n/10 M \OT1/cmtt/m/n/10 based on its \ OT1/cmtt/m/it/10 columns\OT1/cmtt/m/n/10 , and corresponding to the decompositi on for the Overfull \hbox (46.7473pt too wide) in paragraph at lines 89--94 \OT1/cmtt/m/n/10 vector \OT1/cmr/bx/n/10 x\OT1/cmtt/m/n/10 . That is, if a give n process owns the $\OML/cmm/m/it/10 j[]$ \OT1/cmtt/m/n/10 element of \OT1/cmr/ bx/n/10 x\OT1/cmtt/m/n/10 , then all the elements Overfull \hbox (0.53241pt too wide) in paragraph at lines 89--94 \OT1/cmtt/m/n/10 of column $\OML/cmm/m/it/10 j$ \OT1/cmtt/m/n/10 of \OT1/cmr/bx /n/10 M \OT1/cmtt/m/n/10 also reside on this process. Then $\OT1/cmr/bx/n/10 y \OT1/cmr/m/n/10 = \OT1/cmr/bx/n/10 Mx$ \OT1/cmtt/m/n/10 is implemented as Overfull \hbox (43.45967pt too wide) in paragraph at lines 95--97 []\OT1/cmtt/m/n/10 Create an \OT1/cmtt/m/it/10 intermediate vector \OT1/cmr/bx/ n/10 y' \OT1/cmtt/m/n/10 that holds \OT1/cmtt/m/it/10 partial sums \OT1/cmtt/m/ n/10 of elements of \OT1/cmr/bx/n/10 y \OT1/cmtt/m/n/10 computed Overfull \hbox (16.39044pt too wide) in paragraph at lines 98--101 []\OT1/cmtt/m/n/10 Perform communications to route elements of \OT1/cmr/bx/n/10 y' \OT1/cmtt/m/n/10 to their eventual destinations Overfull \hbox (22.29298pt too wide) in paragraph at lines 103--106 []\OT1/cmtt/m/n/10 Decompose \OT1/cmr/bx/n/10 M \OT1/cmtt/m/n/10 based on some arbitrary, user-supplied scheme. This will necessitate Overfull \hbox (7.43228pt too wide) in paragraph at lines 107--110 []\OT1/cmtt/m/n/10 Create \OT1/cmtt/m/it/10 intermediate vectors \OT1/cmr/bx/n/ 10 x' \OT1/cmtt/m/n/10 and \OT1/cmr/bx/n/10 y'\OT1/cmtt/m/n/10 . The numbers of elements in \OT1/cmr/bx/n/10 x' \OT1/cmtt/m/n/10 and \OT1/cmr/bx/n/10 y' Overfull \hbox (28.54312pt too wide) in paragraph at lines 107--110 \OT1/cmtt/m/n/10 are based \OT1/cmr/bx/n/10 M\OT1/cmtt/m/n/10 , specifically it s numbers of \OT1/cmtt/m/it/10 distinct \OT1/cmtt/m/n/10 row and column index v alues, Overfull \hbox (22.87646pt too wide) in paragraph at lines 110--112 []\OT1/cmtt/m/n/10 Comunnicate with the appropriate processes on the local comm unicator to gather Overfull \hbox (16.39044pt too wide) in paragraph at lines 113--116 []\OT1/cmtt/m/n/10 Perform communications to route elements of \OT1/cmr/bx/n/10 y' \OT1/cmtt/m/n/10 to their eventual destinations Overfull \hbox (17.87607pt too wide) in paragraph at lines 120--122 []\OT1/cmtt/m/n/10 These operations require information about many aspects of t he multiplication process. Overfull \hbox (8.76552pt too wide) in paragraph at lines 125--127 []\OT1/cmtt/m/n/10 Distributed in \OT1/cmr/bx/n/10 x\OT1/cmtt/m/n/10 , purely d ata local in \OT1/cmr/bx/n/10 y\OT1/cmtt/m/n/10 , labeled by the public data me mber Overfull \hbox (24.51538pt too wide) in paragraph at lines 127--129 []\OT1/cmtt/m/n/10 Purely data local \OT1/cmr/bx/n/10 x\OT1/cmtt/m/n/10 , distr ibuted in \OT1/cmr/bx/n/10 y\OT1/cmtt/m/n/10 , labeled by the public data membe r Yonly [177] Overfull \hbox (59.8757pt too wide) in paragraph at lines 138--141 []\OT1/cmtt/m/n/10 In MCT, the above data are stored in a \OT1/cmtt/m/it/10 mas ter \OT1/cmtt/m/n/10 class for SparseMatrix- AttrVect multiplication. Overfull \hbox (12.62611pt too wide) in paragraph at lines 142--145 []\OT1/cmtt/m/n/10 This module contains the definition of the SparseMatrixPlus, and a variety of methods Overfull \hbox (33.62593pt too wide) in paragraph at lines 142--145 \OT1/cmtt/m/n/10 to support it. These include initialization, destruction, quer y, and data import/export. [178] Overfull \hbox (6.12642pt too wide) in paragraph at lines 220--224 []\OT1/cmtt/m/n/10 A SparseMatrix (the input argument sMat), whose elements all reside only on the Overfull \hbox (11.37637pt too wide) in paragraph at lines 220--224 \OT1/cmtt/m/n/10 root process of the MPI communicator with an integer handle de fined by the input Overfull \hbox (0.87646pt too wide) in paragraph at lines 224--227 []\OT1/cmtt/m/n/10 A GlobalSegMap (the input argument xGSMap) describing the do main decomposition Overfull \hbox (0.87646pt too wide) in paragraph at lines 227--230 []\OT1/cmtt/m/n/10 A GlobalSegMap (the input argument yGSMap) describing the do main decomposition Overfull \hbox (0.87646pt too wide) in paragraph at lines 230--235 []\OT1/cmtt/m/n/10 The matrix-vector multiplication parallelization strategy. T his is set by the Overfull \hbox (11.37637pt too wide) in paragraph at lines 230--235 \OT1/cmtt/m/n/10 input CHARACTER argument strategy, which must have value corre sponding to one of Overfull \hbox (32.37619pt too wide) in paragraph at lines 230--235 \OT1/cmtt/m/n/10 the following public data members defined in the declaration s ection of this module. Overfull \hbox (38.87589pt too wide) in paragraph at lines 236--238 \OT1/cmtt/m/n/10 The optional argument Tag can be used to set the tag value use d in the call to Rearranger. [179] Overfull \hbox (58.62596pt too wide) in paragraph at lines 304--308 []\OT1/cmtt/m/n/10 A SparseMatrix (the input argument sMat), whose elements hav e previously been destributed Overfull \hbox (6.12642pt too wide) in paragraph at lines 304--308 \OT1/cmtt/m/n/10 across the MPI communicator with an integer handle defined by the input INTEGER [180] Overfull \hbox (0.87646pt too wide) in paragraph at lines 308--311 []\OT1/cmtt/m/n/10 A GlobalSegMap (the input argument xGSMap) describing the do main decomposition Overfull \hbox (0.87646pt too wide) in paragraph at lines 311--314 []\OT1/cmtt/m/n/10 A GlobalSegMap (the input argument yGSMap) describing the do main decomposition Overfull \hbox (12.62611pt too wide) in paragraph at lines 315--318 \OT1/cmtt/m/n/10 The other input arguments required by this routine are the INT EGER arguments root and Overfull \hbox (17.87607pt too wide) in paragraph at lines 315--318 \OT1/cmtt/m/n/10 ComponentID, which define the communicator root ID and MCT com ponent ID, respectively. [181] Overfull \hbox (33.62593pt too wide) in paragraph at lines 381--384 \OT1/cmtt/m/n/10 This routine will initialize the parts of the SparseMatrix in the SparseMatrixPlus object Overfull \hbox (49.3758pt too wide) in paragraph at lines 407--416 \OT1/cmtt/m/n/10 This routine deallocates all allocated memory belonging to the input/output SparseMatrixPlus Overfull \hbox (17.87607pt too wide) in paragraph at lines 407--416 \OT1/cmtt/m/n/10 argument SMatP, and sets to zero its integer components descri bing intermediate vector Overfull \hbox (49.3758pt too wide) in paragraph at lines 407--416 \OT1/cmtt/m/n/10 length, and sets its LOGICAL flag signifying initialization to .FALSE. The success (failure) Overfull \hbox (2.1262pt too wide) in paragraph at lines 407--416 \OT1/cmtt/m/n/10 of this operation is signified by the zero (non-zero) value of the optional INTEGER Overfull \hbox (2.1262pt too wide) in paragraph at lines 407--416 \OT1/cmtt/m/n/10 output argument status. If the user does supply status when in voking this routine, [182] Overfull \hbox (38.87589pt too wide) in paragraph at lines 455--460 \OT1/cmtt/m/n/10 This LOGICAL query function tells the user if the input Sparse MatrixPlus argument sMatPlus Overfull \hbox (16.40607pt too wide) in paragraph at lines 455--460 \OT1/cmtt/m/n/10 has been initialized. The return value of initialized[] is .TR UE. if sMatPlus has been Overfull \hbox (49.3758pt too wide) in paragraph at lines 489--492 \OT1/cmtt/m/n/10 This query subroutine returns the parallelization strategy set in the input SparseMatrixPlus Overfull \hbox (23.12602pt too wide) in paragraph at lines 489--492 \OT1/cmtt/m/n/10 argument sMatPlus. The result is returned in the output CHARAC TER argument StratChars. [183]) [184] (./texsrc/m_MatAttrVectMul.tex Overfull \hbox (19.93169pt too wide) in paragraph at lines 55--66 \OT1/cmtt/m/n/10 where the vectors \OT1/cmr/bx/n/10 x \OT1/cmtt/m/n/10 and \OT1 /cmr/bx/n/10 y \OT1/cmtt/m/n/10 are stored using the MCT AttrVect datatype, and \OT1/cmr/bx/n/10 M \OT1/cmtt/m/n/10 is stored Overfull \hbox (12.62611pt too wide) in paragraph at lines 55--66 \OT1/cmtt/m/n/10 using either the MCT SparseMatrix or SparseMatrixPlus type. Th e SparseMatrix type is Overfull \hbox (2.54291pt too wide) in paragraph at lines 55--66 \OT1/cmtt/m/n/10 used to represent \OT1/cmr/bx/n/10 M \OT1/cmtt/m/n/10 if the m ultiplication process is purely data-local (e.g., in a Overfull \hbox (2.1262pt too wide) in paragraph at lines 55--66 \OT1/cmtt/m/n/10 global address space, or if the process has been rendered emba rrasingly parallel by Overfull \hbox (12.62611pt too wide) in paragraph at lines 55--66 \OT1/cmtt/m/n/10 earlier or subsequent vector data redistributions). If the mul tiplication process is Overfull \hbox (7.37616pt too wide) in paragraph at lines 55--66 \OT1/cmtt/m/n/10 to be explicitly distributed-memory parallel, then the SparseM atrixPlus type is used Overfull \hbox (28.79268pt too wide) in paragraph at lines 55--66 \OT1/cmtt/m/n/10 to store the elements of \OT1/cmr/bx/n/10 M \OT1/cmtt/m/n/10 a nd all information needed to coordinate data redistribution Overfull \hbox (10.93184pt too wide) in paragraph at lines 67--70 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The matrix-vector multiplication rout ines in this module process only the \OT1/cmr/bx/n/10 real Overfull \hbox (24.76494pt too wide) in paragraph at lines 67--70 \OT1/cmtt/m/n/10 attributes of the AttrVect arguments corresponding to \OT1/cmr /bx/n/10 x \OT1/cmtt/m/n/10 and \OT1/cmr/bx/n/10 y\OT1/cmtt/m/n/10 . They ignor e the integer Overfull \hbox (20.18602pt too wide) in paragraph at lines 105--108 \OT1/cmtt/m/n/10 The sparse matrix-vector multiplication routine sMatAvMult[]Da taLocal[]() operates on the Overfull \hbox (23.12602pt too wide) in paragraph at lines 105--108 \OT1/cmtt/m/n/10 assumption of total data locality, which is equivalent to the following two conditions: Overfull \hbox (37.62614pt too wide) in paragraph at lines 109--112 []\OT1/cmtt/m/n/10 The input AttrVect xAV contains all the values referenced by the local column indices Overfull \hbox (27.12624pt too wide) in paragraph at lines 112--115 []\OT1/cmtt/m/n/10 The output AttrVect yAV contains all the values referenced b y the local row indices Overfull \hbox (2.1262pt too wide) in paragraph at lines 116--119 \OT1/cmtt/m/n/10 By default, the multiplication occurs for each of the common R EAL attributes shared Overfull \hbox (23.12602pt too wide) in paragraph at lines 116--119 \OT1/cmtt/m/n/10 by xAV and yAV. This routine is capable of cross-indexing the attributes and performing [185] Overfull \hbox (33.62593pt too wide) in paragraph at lines 120--123 []\OT1/cmtt/m/n/10 If the optional argument rList is present, only the attribut es listed will be multiplied. Overfull \hbox (23.12602pt too wide) in paragraph at lines 120--123 \OT1/cmtt/m/n/10 If the attributes have different names in yAV, the optional Tr List argument can be used Overfull \hbox (12.62611pt too wide) in paragraph at lines 124--128 []\OT1/cmtt/m/n/10 If the optional argument Vector is present and true, the vec tor architecture-friendly [186] Overfull \hbox (26.0011pt too wide) in paragraph at lines 198--209 \OT1/cmr/bx/n/10 Mx$\OT1/cmtt/m/n/10 , where \OT1/cmr/bx/n/10 y \OT1/cmtt/m/n/1 0 and \OT1/cmr/bx/n/10 x \OT1/cmtt/m/n/10 are represented by the AttrVect argum ents yAV and xAV, respectively. Overfull \hbox (2.54291pt too wide) in paragraph at lines 198--209 \OT1/cmtt/m/n/10 The matrix \OT1/cmr/bx/n/10 M \OT1/cmtt/m/n/10 is stored in th e input SparseMatrixPlus argument sMatPlus, which also Overfull \hbox (23.12602pt too wide) in paragraph at lines 198--209 \OT1/cmtt/m/n/10 contains all the information needed to coordinate the communic ations required to gather Overfull \hbox (2.1262pt too wide) in paragraph at lines 198--209 \OT1/cmtt/m/n/10 intermediate vectors used in the multiplication process, and t o reduce partial sums Overfull \hbox (28.37598pt too wide) in paragraph at lines 198--209 \OT1/cmtt/m/n/10 as needed. By default, the multiplication occurs for each of t he common REAL attributes Overfull \hbox (2.1262pt too wide) in paragraph at lines 198--209 \OT1/cmtt/m/n/10 shared by xAV and yAV. This routine is capable of cross-indexi ng the attributes and Overfull \hbox (33.62593pt too wide) in paragraph at lines 210--213 []\OT1/cmtt/m/n/10 If the optional argument rList is present, only the attribut es listed will be multiplied. Overfull \hbox (23.12602pt too wide) in paragraph at lines 210--213 \OT1/cmtt/m/n/10 If the attributes have different names in yAV, the optional Tr List argument can be used Overfull \hbox (12.62611pt too wide) in paragraph at lines 214--218 []\OT1/cmtt/m/n/10 If the optional argument Vector is present and true, the vec tor architecture-friendly Overfull \hbox (38.87589pt too wide) in paragraph at lines 214--218 \OT1/cmtt/m/n/10 portions of this routine will be invoked. It will also cause t he vector parts of sMatPlus [187]) [188] (./texsrc/m_SpatialIntegral.tex Overfull \hbox (28.37598pt too wide) in paragraph at lines 51--55 \OT1/cmtt/m/n/10 This module provides spatial integration and averaging service s for the MCT. For a field Overfull \hbox (6.89043pt too wide) in paragraph at lines 51--55 \OT1/cmr/m/n/10 ^^H$ \OT1/cmtt/m/n/10 sampled at a point $\OT1/cmr/bx/n/10 x$ \ OT1/cmtt/m/n/10 in some multidimensional domain $\OT1/cmr/m/n/10 $\OT1/cmtt/m/n/10 , the integral $\OML/cmm/m/it/10 I$ \OT1/cmtt/m/n/10 of $\OT1 /cmr/m/n/10 ^^H(\OT1/cmr/bx/n/10 x\OT1/cmr/m/n/10 )$ \OT1/cmtt/m/n/10 is Overfull \hbox (17.87607pt too wide) in paragraph at lines 58--61 \OT1/cmtt/m/n/10 Since the AttrVect represents a discretized field, the integra ls above are implemented Overfull \hbox (29.02492pt too wide) in paragraph at lines 64--69 \OT1/cmtt/m/n/10 where $\OML/cmm/m/it/10 N$ \OT1/cmtt/m/n/10 is the number of p hysical locations, $\OT1/cmr/m/n/10 ^^H[]$ \OT1/cmtt/m/n/10 is the value of the field $\OT1/cmr/m/n/10 ^^H$ \OT1/cmtt/m/n/10 at location Overfull \hbox (24.4562pt too wide) in paragraph at lines 64--69 \OML/cmm/m/it/10 i$\OT1/cmtt/m/n/10 , and $\OT1/cmr/m/n/10 ^^A []$ \OT1/cmtt/m/n/10 is the spatial weight (lenghth element, cross-sectional ar ea element, volume Overfull \hbox (33.62593pt too wide) in paragraph at lines 70--85 []\OT1/cmtt/m/n/10 MCT extends the concept of integrals and area/volume average s to include \OT1/cmtt/m/it/10 masked \OT1/cmtt/m/n/10 integrals Overfull \hbox (2.41795pt too wide) in paragraph at lines 70--85 \OT1/cmtt/m/n/10 and averages. MCT recognizes both \OT1/cmtt/m/it/10 integer \O T1/cmtt/m/n/10 and \OT1/cmtt/m/it/10 real \OT1/cmtt/m/n/10 masks. An integer ma sk $\OML/cmm/m/it/10 M$ \OT1/cmtt/m/n/10 is a Overfull \hbox (33.62593pt too wide) in paragraph at lines 70--85 \OT1/cmtt/m/n/10 vector of integers (one corresponding to each physical locatio n) with each element having Overfull \hbox (23.12602pt too wide) in paragraph at lines 70--85 \OT1/cmtt/m/n/10 value either zero or one. Integer masks are used to include/ex clude data from averages Overfull \hbox (17.87607pt too wide) in paragraph at lines 70--85 \OT1/cmtt/m/n/10 or integrals. For example, if one were to compute globally ave raged cloud amount over Overfull \hbox (1.87627pt too wide) in paragraph at lines 70--85 \OT1/cmtt/m/n/10 land (but not ocean nor sea-ice), one would assign a $\OT1/cmr /m/n/10 1$ \OT1/cmtt/m/n/10 to each location on the land Overfull \hbox (72.69518pt too wide) in paragraph at lines 70--85 \OT1/cmtt/m/n/10 and a $\OT1/cmr/m/n/10 0$ \OT1/cmtt/m/n/10 to each non-land lo cation. A \OT1/cmtt/m/it/10 real \OT1/cmtt/m/n/10 mask $\OML/cmm/m/it/10 F$ \OT 1/cmtt/m/n/10 is a vector of real numbers (one corresponding Overfull \hbox (7.37616pt too wide) in paragraph at lines 70--85 \OT1/cmtt/m/n/10 to each physical location) with each element having value with in the closed interval Overfull \hbox (16.87627pt too wide) in paragraph at lines 70--85 \OT1/cmr/m/n/10 [0\OML/cmm/m/it/10 ; \OT1/cmr/m/n/10 1]$\OT1/cmtt/m/n/10 . .Rea l masks are used to represent fractional area/volume coverage at a location Overfull \hbox (12.62611pt too wide) in paragraph at lines 70--85 \OT1/cmtt/m/n/10 by a given component model. For example, if one wishes to comp ute area averages over Overfull \hbox (2.1262pt too wide) in paragraph at lines 70--85 \OT1/cmtt/m/n/10 sea-ice, one must include the ice fraction present at each poi nt. Masked Integrals Overfull \hbox (12.62611pt too wide) in paragraph at lines 95--101 []\OT1/cmtt/m/n/10 All of the routines in this module assume field data is stor ed in an attribute vector Overfull \hbox (2.1262pt too wide) in paragraph at lines 95--101 \OT1/cmtt/m/n/10 (AttrVect), and the integration/averaging is performed only on the REAL attributes. Overfull \hbox (2.1262pt too wide) in paragraph at lines 95--101 \OT1/cmtt/m/n/10 Physical coordinate grid and mask information is assumed to be stored as attributes Overfull \hbox (12.62611pt too wide) in paragraph at lines 95--101 \OT1/cmtt/m/n/10 in either a GeneralGrid, or pre-combined into a single integer mask and a single real [189] [190] Overfull \hbox (12.62611pt too wide) in paragraph at lines 175--191 \OT1/cmtt/m/n/10 This routine computes spatial integrals of the REAL attributes of the REAL attributes Overfull \hbox (26.90598pt too wide) in paragraph at lines 175--191 \OT1/cmtt/m/n/10 of the input AttrVect argument inAv. SpatialIntegralRAttrGG[]( ) takes the input AttrVect Overfull \hbox (23.12602pt too wide) in paragraph at lines 175--191 \OT1/cmtt/m/n/10 argument inAv and computes the spatial integral using weights stored in the GeneralGrid Overfull \hbox (2.1262pt too wide) in paragraph at lines 175--191 \OT1/cmtt/m/n/10 argument GGrid and identified by the CHARACTER tag WeightTag. The integral of each Overfull \hbox (63.65565pt too wide) in paragraph at lines 175--191 \OT1/cmtt/m/n/10 REAL attribute is returned in the output AttrVect argument out Av. If SpatialIntegralRAttrGG[]() Overfull \hbox (17.87607pt too wide) in paragraph at lines 175--191 \OT1/cmtt/m/n/10 is invoked with the optional LOGICAL input argument SumWeights set as .TRUE., then the Overfull \hbox (12.62611pt too wide) in paragraph at lines 175--191 \OT1/cmtt/m/n/10 weights are also summed and stored in outAv (and can be refere nced with the attribute Overfull \hbox (0.6562pt too wide) in paragraph at lines 175--191 \OT1/cmtt/m/n/10 tag defined by the argumentWeightTag. If SpatialIntegralRAttrG G[]() is invoked with Overfull \hbox (12.62611pt too wide) in paragraph at lines 175--191 \OT1/cmtt/m/n/10 the optional INTEGER argument comm (a Fortran MPI communicator handle), the summation Overfull \hbox (2.1262pt too wide) in paragraph at lines 175--191 \OT1/cmtt/m/n/10 operations for the integral are completed on the local process , then reduced across Overfull \hbox (17.61229pt too wide) in paragraph at lines 192--196 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv and the GeneralGrid GGrid must Overfull \hbox (12.62611pt too wide) in paragraph at lines 192--196 \OT1/cmtt/m/n/10 be equal. That is, there must be a one-to-one correspondence b etween the field point Overfull \hbox (26.6422pt too wide) in paragraph at lines 197--201 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If SpatialIntegralRAttrGG[]() is inv oked with the optional LOGICAL input argument Overfull \hbox (2.1262pt too wide) in paragraph at lines 197--201 \OT1/cmtt/m/n/10 SumWeights set as .TRUE., then the value of WeightTag must not conflict with any of Overfull \hbox (7.11238pt too wide) in paragraph at lines 202--206 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect argument outAv i s an allocated data structure. The user Overfull \hbox (42.65584pt too wide) in paragraph at lines 202--206 \OT1/cmtt/m/n/10 must deallocate it using the routine AttrVect[]clean() when it is no longer needed. Failure [191] Overfull \hbox (2.1262pt too wide) in paragraph at lines 256--267 \OT1/cmtt/m/n/10 This routine computes spatial averages of the REAL attributes of the input AttrVect Overfull \hbox (0.6562pt too wide) in paragraph at lines 256--267 \OT1/cmtt/m/n/10 argument inAv. SpatialAverageRAttrGG[]() takes the input AttrV ect argument inAv and Overfull \hbox (2.1262pt too wide) in paragraph at lines 256--267 \OT1/cmtt/m/n/10 computes the spatial average using weights stored in the Gener alGrid argument GGrid Overfull \hbox (12.62611pt too wide) in paragraph at lines 256--267 \OT1/cmtt/m/n/10 and identified by the CHARACTER tag WeightTag. The average of each REAL attribute is Overfull \hbox (21.65602pt too wide) in paragraph at lines 256--267 \OT1/cmtt/m/n/10 returned in the output AttrVect argument outAv. If SpatialAver ageRAttrGG[]() is invoked Overfull \hbox (38.87589pt too wide) in paragraph at lines 256--267 \OT1/cmtt/m/n/10 with the optional INTEGER argument comm (a Fortran MPI communi cator handle), the summation Overfull \hbox (17.87607pt too wide) in paragraph at lines 256--267 \OT1/cmtt/m/n/10 operations for the average are completed on the local process, then reduced across the Overfull \hbox (17.61229pt too wide) in paragraph at lines 268--272 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv and the GeneralGrid GGrid must Overfull \hbox (12.62611pt too wide) in paragraph at lines 268--272 \OT1/cmtt/m/n/10 be equal. That is, there must be a one-to-one correspondence b etween the field point Overfull \hbox (7.11238pt too wide) in paragraph at lines 273--277 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect argument outAv i s an allocated data structure. The user Overfull \hbox (42.65584pt too wide) in paragraph at lines 273--277 \OT1/cmtt/m/n/10 must deallocate it using the routine AttrVect[]clean() when it is no longer needed. Failure [192] Overfull \hbox (44.12584pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 This routine computes masked spatial integrals of the REAL att ributes of the input AttrVect Overfull \hbox (2.1262pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 argument inAv, returning the masked integrals in the output At trVect outAv. All of Overfull \hbox (28.37598pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 the masking data are assumed stored in the input GeneralGrid a rgument GGrid. If integer Overfull \hbox (44.12584pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 masks are to be used, their integer attribute names in GGrid a re named as a colon-delimited Overfull \hbox (12.62611pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 list in the optional CHARACTER input argument iMaskTags. Real masks (if desired) are Overfull \hbox (12.62611pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 referenced by their real attribute names in GGrid are named as a colon-delimited list Overfull \hbox (2.1262pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 in the optional CHARACTER input argument rMaskTags. The user s pecifies a choice of Overfull \hbox (38.93149pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 mask combination method with the input LOGICAL argument UseFas tMethod. If $[] \OT1/cmr/m/n/10 = Overfull \hbox (2.43182pt too wide) in paragraph at lines 330--354 []$ \OT1/cmtt/m/n/10 this routine checks each mask entry to ensure that the int eger masks contain Overfull \hbox (23.12602pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 only ones and zeroes, and that entries in the real masks are a ll in the closed interval Overfull \hbox (4.26534pt too wide) in paragraph at lines 330--354 \OT1/cmr/m/n/10 [0\OML/cmm/m/it/10 ; \OT1/cmr/m/n/10 1]$\OT1/cmtt/m/n/10 . If $ [] \OT1/cmr/m/n/10 = []$\OT1/cmtt/m/n/10 , this routine performs direct product s of the masks, Overfull \hbox (38.87589pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 assuming that the user has validated them in advance. The opti onal LOGICAL input argument Overfull \hbox (2.1262pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 SumWeights determines whether the masked sum of the spatial we ights is computed and Overfull \hbox (23.12602pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 returned in outAv with the real attribute name supplied in the optional CHARACTER input Overfull \hbox (28.37598pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 argument WeightSumTag. This integral can either be a local (i. e. a global memory space Overfull \hbox (12.62611pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 operation), or a global distributed integral. The latter is th e case if the optional Overfull \hbox (33.62593pt too wide) in paragraph at lines 330--354 \OT1/cmtt/m/n/10 input INTEGER argument comm is supplied (which corresponds to a Fortran MPI communicatior Overfull \hbox (22.86224pt too wide) in paragraph at lines 355--359 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv and the input GeneralGrid GGrid Overfull \hbox (7.37616pt too wide) in paragraph at lines 355--359 \OT1/cmtt/m/n/10 must be equal. That is, there must be a one-to-one corresponde nce between the field Overfull \hbox (21.39224pt too wide) in paragraph at lines 360--366 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If SpatialIntegralRAttrV[]() is invo ked with the optional LOGICAL input argument Overfull \hbox (7.37616pt too wide) in paragraph at lines 360--366 \OT1/cmtt/m/n/10 SumWeights set as .TRUE.. In this case, the none of REAL attri bute tags in inAv may Overfull \hbox (12.62611pt too wide) in paragraph at lines 360--366 \OT1/cmtt/m/n/10 be named the same as the string contained in WeightSumTag, whi ch is an attribute name Overfull \hbox (7.11238pt too wide) in paragraph at lines 367--371 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect argument outAv i s an allocated data structure. The user Overfull \hbox (42.65584pt too wide) in paragraph at lines 367--371 \OT1/cmtt/m/n/10 must deallocate it using the routine AttrVect[]clean() when it is no longer needed. Failure [193] [194] Overfull \hbox (38.87589pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 This routine computes masked spatial averages of the REAL attr ibutes of the input AttrVect Overfull \hbox (17.87607pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 argument inAv, returning the masked averages in the output Att rVect outAv. All of the Overfull \hbox (7.37616pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 masking data are assumed stored in the input GeneralGrid argum ent GGrid. If integer Overfull \hbox (44.12584pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 masks are to be used, their integer attribute names in GGrid a re named as a colon-delimited Overfull \hbox (12.62611pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 list in the optional CHARACTER input argument iMaskTags. Real masks (if desired) are Overfull \hbox (12.62611pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 referenced by their real attribute names in GGrid are named as a colon-delimited list Overfull \hbox (2.1262pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 in the optional CHARACTER input argument rMaskTags. The user s pecifies a choice of Overfull \hbox (38.93149pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 mask combination method with the input LOGICAL argument UseFas tMethod. If $[] \OT1/cmr/m/n/10 = Overfull \hbox (2.43182pt too wide) in paragraph at lines 439--460 []$ \OT1/cmtt/m/n/10 this routine checks each mask entry to ensure that the int eger masks contain Overfull \hbox (23.12602pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 only ones and zeroes, and that entries in the real masks are a ll in the closed interval Overfull \hbox (4.26534pt too wide) in paragraph at lines 439--460 \OT1/cmr/m/n/10 [0\OML/cmm/m/it/10 ; \OT1/cmr/m/n/10 1]$\OT1/cmtt/m/n/10 . If $ [] \OT1/cmr/m/n/10 = []$\OT1/cmtt/m/n/10 , this routine performs direct product s of the masks, Overfull \hbox (2.1262pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 assuming that the user has validated them in advance. This ave raging can either be Overfull \hbox (38.87589pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 a local (equivalent to a global memory space operation), or a global distributed integral. Overfull \hbox (12.62611pt too wide) in paragraph at lines 439--460 \OT1/cmtt/m/n/10 The latter is the case if the optional input INTEGER argument comm is supplied (which Overfull \hbox (22.86224pt too wide) in paragraph at lines 461--465 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv and the input GeneralGrid GGrid Overfull \hbox (7.37616pt too wide) in paragraph at lines 461--465 \OT1/cmtt/m/n/10 must be equal. That is, there must be a one-to-one corresponde nce between the field Overfull \hbox (7.11238pt too wide) in paragraph at lines 466--470 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect argument outAv i s an allocated data structure. The user Overfull \hbox (42.65584pt too wide) in paragraph at lines 466--470 \OT1/cmtt/m/n/10 must deallocate it using the routine AttrVect[]clean() when it is no longer needed. Failure [195] Overfull \hbox (12.62611pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 This routine computes spatial integrals of the REAL attributes of the REAL attributes Overfull \hbox (17.87607pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 of the input AttrVect arguments inAv1 and inAv2, returning the integrals in the output Overfull \hbox (17.87607pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 AttrVect arguments outAv1 and outAv2, respectively . The integ rals of inAv1 and inAv2 Overfull \hbox (2.1262pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 are computed using spatial weights stored in the input General Grid arguments GGrid1 Overfull \hbox (12.62611pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 and GGrid2, respectively. The spatial weights in in GGrid1 and GGrid2 are identified Overfull \hbox (105.65529pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 by the input CHARACTER arguments WeightTag1 and WeightTag2, re spectively. If SpatialIntegralRAttrGG[]() Overfull \hbox (17.87607pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 is invoked with the optional LOGICAL input argument SumWeights set as .TRUE., then the Overfull \hbox (2.1262pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 weights are also summed and stored in outAv1 and outAv2, and c an be referenced with Overfull \hbox (7.37616pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 the attribute tags defined by the arguments WeightTag1 and Wei ghtTag2, respectively. Overfull \hbox (7.37616pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 This paired integral is implicitly a distributed operation (th e whole motivation for Overfull \hbox (7.37616pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 pairing the integrals is to reduce communication latency costs ), and the Fortran MPI Overfull \hbox (7.37616pt too wide) in paragraph at lines 525--545 \OT1/cmtt/m/n/10 communicator handle is defined by the input INTEGER argument c omm. The summation is Overfull \hbox (1.86243pt too wide) in paragraph at lines 546--551 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv1 and the GeneralGrid GGrid1 Overfull \hbox (7.37616pt too wide) in paragraph at lines 546--551 \OT1/cmtt/m/n/10 must be equal. That is, there must be a one-to-one corresponde nce between the field Overfull \hbox (44.12584pt too wide) in paragraph at lines 546--551 \OT1/cmtt/m/n/10 point values stored in inAv1 and the point weights stored in G Grid1. The same relationship Overfull \hbox (26.6422pt too wide) in paragraph at lines 552--557 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If SpatialIntegralRAttrGG[]() is inv oked with the optional LOGICAL input argument Overfull \hbox (7.37616pt too wide) in paragraph at lines 552--557 \OT1/cmtt/m/n/10 SumWeights set as .TRUE., then the value of WeightTag1 must no t conflict with any of Overfull \hbox (2.1262pt too wide) in paragraph at lines 552--557 \OT1/cmtt/m/n/10 the REAL attribute tags in inAv1 and the value of WeightTag2 m ust not conflict with Overfull \hbox (17.61229pt too wide) in paragraph at lines 558--562 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect arguments outAv1 and outAv2 are allocated data structures. Overfull \hbox (26.90598pt too wide) in paragraph at lines 558--562 \OT1/cmtt/m/n/10 The user must deallocate them using the routine AttrVect[]clea n() when they are no longer [196] Overfull \hbox (7.37616pt too wide) in paragraph at lines 619--634 \OT1/cmtt/m/n/10 This routine computes spatial averages of the REAL attributes of the REAL attributes Overfull \hbox (17.87607pt too wide) in paragraph at lines 619--634 \OT1/cmtt/m/n/10 of the input AttrVect arguments inAv1 and inAv2, returning the integrals in the output Overfull \hbox (17.87607pt too wide) in paragraph at lines 619--634 \OT1/cmtt/m/n/10 AttrVect arguments outAv1 and outAv2, respectively . The integ rals of inAv1 and inAv2 Overfull \hbox (2.1262pt too wide) in paragraph at lines 619--634 \OT1/cmtt/m/n/10 are computed using spatial weights stored in the input General Grid arguments GGrid1 Overfull \hbox (12.62611pt too wide) in paragraph at lines 619--634 \OT1/cmtt/m/n/10 and GGrid2, respectively. The spatial weights in in GGrid1 and GGrid2 are identified Overfull \hbox (17.87607pt too wide) in paragraph at lines 619--634 \OT1/cmtt/m/n/10 by the input CHARACTER arguments WeightTag1 and WeightTag2, re spectively. This paired Overfull \hbox (2.1262pt too wide) in paragraph at lines 619--634 \OT1/cmtt/m/n/10 average is implicitly a distributed operation (the whole motiv ation for pairing the Overfull \hbox (7.37616pt too wide) in paragraph at lines 619--634 \OT1/cmtt/m/n/10 averages is to reduce communication latency costs), and the Fo rtran MPI communicator Overfull \hbox (7.37616pt too wide) in paragraph at lines 619--634 \OT1/cmtt/m/n/10 handle is defined by the input INTEGER argument comm. The summ ation is an AllReduce Overfull \hbox (1.86243pt too wide) in paragraph at lines 635--640 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv1 and the GeneralGrid GGrid1 Overfull \hbox (7.37616pt too wide) in paragraph at lines 635--640 \OT1/cmtt/m/n/10 must be equal. That is, there must be a one-to-one corresponde nce between the field Overfull \hbox (44.12584pt too wide) in paragraph at lines 635--640 \OT1/cmtt/m/n/10 point values stored in inAv1 and the point weights stored in G Grid1. The same relationship Overfull \hbox (17.61229pt too wide) in paragraph at lines 641--645 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect arguments outAv1 and outAv2 are allocated data structures. Overfull \hbox (26.90598pt too wide) in paragraph at lines 641--645 \OT1/cmtt/m/n/10 The user must deallocate them using the routine AttrVect[]clea n() when they are no longer [197] Overfull \hbox (17.87607pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 This routine computes a pair of masked spatial integrals of th e REAL attributes of the Overfull \hbox (12.62611pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 input AttrVect arguments inAv and inAv2, returning the masked integrals in the output Overfull \hbox (2.1262pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 AttrVect outAv1 and outAv2, respectively. All of the spatial w eighting and masking Overfull \hbox (7.37616pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 data for each set of integrals are assumed stored in the input GeneralGrid arguments Overfull \hbox (7.37616pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 GGrid and GGrid2. If integer masks are to be used, their integ er attribute names in Overfull \hbox (17.87607pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 GGrid1 and GGrid2 are named as a colon-delimited lists in the optional CHARACTER input Overfull \hbox (38.87589pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 arguments iMaskTags1 and iMaskTags2, respectively. Real masks (if desired) are referenced Overfull \hbox (12.62611pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 by their real attribute names in GGrid1 and GGrid2 are named a s colon-delimited lists Overfull \hbox (23.12602pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 in the optional CHARACTER input arguments rMaskTags1 and rMask Tags2, respectively. The Overfull \hbox (75.62556pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 user specifies a choice of mask combination method with the in put LOGICAL argument UseFastMethod. Overfull \hbox (26.26495pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 If $[] \OT1/cmr/m/n/10 = []$ \OT1/cmtt/m/n/10 this routine che cks each mask entry to ensure that the integer Overfull \hbox (12.62611pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 masks contain only ones and zeroes, and that entries in the re al masks are all in the Overfull \hbox (14.76524pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 closed interval $\OT1/cmr/m/n/10 [0\OML/cmm/m/it/10 ; \OT1/cmr /m/n/10 1]$\OT1/cmtt/m/n/10 . If $[] \OT1/cmr/m/n/10 = []$\OT1/cmtt/m/n/10 , th is routine performs direct products Overfull \hbox (33.62593pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 of the masks, assuming that the user has validated them in adv ance. The optional LOGICAL Overfull \hbox (12.62611pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 input argument SumWeights determines whether the masked sum of the spatial weights is Overfull \hbox (7.37616pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 computed and returned in outAv1 and outAv2 with the real attri bute names supplied in Overfull \hbox (12.62611pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 the CHARACTER input arguments SpatialWeightTag1, and SpatialWe ightTag2, respectively. Overfull \hbox (7.37616pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 This paired integral is implicitly a distributed operation (th e whole motivation for Overfull \hbox (2.1262pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 pairing the averages is to reduce communication latency costs) , and the Fortran MPI Overfull \hbox (7.37616pt too wide) in paragraph at lines 706--736 \OT1/cmtt/m/n/10 communicator handle is defined by the input INTEGER argument c omm. The summation is [198] Overfull \hbox (1.86243pt too wide) in paragraph at lines 737--742 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv1 and the GeneralGrid GGrid1 Overfull \hbox (7.37616pt too wide) in paragraph at lines 737--742 \OT1/cmtt/m/n/10 must be equal. That is, there must be a one-to-one corresponde nce between the field Overfull \hbox (44.12584pt too wide) in paragraph at lines 737--742 \OT1/cmtt/m/n/10 point values stored in inAv1 and the point weights stored in G Grid1. The same relationship Overfull \hbox (5.64238pt too wide) in paragraph at lines 743--749 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If PairedMaskedIntegralRAttrGG[]() i s invoked with the optional LOGICAL input Overfull \hbox (28.37598pt too wide) in paragraph at lines 743--749 \OT1/cmtt/m/n/10 argument SumWeights set as .TRUE., then the value of SpatialWe ightTag1 must not conflict Overfull \hbox (7.37616pt too wide) in paragraph at lines 743--749 \OT1/cmtt/m/n/10 with any of the REAL attribute tags in inAv1 and the value of SpatialWeightTag2 must Overfull \hbox (17.61229pt too wide) in paragraph at lines 750--754 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect arguments outAv1 and outAv2 are allocated data structures. Overfull \hbox (26.90598pt too wide) in paragraph at lines 750--754 \OT1/cmtt/m/n/10 The user must deallocate them using the routine AttrVect[]clea n() when they are no longer [199] Overfull \hbox (12.62611pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 This routine computes a pair of masked spatial averages of the REAL attributes of the Overfull \hbox (12.62611pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 input AttrVect arguments inAv and inAv2, returning the masked averagess in the output Overfull \hbox (2.1262pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 AttrVect outAv1 and outAv2, respectively. All of the spatial w eighting and masking Overfull \hbox (2.1262pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 data for each set of averages are assumed stored in the input GeneralGrid arguments Overfull \hbox (7.37616pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 GGrid and GGrid2. If integer masks are to be used, their integ er attribute names in Overfull \hbox (17.87607pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 GGrid1 and GGrid2 are named as a colon-delimited lists in the optional CHARACTER input Overfull \hbox (38.87589pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 arguments iMaskTags1 and iMaskTags2, respectively. Real masks (if desired) are referenced Overfull \hbox (12.62611pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 by their real attribute names in GGrid1 and GGrid2 are named a s colon-delimited lists Overfull \hbox (23.12602pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 in the optional CHARACTER input arguments rMaskTags1 and rMask Tags2, respectively. The Overfull \hbox (75.62556pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 user specifies a choice of mask combination method with the in put LOGICAL argument UseFastMethod. Overfull \hbox (26.26495pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 If $[] \OT1/cmr/m/n/10 = []$ \OT1/cmtt/m/n/10 this routine che cks each mask entry to ensure that the integer Overfull \hbox (12.62611pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 masks contain only ones and zeroes, and that entries in the re al masks are all in the Overfull \hbox (14.76524pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 closed interval $\OT1/cmr/m/n/10 [0\OML/cmm/m/it/10 ; \OT1/cmr /m/n/10 1]$\OT1/cmtt/m/n/10 . If $[] \OT1/cmr/m/n/10 = []$\OT1/cmtt/m/n/10 , th is routine performs direct products Overfull \hbox (28.37598pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 of the masks, assuming that the user has validated them in adv ance. This paired average Overfull \hbox (7.37616pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 is implicitly a distributed operation (the whole motivation fo r pairing the averages Overfull \hbox (12.62611pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 is to reduce communication latency costs), and the Fortran MPI communicator handle is Overfull \hbox (12.62611pt too wide) in paragraph at lines 817--842 \OT1/cmtt/m/n/10 defined by the input INTEGER argument comm. The summation is a n AllReduce operation, Overfull \hbox (1.86243pt too wide) in paragraph at lines 843--848 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv1 and the GeneralGrid GGrid1 Overfull \hbox (7.37616pt too wide) in paragraph at lines 843--848 \OT1/cmtt/m/n/10 must be equal. That is, there must be a one-to-one corresponde nce between the field Overfull \hbox (44.12584pt too wide) in paragraph at lines 843--848 \OT1/cmtt/m/n/10 point values stored in inAv1 and the point weights stored in G Grid1. The same relationship Overfull \hbox (17.61229pt too wide) in paragraph at lines 849--853 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect arguments outAv1 and outAv2 are allocated data structures. Overfull \hbox (26.90598pt too wide) in paragraph at lines 849--853 \OT1/cmtt/m/n/10 The user must deallocate them using the routine AttrVect[]clea n() when they are no longer [200] [201]) [202] (./texsrc/m_SpatialIntegralV.tex Overfull \hbox (53.91505pt too wide) in paragraph at lines 48--48 \OT1/cmr/bx/n/12 and Av-er-ages us-ing vec-tors of weights (Source File: m[]Spa tialIntegralV.F90) Overfull \hbox (2.1262pt too wide) in paragraph at lines 51--56 \OT1/cmtt/m/n/10 This module provides spatial integration and averaging service s for the MCT similar Overfull \hbox (26.90598pt too wide) in paragraph at lines 51--56 \OT1/cmtt/m/n/10 to those in m[]SpatialIntegral except the weights are provided by an input vector instead Overfull \hbox (32.15593pt too wide) in paragraph at lines 51--56 \OT1/cmtt/m/n/10 of through a GeneralGrid. See the description for m[]SpatialIn tegral for more information Overfull \hbox (7.37616pt too wide) in paragraph at lines 58--60 []\OT1/cmtt/m/n/10 Paired masked spatial integrals and averages have not yet be en implemented in vector [203] Overfull \hbox (12.62611pt too wide) in paragraph at lines 119--134 \OT1/cmtt/m/n/10 This routine computes spatial integrals of the REAL attributes of the REAL attributes Overfull \hbox (21.65602pt too wide) in paragraph at lines 119--134 \OT1/cmtt/m/n/10 of the input AttrVect argument inAv. SpatialIntegralRAttrV[]() takes the input AttrVect Overfull \hbox (17.87607pt too wide) in paragraph at lines 119--134 \OT1/cmtt/m/n/10 argument inAv and computes the spatial integral using weights stored in the input REAL Overfull \hbox (17.87607pt too wide) in paragraph at lines 119--134 \OT1/cmtt/m/n/10 array argument Weights. The integral of each REAL attribute is returned in the output Overfull \hbox (37.40588pt too wide) in paragraph at lines 119--134 \OT1/cmtt/m/n/10 AttrVect argument outAv. If SpatialIntegralRAttrV[]() is invok ed with the optional LOGICAL Overfull \hbox (7.37616pt too wide) in paragraph at lines 119--134 \OT1/cmtt/m/n/10 input argument SumWeights set as .TRUE., then the weights are also summed and stored Overfull \hbox (63.65565pt too wide) in paragraph at lines 119--134 \OT1/cmtt/m/n/10 in outAv (and can be referenced with the attribute name Weight Tag. If SpatialIntegralRAttrV[]() Overfull \hbox (23.12602pt too wide) in paragraph at lines 119--134 \OT1/cmtt/m/n/10 is invoked with the optional INTEGER argument comm (a Fortran MPI communicator handle), Overfull \hbox (38.87589pt too wide) in paragraph at lines 119--134 \OT1/cmtt/m/n/10 the summation operations for the integral are completed on the local process, then reduced Overfull \hbox (1.86243pt too wide) in paragraph at lines 135--139 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv and the input array Weights Overfull \hbox (7.37616pt too wide) in paragraph at lines 135--139 \OT1/cmtt/m/n/10 must be equal. That is, there must be a one-to-one corresponde nce between the field Overfull \hbox (21.39224pt too wide) in paragraph at lines 140--146 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If SpatialIntegralRAttrV[]() is invo ked with the optional LOGICAL input argument Overfull \hbox (7.37616pt too wide) in paragraph at lines 140--146 \OT1/cmtt/m/n/10 SumWeights set as .TRUE.. In this case, the none of REAL attri bute tags in inAv may Overfull \hbox (44.12584pt too wide) in paragraph at lines 140--146 \OT1/cmtt/m/n/10 be named the same as the string contained in WeightTag, which is an attribute name reserved Overfull \hbox (7.11238pt too wide) in paragraph at lines 147--151 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect argument outAv i s an allocated data structure. The user Overfull \hbox (42.65584pt too wide) in paragraph at lines 147--151 \OT1/cmtt/m/n/10 must deallocate it using the routine AttrVect[]clean() when it is no longer needed. Failure [204] Overfull \hbox (2.1262pt too wide) in paragraph at lines 195--206 \OT1/cmtt/m/n/10 This routine computes spatial averages of the REAL attributes of the input AttrVect Overfull \hbox (42.65584pt too wide) in paragraph at lines 195--206 \OT1/cmtt/m/n/10 argument inAv. SpatialAverageRAttrV[]() takes the input AttrVe ct argument inAv and computes Overfull \hbox (2.1262pt too wide) in paragraph at lines 195--206 \OT1/cmtt/m/n/10 the spatial average using weights stored in the REAL array Wei ghts. The average of Overfull \hbox (79.40552pt too wide) in paragraph at lines 195--206 \OT1/cmtt/m/n/10 each REAL attribute is returned in the output AttrVect argumen t outAv. If SpatialAverageRAttrV[]() Overfull \hbox (23.12602pt too wide) in paragraph at lines 195--206 \OT1/cmtt/m/n/10 is invoked with the optional INTEGER argument comm (a Fortran MPI communicator handle), Overfull \hbox (33.62593pt too wide) in paragraph at lines 195--206 \OT1/cmtt/m/n/10 the summation operations for the average are completed on the local process, then reduced Overfull \hbox (1.86243pt too wide) in paragraph at lines 207--211 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv and the input array Weights Overfull \hbox (7.37616pt too wide) in paragraph at lines 207--211 \OT1/cmtt/m/n/10 must be equal. That is, there must be a one-to-one corresponde nce between the field Overfull \hbox (7.11238pt too wide) in paragraph at lines 212--216 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect argument outAv i s an allocated data structure. The user Overfull \hbox (42.65584pt too wide) in paragraph at lines 212--216 \OT1/cmtt/m/n/10 must deallocate it using the routine AttrVect[]clean() when it is no longer needed. Failure Overfull \hbox (44.12584pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 This routine computes masked spatial integrals of the REAL att ributes of the input AttrVect Overfull \hbox (7.37616pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 argument inAv, returning the masked integrals in the output At trVect argument outAv. Overfull \hbox (12.62611pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 The masked integral is computed using weights stored in the in put REAL array argument Overfull \hbox (23.12602pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 SpatialWeights. Integer masking (if desired) is provided in th e optional input INTEGER Overfull \hbox (23.12602pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 array iMask, and real masking (if desired) is provided in the optional input REAL array Overfull \hbox (21.65602pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 rMask. If SpatialIntegralRAttrV[]() is invoked with the option al LOGICAL input argument Overfull \hbox (2.1262pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 SumWeights set as .TRUE., then the weights are also summed and stored in outAv (and Overfull \hbox (38.87589pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 can be referenced with the attribute name defined by the optio nal input CHARACTER argument Overfull \hbox (26.90598pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 WeightSumTag. If SpatialIntegralRAttrV[]() is invoked with the optional INTEGER argument Overfull \hbox (2.1262pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 comm (a Fortran MPI communicator handle), the summation operat ions for the integral Overfull \hbox (49.3758pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 are completed on the local process, then reduced across the co mmunicator, with all processes Overfull \hbox (7.37616pt too wide) in paragraph at lines 259--277 \OT1/cmtt/m/n/10 receiving the result. Otherwise, the integral is assumed to be local (or equivalent [205] Overfull \hbox (1.86243pt too wide) in paragraph at lines 278--282 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv and the input array Weights Overfull \hbox (7.37616pt too wide) in paragraph at lines 278--282 \OT1/cmtt/m/n/10 must be equal. That is, there must be a one-to-one corresponde nce between the field Overfull \hbox (21.39224pt too wide) in paragraph at lines 283--289 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If SpatialIntegralRAttrV[]() is invo ked with the optional LOGICAL input argument Overfull \hbox (7.37616pt too wide) in paragraph at lines 283--289 \OT1/cmtt/m/n/10 SumWeights set as .TRUE.. In this case, the none of REAL attri bute tags in inAv may Overfull \hbox (12.62611pt too wide) in paragraph at lines 283--289 \OT1/cmtt/m/n/10 be named the same as the string contained in WeightSumTag, whi ch is an attribute name Overfull \hbox (7.11238pt too wide) in paragraph at lines 290--294 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect argument outAv i s an allocated data structure. The user Overfull \hbox (42.65584pt too wide) in paragraph at lines 290--294 \OT1/cmtt/m/n/10 must deallocate it using the routine AttrVect[]clean() when it is no longer needed. Failure [206] Overfull \hbox (7.37616pt too wide) in paragraph at lines 340--356 \OT1/cmtt/m/n/10 [NEEDS **LOTS** of This routine computes spatial integrals of the REAL attributes of Overfull \hbox (26.90598pt too wide) in paragraph at lines 340--356 \OT1/cmtt/m/n/10 the REAL attributes of the input AttrVect argument inAv. Spati alIntegralRAttrV[]() takes Overfull \hbox (23.12602pt too wide) in paragraph at lines 340--356 \OT1/cmtt/m/n/10 the input AttrVect argument inAv and computes the spatial inte gral using weights stored Overfull \hbox (38.87589pt too wide) in paragraph at lines 340--356 \OT1/cmtt/m/n/10 in the input REAL array argument Weights. The integral of each REAL attribute is returned Overfull \hbox (0.6562pt too wide) in paragraph at lines 340--356 \OT1/cmtt/m/n/10 in the output AttrVect argument outAv. If SpatialIntegralRAttr V[]() is invoked with Overfull \hbox (23.12602pt too wide) in paragraph at lines 340--356 \OT1/cmtt/m/n/10 the optional LOGICAL input argument SumWeights set as .TRUE., then the weights are also Overfull \hbox (7.37616pt too wide) in paragraph at lines 340--356 \OT1/cmtt/m/n/10 summed and stored in outAv (and can be referenced with the att ribute name WeightTag. Overfull \hbox (32.15593pt too wide) in paragraph at lines 340--356 \OT1/cmtt/m/n/10 If SpatialIntegralRAttrV[]() is invoked with the optional INTE GER argument comm (a Fortran Overfull \hbox (7.37616pt too wide) in paragraph at lines 340--356 \OT1/cmtt/m/n/10 MPI communicator handle), the summation operations for the int egral are completed on Overfull \hbox (12.62611pt too wide) in paragraph at lines 340--356 \OT1/cmtt/m/n/10 the local process, then reduced across the communicator, with all processes receiving Overfull \hbox (1.86243pt too wide) in paragraph at lines 357--361 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv and the input array Weights Overfull \hbox (7.37616pt too wide) in paragraph at lines 357--361 \OT1/cmtt/m/n/10 must be equal. That is, there must be a one-to-one corresponde nce between the field Overfull \hbox (21.39224pt too wide) in paragraph at lines 362--368 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If SpatialIntegralRAttrV[]() is invo ked with the optional LOGICAL input argument Overfull \hbox (7.37616pt too wide) in paragraph at lines 362--368 \OT1/cmtt/m/n/10 SumWeights set as .TRUE.. In this case, the none of REAL attri bute tags in inAv may Overfull \hbox (44.12584pt too wide) in paragraph at lines 362--368 \OT1/cmtt/m/n/10 be named the same as the string contained in WeightTag, which is an attribute name reserved Overfull \hbox (7.11238pt too wide) in paragraph at lines 369--373 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect argument outAv i s an allocated data structure. The user Overfull \hbox (42.65584pt too wide) in paragraph at lines 369--373 \OT1/cmtt/m/n/10 must deallocate it using the routine AttrVect[]clean() when it is no longer needed. Failure [207] Overfull \hbox (12.62611pt too wide) in paragraph at lines 421--439 \OT1/cmtt/m/n/10 This routine computes spatial integrals of the REAL attributes of the REAL attributes Overfull \hbox (17.87607pt too wide) in paragraph at lines 421--439 \OT1/cmtt/m/n/10 of the input AttrVect arguments inAv1 and inAv2, returning the integrals in the output Overfull \hbox (17.87607pt too wide) in paragraph at lines 421--439 \OT1/cmtt/m/n/10 AttrVect arguments outAv1 and outAv2, respectively . The integ rals of inAv1 and inAv2 Overfull \hbox (7.37616pt too wide) in paragraph at lines 421--439 \OT1/cmtt/m/n/10 are computed using spatial weights stored in the input REAL ar ray arguments Weights1 Overfull \hbox (11.15611pt too wide) in paragraph at lines 421--439 \OT1/cmtt/m/n/10 and Weights2, respectively. If SpatialIntegralRAttrV[]() is in voked with the optional Overfull \hbox (12.62611pt too wide) in paragraph at lines 421--439 \OT1/cmtt/m/n/10 LOGICAL input argument SumWeights set as .TRUE., then the weig hts are also summed and Overfull \hbox (12.62611pt too wide) in paragraph at lines 421--439 \OT1/cmtt/m/n/10 stored in outAv1 and outAv2, and can be referenced with the at tribute tags defined by Overfull \hbox (49.3758pt too wide) in paragraph at lines 421--439 \OT1/cmtt/m/n/10 the arguments WeightName1 and WeightName2, respectively. This paired integral is implicitly Overfull \hbox (7.37616pt too wide) in paragraph at lines 421--439 \OT1/cmtt/m/n/10 a distributed operation (the whole motivation for pairing the integrals is to reduce Overfull \hbox (2.1262pt too wide) in paragraph at lines 421--439 \OT1/cmtt/m/n/10 communication latency costs), and the Fortran MPI communicator handle is defined by Overfull \hbox (2.1262pt too wide) in paragraph at lines 421--439 \OT1/cmtt/m/n/10 the input INTEGER argument comm. The summation is an AllReduce operation, with all Overfull \hbox (38.6121pt too wide) in paragraph at lines 440--445 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv1 and the input REAL array Weights1 Overfull \hbox (7.37616pt too wide) in paragraph at lines 440--445 \OT1/cmtt/m/n/10 must be equal. That is, there must be a one-to-one corresponde nce between the field Overfull \hbox (49.3758pt too wide) in paragraph at lines 440--445 \OT1/cmtt/m/n/10 point values stored in inAv1 and the point weights stored in W eights. The same relationship Overfull \hbox (21.39224pt too wide) in paragraph at lines 446--451 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If SpatialIntegralRAttrV[]() is invo ked with the optional LOGICAL input argument Overfull \hbox (12.62611pt too wide) in paragraph at lines 446--451 \OT1/cmtt/m/n/10 SumWeights set as .TRUE., then the value of WeightName1 must n ot conflict with any of Overfull \hbox (7.37616pt too wide) in paragraph at lines 446--451 \OT1/cmtt/m/n/10 the REAL attribute tags in inAv1 and the value of WeightName2 must not conflict with Overfull \hbox (17.61229pt too wide) in paragraph at lines 452--456 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect arguments outAv1 and outAv2 are allocated data structures. Overfull \hbox (26.90598pt too wide) in paragraph at lines 452--456 \OT1/cmtt/m/n/10 The user must deallocate them using the routine AttrVect[]clea n() when they are no longer Overfull \hbox (2.1262pt too wide) in paragraph at lines 477--477 [] \OT1/cmtt/m/n/10 subroutine PairedSpatialIntegralRAttrVSP_(inAv1, outAv1, W eights1, WeightName1, &[] [208] Overfull \hbox (7.37616pt too wide) in paragraph at lines 503--516 \OT1/cmtt/m/n/10 This routine computes spatial averages of the REAL attributes of the REAL attributes Overfull \hbox (17.87607pt too wide) in paragraph at lines 503--516 \OT1/cmtt/m/n/10 of the input AttrVect arguments inAv1 and inAv2, returning the integrals in the output Overfull \hbox (12.62611pt too wide) in paragraph at lines 503--516 \OT1/cmtt/m/n/10 AttrVect arguments outAv1 and outAv2, respectively . The avera ges of inAv1 and inAv2 Overfull \hbox (7.37616pt too wide) in paragraph at lines 503--516 \OT1/cmtt/m/n/10 are computed using spatial weights stored in the input REAL ar ray arguments Weights1 Overfull \hbox (17.87607pt too wide) in paragraph at lines 503--516 \OT1/cmtt/m/n/10 and Weights2, respectively. This paired average is implicitly a distributed operation Overfull \hbox (38.87589pt too wide) in paragraph at lines 503--516 \OT1/cmtt/m/n/10 (the whole motivation for pairing the integrals is to reduce c ommunication latency costs), Overfull \hbox (17.87607pt too wide) in paragraph at lines 503--516 \OT1/cmtt/m/n/10 and the Fortran MPI communicator handle is defined by the inpu t INTEGER argument comm. Overfull \hbox (12.62611pt too wide) in paragraph at lines 503--516 \OT1/cmtt/m/n/10 The summation is an AllReduce operation, with all processes re ceiving the global sum. Overfull \hbox (1.86243pt too wide) in paragraph at lines 517--521 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The local lengths of the AttrVect ar gument inAv1 and the array Weights must Overfull \hbox (12.62611pt too wide) in paragraph at lines 517--521 \OT1/cmtt/m/n/10 be equal. That is, there must be a one-to-one correspondence b etween the field point Overfull \hbox (17.61229pt too wide) in paragraph at lines 522--526 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The output AttrVect arguments outAv1 and outAv2 are allocated data structures. Overfull \hbox (26.90598pt too wide) in paragraph at lines 522--526 \OT1/cmtt/m/n/10 The user must deallocate them using the routine AttrVect[]clea n() when they are no longer [209]) [210] (./texsrc/m_Merge.tex Overfull \hbox (28.37598pt too wide) in paragraph at lines 51--59 \OT1/cmtt/m/n/10 This module supports \OT1/cmtt/m/it/10 merging \OT1/cmtt/m/n/1 0 of state and data from multiple components with overlapping Overfull \hbox (3.60538pt too wide) in paragraph at lines 51--59 \OT1/cmtt/m/n/10 spatial domains for use by another component. For example, let the vectors $\OT1/cmr/bx/n/10 a$ \OT1/cmtt/m/n/10 and $\OT1/cmr/bx/n/10 b$ Overfull \hbox (1.96317pt too wide) in paragraph at lines 51--59 \OT1/cmtt/m/n/10 be data from Components $\OML/cmm/m/it/10 A$ \OT1/cmtt/m/n/10 and $\OML/cmm/m/it/10 B$ \OT1/cmtt/m/n/10 that have been interpolated onto the physical grid Overfull \hbox (14.93674pt too wide) in paragraph at lines 51--59 \OT1/cmtt/m/n/10 of another component $\OML/cmm/m/it/10 C$\OT1/cmtt/m/n/10 . We wish to combine the data from $\OML/cmm/m/it/10 A$ \OT1/cmtt/m/n/10 and $\OML/ cmm/m/it/10 B$ \OT1/cmtt/m/n/10 to get a vector $\OT1/cmr/bx/n/10 c$\OT1/cmtt/m /n/10 , Overfull \hbox (4.73874pt too wide) in paragraph at lines 51--59 \OT1/cmtt/m/n/10 which represents the merged data on the grid of component $\OM L/cmm/m/it/10 C$\OT1/cmtt/m/n/10 . This merge process is Overfull \hbox (2.89777pt too wide) in paragraph at lines 62--66 \OT1/cmtt/m/n/10 Where $[]$ and $[]$ are \OT1/cmtt/m/it/10 integer masks \OT1/c mtt/m/n/10 (which have value either $\OT1/cmr/m/n/10 0$ \OT1/cmtt/m/n/10 or $\O T1/cmr/m/n/10 1$\OT1/cmtt/m/n/10 ), and $[]$ and $[]$ Overfull \hbox (23.12602pt too wide) in paragraph at lines 67--73 []\OT1/cmtt/m/n/10 Currently, we assume that the integer and real masks are sto red in the same GeneralGrid Overfull \hbox (2.1262pt too wide) in paragraph at lines 67--73 \OT1/cmtt/m/n/10 datatype. We also assume--and this is of critical importance t o the user--that the Overfull \hbox (33.62593pt too wide) in paragraph at lines 67--73 \OT1/cmtt/m/n/10 attributes to be merged are the same for all the inputs and ou tput. If the user violates Overfull \hbox (2.1262pt too wide) in paragraph at lines 67--73 \OT1/cmtt/m/n/10 this assumption, incorrect merges will occur for any attribute s that are present in Overfull \hbox (17.87607pt too wide) in paragraph at lines 74--77 []\OT1/cmtt/m/n/10 This module supports explicitly the merging data from two, t hree, and four components. Overfull \hbox (33.62593pt too wide) in paragraph at lines 74--77 \OT1/cmtt/m/n/10 There is also a routine named MergeInData that allows the user to construct other merging [211] Overfull \hbox (2.1262pt too wide) in paragraph at lines 130--142 \OT1/cmtt/m/n/10 This routine merges REAL attribute data from two input AttrVec t arguments inAv1 and Overfull \hbox (12.62611pt too wide) in paragraph at lines 130--142 \OT1/cmtt/m/n/10 inAv2 to a third AttrVect outAv. The attributes to be merged a re determined entirely Overfull \hbox (7.37616pt too wide) in paragraph at lines 130--142 \OT1/cmtt/m/n/10 by the real attributes of outAv. If outAv shares one or more a ttributes with either Overfull \hbox (12.62611pt too wide) in paragraph at lines 130--142 \OT1/cmtt/m/n/10 of the inputs inAv1 or inAv2, a merge is performed on the indi vidual \OT1/cmtt/m/it/10 intersections \OT1/cmtt/m/n/10 of Overfull \hbox (16.07072pt too wide) in paragraph at lines 130--142 \OT1/cmtt/m/n/10 attributes between the pairs $\OT1/cmr/m/n/10 ([]\OML/cmm/m/it /10 ; []\OT1/cmr/m/n/10 )$ \OT1/cmtt/m/n/10 and $\OT1/cmr/m/n/10 ([]\OML/cmm/m/ it/10 ; []\OT1/cmr/m/n/10 )$\OT1/cmtt/m/n/10 . Currently, it is assumed Overfull \hbox (44.12584pt too wide) in paragraph at lines 130--142 \OT1/cmtt/m/n/10 that these pairwise intersections are all equal. This assumpti on is of critical importance Overfull \hbox (23.12602pt too wide) in paragraph at lines 130--142 \OT1/cmtt/m/n/10 to the user. If the user violates this assumption, incorrect m erges of attributes that Overfull \hbox (7.37616pt too wide) in paragraph at lines 143--151 []\OT1/cmtt/m/n/10 The merge operatrion is a masked weighted element-by-element sum, as outlined in the Overfull \hbox (19.1922pt too wide) in paragraph at lines 143--151 \OT1/cmtt/m/n/10 following example. Let the vectors $\OT1/cmr/bx/n/10 a$ \OT1/c mtt/m/n/10 and $\OT1/cmr/bx/n/10 b$ \OT1/cmtt/m/n/10 be data from Components $\ OML/cmm/m/it/10 A$ \OT1/cmtt/m/n/10 and $\OML/cmm/m/it/10 B$ \OT1/cmtt/m/n/10 t hat have Overfull \hbox (9.9887pt too wide) in paragraph at lines 143--151 \OT1/cmtt/m/n/10 been interpolated onto the physical grid of another component $\OML/cmm/m/it/10 C$\OT1/cmtt/m/n/10 . We wish to combine Overfull \hbox (17.57416pt too wide) in paragraph at lines 143--151 \OT1/cmtt/m/n/10 the data from $\OML/cmm/m/it/10 A$ \OT1/cmtt/m/n/10 and $\OML/ cmm/m/it/10 B$ \OT1/cmtt/m/n/10 to get a vector $\OT1/cmr/bx/n/10 c$\OT1/cmtt/m /n/10 , which represents the merged data on the grid Overfull \hbox (0.61859pt too wide) in paragraph at lines 156--161 \OT1/cmtt/m/n/10 The quantities $[]$ and $[]$ are \OT1/cmtt/m/it/10 integer mas ks \OT1/cmtt/m/n/10 (which have value either $\OT1/cmr/m/n/10 0$ \OT1/cmtt/m/n/ 10 or $\OT1/cmr/m/n/10 1$\OT1/cmtt/m/n/10 ), and $[]$ Overfull \hbox (38.87589pt too wide) in paragraph at lines 162--173 []\OT1/cmtt/m/n/10 The integer and real masks are stored as attributes to the s ame input GeneralGrid argument Overfull \hbox (28.37598pt too wide) in paragraph at lines 162--173 \OT1/cmtt/m/n/10 GGrid. The mask attribute names are stored as substrings to th e colon-separated strings Overfull \hbox (59.8757pt too wide) in paragraph at lines 162--173 \OT1/cmtt/m/n/10 contained in the input CHARACTER arguments iMaskTags1, iMaskTa gs2, rMaskTags1, and rMaskTags2. Overfull \hbox (33.68153pt too wide) in paragraph at lines 162--173 \OT1/cmtt/m/n/10 The LOGICAL input argument CheckMasks governs how the masks ar e applied. If $[] \OT1/cmr/m/n/10 = Overfull \hbox (18.18169pt too wide) in paragraph at lines 162--173 []$\OT1/cmtt/m/n/10 , the entries are checked to ensure they meet the definitio ns of real and integer Overfull \hbox (52.51472pt too wide) in paragraph at lines 162--173 \OT1/cmtt/m/n/10 masks. If $[] \OT1/cmr/m/n/10 = []$ \OT1/cmtt/m/n/10 then the masks are multiplied together on an element-by-element Overfull \hbox (65.12566pt too wide) in paragraph at lines 162--173 \OT1/cmtt/m/n/10 basis with no validation of their entries (this option results in slightly higher performance). Overfull \hbox (2.1262pt too wide) in paragraph at lines 174--176 []\OT1/cmtt/m/n/10 This routine returns the sume of the masked weights as a dia gnostic. This quantity Overfull \hbox (23.12602pt too wide) in paragraph at lines 177--179 []\OT1/cmtt/m/n/10 The correspondence between the quantities in the above merge relation and the arguments [212] [213] Overfull \hbox (2.1262pt too wide) in paragraph at lines 255--268 \OT1/cmtt/m/n/10 This routine merges REAL attribute data from three input AttrV ect arguments inAv1 , Overfull \hbox (28.37598pt too wide) in paragraph at lines 255--268 \OT1/cmtt/m/n/10 inAv2, and inAv3 to a fourth AttrVect outAv. The attributes to be merged are determined Overfull \hbox (17.87607pt too wide) in paragraph at lines 255--268 \OT1/cmtt/m/n/10 entirely by the real attributes of outAv. If outAv shares one or more attributes with Overfull \hbox (59.8757pt too wide) in paragraph at lines 255--268 \OT1/cmtt/m/n/10 any of the inputs inAv1, inAv2, or inAv3, a merge is performed on the individual \OT1/cmtt/m/it/10 intersections Overfull \hbox (38.79285pt too wide) in paragraph at lines 255--268 \OT1/cmtt/m/n/10 of attributes between the pairs $\OT1/cmr/m/n/10 ([]\OML/cmm/m /it/10 ; []\OT1/cmr/m/n/10 )$\OT1/cmtt/m/n/10 , $\OT1/cmr/m/n/10 ([]\OML/cmm/m/ it/10 ; []\OT1/cmr/m/n/10 )$\OT1/cmtt/m/n/10 , and $\OT1/cmr/m/n/10 ([]\OML/cmm /m/it/10 ; []\OT1/cmr/m/n/10 )$\OT1/cmtt/m/n/10 . Currently, Overfull \hbox (12.62611pt too wide) in paragraph at lines 255--268 \OT1/cmtt/m/n/10 it is assumed that these pairwise intersections are all equal. This assumption is of Overfull \hbox (28.37598pt too wide) in paragraph at lines 255--268 \OT1/cmtt/m/n/10 critical importance to the user. If the user violates this ass umption, incorrect merges Overfull \hbox (7.37616pt too wide) in paragraph at lines 269--277 []\OT1/cmtt/m/n/10 The merge operatrion is a masked weighted element-by-element sum, as outlined in the Overfull \hbox (5.916pt too wide) in paragraph at lines 269--277 \OT1/cmtt/m/n/10 following example. Let the vectors $\OT1/cmr/bx/n/10 a$\OT1/cm tt/m/n/10 ,$\OT1/cmr/bx/n/10 b$\OT1/cmtt/m/n/10 , and $\OT1/cmr/bx/n/10 c$ \OT1 /cmtt/m/n/10 be data from Components $\OML/cmm/m/it/10 A$\OT1/cmtt/m/n/10 , $\O ML/cmm/m/it/10 B$\OT1/cmtt/m/n/10 , and $\OML/cmm/m/it/10 C$ Overfull \hbox (5.4332pt too wide) in paragraph at lines 269--277 \OT1/cmtt/m/n/10 that have been interpolated onto the physical grid of another component $\OML/cmm/m/it/10 D$\OT1/cmtt/m/n/10 . We wish Overfull \hbox (5.7146pt too wide) in paragraph at lines 269--277 \OT1/cmtt/m/n/10 to combine the data from $\OML/cmm/m/it/10 A$\OT1/cmtt/m/n/10 , $\OML/cmm/m/it/10 B$ \OT1/cmtt/m/n/10 and $\OML/cmm/m/it/10 C$ \OT1/cmtt/m/n/ 10 to get a vector $\OT1/cmr/bx/n/10 d$\OT1/cmtt/m/n/10 , which represents the merged Overfull \hbox (4.76727pt too wide) in paragraph at lines 269--277 \OT1/cmtt/m/n/10 data on the grid of component $\OML/cmm/m/it/10 D$\OT1/cmtt/m/ n/10 . The merge relation to obtain the $\OML/cmm/m/it/10 i$\OT1/cmtt/m/n/10 th element of $\OT1/cmr/bx/n/10 d$ Overfull \hbox (11.70518pt too wide) in paragraph at lines 284--289 \OT1/cmtt/m/n/10 The quantities $[]$, $[]$, and $[]$ are \OT1/cmtt/m/it/10 inte ger masks \OT1/cmtt/m/n/10 (which have value either $\OT1/cmr/m/n/10 0$ \OT1/cm tt/m/n/10 or $\OT1/cmr/m/n/10 1$\OT1/cmtt/m/n/10 ), and Overfull \hbox (38.87589pt too wide) in paragraph at lines 290--301 []\OT1/cmtt/m/n/10 The integer and real masks are stored as attributes to the s ame input GeneralGrid argument Overfull \hbox (28.37598pt too wide) in paragraph at lines 290--301 \OT1/cmtt/m/n/10 GGrid. The mask attribute names are stored as substrings to th e colon-separated strings Overfull \hbox (38.87589pt too wide) in paragraph at lines 290--301 \OT1/cmtt/m/n/10 contained in the input CHARACTER arguments iMaskTags1, iMaskTa gs2, iMaskTags3, rMaskTags1, Overfull \hbox (28.37598pt too wide) in paragraph at lines 290--301 \OT1/cmtt/m/n/10 rMaskTags2, and rMaskTags3. The LOGICAL input argument CheckMa sks governs how the masks Overfull \hbox (5.26514pt too wide) in paragraph at lines 290--301 \OT1/cmtt/m/n/10 are applied. If $[] \OT1/cmr/m/n/10 = []$\OT1/cmtt/m/n/10 , th e entries are checked to ensure they meet the Overfull \hbox (47.26477pt too wide) in paragraph at lines 290--301 \OT1/cmtt/m/n/10 definitions of real and integer masks. If $[] \OT1/cmr/m/n/10 = []$ \OT1/cmtt/m/n/10 then the masks are multiplied Overfull \hbox (28.37598pt too wide) in paragraph at lines 290--301 \OT1/cmtt/m/n/10 together on an element-by-element basis with no validation of their entries (this option Overfull \hbox (12.62611pt too wide) in paragraph at lines 302--304 []\OT1/cmtt/m/n/10 This routine returns the sum of the masked weights as a diag nostic. This quantity is Overfull \hbox (23.12602pt too wide) in paragraph at lines 305--307 []\OT1/cmtt/m/n/10 The correspondence between the quantities in the above merge relation and the arguments [214] [215] Overfull \hbox (33.62593pt too wide) in paragraph at lines 395--408 \OT1/cmtt/m/n/10 This routine merges REAL attribute data from four input AttrVe ct arguments inAv1 , inAv2, Overfull \hbox (23.12602pt too wide) in paragraph at lines 395--408 \OT1/cmtt/m/n/10 inAv3, and inAv4 to a fifth AttrVect outAv. The attributes to be merged are determined Overfull \hbox (17.87607pt too wide) in paragraph at lines 395--408 \OT1/cmtt/m/n/10 entirely by the real attributes of outAv. If outAv shares one or more attributes with Overfull \hbox (23.12602pt too wide) in paragraph at lines 395--408 \OT1/cmtt/m/n/10 any of the inputs inAv1, inAv2, inAv3, or inAv4, a merge is pe rformed on the individual Overfull \hbox (28.29294pt too wide) in paragraph at lines 395--408 \OT1/cmtt/m/it/10 intersections \OT1/cmtt/m/n/10 of attributes between the pair s $\OT1/cmr/m/n/10 ([]\OML/cmm/m/it/10 ; []\OT1/cmr/m/n/10 )$\OT1/cmtt/m/n/10 , $\OT1/cmr/m/n/10 ([]\OML/cmm/m/it/10 ; []\OT1/cmr/m/n/10 )$\OT1/cmtt/m/n/10 , $\OT1/cmr/m/n/10 ([]\OML/cmm/m/it/10 ; []\OT1/cmr/m/n/10 )$\OT1/cmtt/m/n/10 , Overfull \hbox (14.34842pt too wide) in paragraph at lines 395--408 \OT1/cmtt/m/n/10 and $\OT1/cmr/m/n/10 ([]\OML/cmm/m/it/10 ; []\OT1/cmr/m/n/10 ) $\OT1/cmtt/m/n/10 . Currently, it is assumed that these pairwise intersections are all Overfull \hbox (7.37616pt too wide) in paragraph at lines 395--408 \OT1/cmtt/m/n/10 equal. This assumption is of critical importance to the user. If the user violates Overfull \hbox (17.87607pt too wide) in paragraph at lines 395--408 \OT1/cmtt/m/n/10 this assumption, incorrect merges of any attributes present on ly in some (but not all) Overfull \hbox (7.37616pt too wide) in paragraph at lines 409--417 []\OT1/cmtt/m/n/10 The merge operatrion is a masked weighted element-by-element sum, as outlined in the Overfull \hbox (1.80495pt too wide) in paragraph at lines 409--417 \OT1/cmtt/m/n/10 following example. Let the vectors $\OT1/cmr/bx/n/10 a$\OT1/cm tt/m/n/10 ,$\OT1/cmr/bx/n/10 b$\OT1/cmtt/m/n/10 , $\OT1/cmr/bx/n/10 c$ \OT1/cmt t/m/n/10 and $\OT1/cmr/bx/n/10 d$ \OT1/cmtt/m/n/10 be data from Components $\OM L/cmm/m/it/10 A$\OT1/cmtt/m/n/10 , $\OML/cmm/m/it/10 B$\OT1/cmtt/m/n/10 , $\OML /cmm/m/it/10 C$\OT1/cmtt/m/n/10 , Overfull \hbox (13.39151pt too wide) in paragraph at lines 409--417 \OT1/cmtt/m/n/10 and $\OML/cmm/m/it/10 D$ \OT1/cmtt/m/n/10 that have been inter polated onto the physical grid of another component $\OML/cmm/m/it/10 E$\OT1/cm tt/m/n/10 . We Overfull \hbox (18.40346pt too wide) in paragraph at lines 409--417 \OT1/cmtt/m/n/10 wish to combine the data from $\OML/cmm/m/it/10 A$\OT1/cmtt/m/ n/10 , $\OML/cmm/m/it/10 B$\OT1/cmtt/m/n/10 , $\OML/cmm/m/it/10 C$\OT1/cmtt/m/n /10 , and $\OML/cmm/m/it/10 D$ \OT1/cmtt/m/n/10 to get a vector $\OT1/cmr/bx/n/ 10 e$\OT1/cmtt/m/n/10 , which represents the Overfull \hbox (13.52965pt too wide) in paragraph at lines 409--417 \OT1/cmtt/m/n/10 merged data on the grid of component $\OML/cmm/m/it/10 E$\OT1/ cmtt/m/n/10 . The merge relation to obtain the $\OML/cmm/m/it/10 i$\OT1/cmtt/m/ n/10 th element Overfull \hbox (11.20992pt too wide) in paragraph at lines 426--431 \OT1/cmtt/m/n/10 The quantities $[]$, $[]$, $[]$, and $[]$ are \OT1/cmtt/m/it/1 0 integer masks \OT1/cmtt/m/n/10 (which have value either $\OT1/cmr/m/n/10 0$ \ OT1/cmtt/m/n/10 or $\OT1/cmr/m/n/10 1$\OT1/cmtt/m/n/10 ), Overfull \hbox (38.87589pt too wide) in paragraph at lines 432--444 []\OT1/cmtt/m/n/10 The integer and real masks are stored as attributes to the s ame input GeneralGrid argument Overfull \hbox (28.37598pt too wide) in paragraph at lines 432--444 \OT1/cmtt/m/n/10 GGrid. The mask attribute names are stored as substrings to th e colon-separated strings Overfull \hbox (38.87589pt too wide) in paragraph at lines 432--444 \OT1/cmtt/m/n/10 contained in the input CHARACTER arguments iMaskTags1, iMaskTa gs2, iMaskTags3, iMaskTags4, Overfull \hbox (12.62611pt too wide) in paragraph at lines 432--444 \OT1/cmtt/m/n/10 rMaskTags1, and rMaskTags2, rMaskTags3, and rMaskTags4, . The LOGICAL input argument Overfull \hbox (10.51509pt too wide) in paragraph at lines 432--444 \OT1/cmtt/m/n/10 CheckMasks governs how the masks are applied. If $[] \OT1/cmr/ m/n/10 = []$\OT1/cmtt/m/n/10 , the entries are Overfull \hbox (23.18163pt too wide) in paragraph at lines 432--444 \OT1/cmtt/m/n/10 checked to ensure they meet the definitions of real and intege r masks. If $[] \OT1/cmr/m/n/10 = Overfull \hbox (7.68178pt too wide) in paragraph at lines 432--444 []$ \OT1/cmtt/m/n/10 then the masks are multiplied together on an element-by-el ement basis with no Overfull \hbox (2.1262pt too wide) in paragraph at lines 445--447 []\OT1/cmtt/m/n/10 This routine returns the sume of the masked weights as a dia gnostic. This quantity Overfull \hbox (23.12602pt too wide) in paragraph at lines 448--450 []\OT1/cmtt/m/n/10 The correspondence between the quantities in the above merge relation and the arguments [216] [217] Overfull \hbox (12.62611pt too wide) in paragraph at lines 550--554 \OT1/cmtt/m/n/10 This routine takes input field data from the input AttrVect ar gument inAv, and merges Overfull \hbox (23.12602pt too wide) in paragraph at lines 550--554 \OT1/cmtt/m/n/10 the real attributes it shares with the input/output AttrVect a rgument outAv. The merge Overfull \hbox (28.89813pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 where $[]$ represents one element of one of the real attribute s of outAv, and $[]$ represents Overfull \hbox (1.38156pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 one element of one of the real attributes of inAv. The $[]$ ar e \OT1/cmtt/m/it/10 integer masks \OT1/cmtt/m/n/10 which Overfull \hbox (17.37619pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 have value either $\OT1/cmr/m/n/10 0$ \OT1/cmtt/m/n/10 or $\OT 1/cmr/m/n/10 1$\OT1/cmtt/m/n/10 , and are integer attributes of the input Gener alGrid argument Overfull \hbox (3.36612pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 GGrid. The $[]$ are \OT1/cmtt/m/it/10 real masks \OT1/cmtt/m/n /10 whose values are in the closed interval $\OT1/cmr/m/n/10 [0\OML/cmm/m/it/10 ; \OT1/cmr/m/n/10 1]$\OT1/cmtt/m/n/10 , and are Overfull \hbox (17.87607pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 real attributes of the input GeneralGrid argument GGrid. The i nput CHARACTER argument Overfull \hbox (12.62611pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 iMaskTags is a string of colon- delimited strings that name th e integer attributes in Overfull \hbox (32.88129pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 GGrid that are used as the masks $[]$. The input CHARACTER arg ument rMaskTags is a string Overfull \hbox (17.87607pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 of colon-delimited strings that name the real attributes in GG rid that are used as the Overfull \hbox (30.61569pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 masks $[]$. The output REAL array WeightSum is used to store a running sum of the product Overfull \hbox (23.12602pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 of the masks. The LOGICAL input argument CheckMasks governs ho w the masks are applied. Overfull \hbox (31.51491pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 of real and integer masks. If $[] \OT1/cmr/m/n/10 = []$ \OT1/c mtt/m/n/10 then the masks are multiplied together Overfull \hbox (23.12602pt too wide) in paragraph at lines 555--576 \OT1/cmtt/m/n/10 on an element-by-element basis with no validation of their ent ries (this option results Overfull \hbox (2.1262pt too wide) in paragraph at lines 577--580 []\OT1/cmtt/m/n/10 N.B.: The lengths of the AttrVect arguments inAv and outAv m ust be equal, and this Overfull \hbox (2.1262pt too wide) in paragraph at lines 581--584 []\OT1/cmtt/m/n/10 N.B.: This algorithm assumes the AttrVect argument outAv has been created, and its Overfull \hbox (28.37598pt too wide) in paragraph at lines 585--587 []\OT1/cmtt/m/n/10 N.B.: This algorithm assumes that the array WeightSum has be en created and initialized. [218]) [219] (./texsrc/m_Accumulator.tex Overfull \hbox (37.33725pt too wide) in paragraph at lines 48--48 []\OT1/cmr/bx/n/12 Fortran: Mod-ule In-ter-face m[]Accumulator - Time Av-er-ag- ing/Accumlation Overfull \hbox (2.1262pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 An \OT1/cmtt/m/it/10 accumulator \OT1/cmtt/m/n/10 is a data cl ass used for computing running sums and/or time averages Overfull \hbox (7.37616pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 of AttrVect class data. The period of time over which data are accumulated/averaged Overfull \hbox (12.62611pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 is the \OT1/cmtt/m/it/10 accumulation cycle\OT1/cmtt/m/n/10 , which is defined by the total number of accumulation steps Overfull \hbox (4.43616pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 (the component Accumulator%num[]steps). When the accumulation routine accumulate[] is Overfull \hbox (26.90598pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 invoked, the number of accumulation cycle steps (the component Accumulator%steps[]done)is Overfull \hbox (33.62593pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 incremented, and compared with the number of steps in the accu mulation cycle to determine Overfull \hbox (38.87589pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 if the accumulation cycle has been completed. The accumulation buffers of the Accumulator Overfull \hbox (2.1262pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 are stored in an AttrVect (namely the component Accumulator%da ta), which allows the Overfull \hbox (12.62611pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 user to define the number of variables and their names at run- time. Finally, one can Overfull \hbox (12.62611pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 define for each field being accumulated the specific accumulat ion \OT1/cmtt/m/it/10 action\OT1/cmtt/m/n/10 . Currently, Overfull \hbox (33.62593pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 there are two options: Time Averaging and Time Summation. The user chooses the specific Overfull \hbox (2.1262pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 action by setting an integer action flag for each attribute be ing accumulated. The Overfull \hbox (14.93607pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 supported options are defined by the public data member consta nts MCT[]SUM and MCT[]AVG. Overfull \hbox (12.62611pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 This module also supports a simple usage of accumulator where all the actions are SUM Overfull \hbox (18.71602pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 (inits[] and initavs[]) and the user must call average[] to ca lculate the average from the Overfull \hbox (25.43597pt too wide) in paragraph at lines 53--79 \OT1/cmtt/m/n/10 current value of Accumulator%steps[]done. Accumulator%num[]ste ps is ignored in this case. [220] [221] Overfull \hbox (12.62611pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 This routine allocates space for the output Accumulator argume nt aC, and at a minimum Overfull \hbox (7.37616pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 sets the number of time steps in an accumulation cycle (define d by the input INTEGER Overfull \hbox (16.40607pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 argument num[]steps), and the \OT1/cmtt/m/it/10 length \OT1/cm tt/m/n/10 of the Accumulator register buffer (defined by the Overfull \hbox (7.37616pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 input INTEGER argument lsize). If one wishes to accumulate int eger fields, the list Overfull \hbox (7.37616pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 of these fields is defined by the input CHARACTER argument iLi st, which is specified Overfull \hbox (23.12602pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 as a colon-delimited set of substrings (further information re garding this is available Overfull \hbox (4.43616pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 in the routine init[]() of the module m[]AttrVect). If no valu e of iList is supplied, Overfull \hbox (12.62611pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 no integer attribute accumulation buffers will be allocated. T he accumulation action Overfull \hbox (12.62611pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 on each of the integer attributes can be defined by supplying the input INTEGER array Overfull \hbox (7.37616pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 argument iAction(:) (whose length must correspond to the numbe r of items in iList). Overfull \hbox (7.37616pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 The values of the elements of iAction(:) must be one of the va lues among the public Overfull \hbox (38.87589pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 data members defined in the declaration section of this module . If the integer attributes Overfull \hbox (2.1262pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 are to be accumulated (i.e. one supplies iList), but iAction(: ) is not specified, Overfull \hbox (28.37598pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 the default action for all integer accumulation operations wil l be summation. The input Overfull \hbox (28.37598pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 arguments rList and rAction(:) define the names of the real va riables to be accumulated Overfull \hbox (17.87607pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 and the accumulation action for each. The arguments rList and rAction(:) are related Overfull \hbox (2.1262pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 to each other the same way as iList and iAction(:). Finally, t he user can manually Overfull \hbox (23.12602pt too wide) in paragraph at lines 198--225 \OT1/cmtt/m/n/10 set the number of completed steps in an accumulation cycle (e. g. for restart purposes) [222] Overfull \hbox (7.37616pt too wide) in paragraph at lines 268--283 \OT1/cmtt/m/n/10 This routine allocates space for the output simple Accumulator argument aC, and sets Overfull \hbox (7.37616pt too wide) in paragraph at lines 268--283 \OT1/cmtt/m/n/10 the \OT1/cmtt/m/it/10 length \OT1/cmtt/m/n/10 of the Accumulat or register buffer (defined by the input INTEGER argument Overfull \hbox (28.37598pt too wide) in paragraph at lines 268--283 \OT1/cmtt/m/n/10 lsize). If one wishes to accumulate integer fields, the list o f these fields is defined Overfull \hbox (12.62611pt too wide) in paragraph at lines 268--283 \OT1/cmtt/m/n/10 by the input CHARACTER argument iList, which is specified as a colon-delimited set of Overfull \hbox (11.15611pt too wide) in paragraph at lines 268--283 \OT1/cmtt/m/n/10 substrings (further information regarding this is available in the routine init[]() of Overfull \hbox (47.90579pt too wide) in paragraph at lines 268--283 \OT1/cmtt/m/n/10 the module m[]AttrVect). If no value of iList is supplied, no integer attribute accumulation Overfull \hbox (44.12584pt too wide) in paragraph at lines 268--283 \OT1/cmtt/m/n/10 buffers will be allocated. The input argument rList define the names of the real variables Overfull \hbox (7.37616pt too wide) in paragraph at lines 268--283 \OT1/cmtt/m/n/10 to be accumulated. Finally, the user can manually set the numb er of completed steps Overfull \hbox (44.12584pt too wide) in paragraph at lines 268--283 \OT1/cmtt/m/n/10 in an accumulation cycle (e.g. for restart purposes) by supply ing a value for the optional [223] Overfull \hbox (28.37598pt too wide) in paragraph at lines 317--322 \OT1/cmtt/m/n/10 This routine is an internal service routine for use by the oth er initialization routines Overfull \hbox (49.3758pt too wide) in paragraph at lines 317--322 \OT1/cmtt/m/n/10 in this module. It sets up some---but not all---of the compone nts of the output Accumulator Overfull \hbox (16.62633pt too wide) in paragraph at lines 323--326 []\OT1/cmtt/m/n/10 aC%iAction, the array of accumlation actions for the integer attributes of aC (if Overfull \hbox (0.87646pt too wide) in paragraph at lines 326--329 []\OT1/cmtt/m/n/10 aC%rAction, the array of accumlation actions for the real at tributes of aC (if Overfull \hbox (9.90637pt too wide) in paragraph at lines 329--332 []\OT1/cmtt/m/n/10 aC%num[]steps, the number of steps in an accumulation cycle (if the input INTEGER Overfull \hbox (9.90637pt too wide) in paragraph at lines 332--335 []\OT1/cmtt/m/n/10 aC%steps[]done, the number of steps completed so far in an a ccumulation cycle (if Overfull \hbox (12.62611pt too wide) in paragraph at lines 366--375 \OT1/cmtt/m/n/10 This routine takes the integer and real attribute information (including accumulation Overfull \hbox (28.37598pt too wide) in paragraph at lines 366--375 \OT1/cmtt/m/n/10 action settings for each attribute) from a previously initiali zed Accumulator (the input Overfull \hbox (7.37616pt too wide) in paragraph at lines 366--375 \OT1/cmtt/m/n/10 argument bC), and uses it to create another Accumulator (the o utput argument aC). In Overfull \hbox (4.43616pt too wide) in paragraph at lines 366--375 \OT1/cmtt/m/n/10 the absence of the INTEGER input arguments lsize, num[]steps, and steps[]done, aC will Overfull \hbox (33.62593pt too wide) in paragraph at lines 366--375 \OT1/cmtt/m/n/10 inherit from bC its length, the number of steps in its accumul ation cycle, and the number [224] Overfull \hbox (38.87589pt too wide) in paragraph at lines 412--418 \OT1/cmtt/m/n/10 This routine takes the integer and real attribute information (including from a previously Overfull \hbox (2.1262pt too wide) in paragraph at lines 412--418 \OT1/cmtt/m/n/10 initialized AttributeVector (the input argument aV), and uses it to create a simple Overfull \hbox (7.37616pt too wide) in paragraph at lines 412--418 \OT1/cmtt/m/n/10 (sum only) Accumulator (the output argument aC). In the absenc e of the INTEGER input Overfull \hbox (2.1262pt too wide) in paragraph at lines 412--418 \OT1/cmtt/m/n/10 argument lsize, aC will inherit from Av its length. In the abs ence of the optional [225] Overfull \hbox (33.62593pt too wide) in paragraph at lines 448--456 \OT1/cmtt/m/n/10 This routine deallocates all allocated memory structures assoc iated with the input/output Overfull \hbox (7.37616pt too wide) in paragraph at lines 448--456 \OT1/cmtt/m/n/10 Accumulator argument aC. The success (failure) of this operati on is signified by the Overfull \hbox (0.6562pt too wide) in paragraph at lines 448--456 \OT1/cmtt/m/n/10 zero (non-zero) value of the optional INTEGER output argument stat. If clean[]() is Overfull \hbox (7.37616pt too wide) in paragraph at lines 448--456 \OT1/cmtt/m/n/10 invoked with stat present, it is the user's obligation to chec k this return code and Overfull \hbox (17.87607pt too wide) in paragraph at lines 448--456 \OT1/cmtt/m/n/10 act accordingly. If stat is not supplied and any of the deallo cation operations fail, Overfull \hbox (7.37616pt too wide) in paragraph at lines 486--494 \OT1/cmtt/m/n/10 This logical function returns a value of .TRUE. if the input A ccumulator argument aC Overfull \hbox (2.1262pt too wide) in paragraph at lines 486--494 \OT1/cmtt/m/n/10 is initialized correctly. The term "correctly initialized" mea ns there is internal Overfull \hbox (33.62593pt too wide) in paragraph at lines 486--494 \OT1/cmtt/m/n/10 consistency between the number of integer and real attributes in aC, and their respective Overfull \hbox (28.37598pt too wide) in paragraph at lines 486--494 \OT1/cmtt/m/n/10 data structures for accumulation registers, and accumulation a ction flags. The optional Overfull \hbox (11.15611pt too wide) in paragraph at lines 486--494 \OT1/cmtt/m/n/10 LOGICAL input argument die[]flag if present, can result in mes sages written to stderr: [226] Overfull \hbox (23.12602pt too wide) in paragraph at lines 500--505 \OT1/cmtt/m/n/10 Otherwise, inconsistencies in how aC is set up will result in termination with an error Overfull \hbox (16.40607pt too wide) in paragraph at lines 500--505 \OT1/cmtt/m/n/10 message. The optional CHARACTER input argument source[]name al lows the user to, in the Overfull \hbox (38.87589pt too wide) in paragraph at lines 500--505 \OT1/cmtt/m/n/10 event of error, generate traceback information (e.g., the name of the routine that invoked Overfull \hbox (54.62575pt too wide) in paragraph at lines 536--540 \OT1/cmtt/m/n/10 This INTEGER query function returns the number of data points for which the input Accumulator Overfull \hbox (7.37616pt too wide) in paragraph at lines 536--540 \OT1/cmtt/m/n/10 argument aC is performing accumulation. This value corresponds to the length of the [227] Overfull \hbox (12.62611pt too wide) in paragraph at lines 561--563 \OT1/cmtt/m/n/10 This INTEGER query function returns the number of time steps i n an accumulation cycle Overfull \hbox (12.62611pt too wide) in paragraph at lines 585--588 \OT1/cmtt/m/n/10 This INTEGER query function returns the of time steps that hav e been completed in the Overfull \hbox (7.37616pt too wide) in paragraph at lines 610--615 \OT1/cmtt/m/n/10 This INTEGER query function returns the number of integer attr ibutes that are stored Overfull \hbox (54.62575pt too wide) in paragraph at lines 610--615 \OT1/cmtt/m/n/10 in the input Accumulator argument aC. This value is equal to t he number of integer attributes [228] Overfull \hbox (7.37616pt too wide) in paragraph at lines 636--641 \OT1/cmtt/m/n/10 This INTEGER query function returns the number of real attribu tes that are stored in Overfull \hbox (23.12602pt too wide) in paragraph at lines 636--641 \OT1/cmtt/m/n/10 the input Accumulator argument aC. This value is equal to the number of real attributes Overfull \hbox (0.6562pt too wide) in paragraph at lines 662--665 \OT1/cmtt/m/n/10 This routine returns as a String (see the mpeu module m[]Strin g for information) the [229] Overfull \hbox (0.6562pt too wide) in paragraph at lines 690--693 \OT1/cmtt/m/n/10 This routine returns as a String (see the mpeu module m[]Strin g for information) the Overfull \hbox (33.62593pt too wide) in paragraph at lines 718--723 \OT1/cmtt/m/n/10 This INTEGER query function returns the index in the integer a ccumulation register buffer Overfull \hbox (28.37598pt too wide) in paragraph at lines 718--723 \OT1/cmtt/m/n/10 of the Accumulator argument aC the attribute named by the CHAR ACTER argument item. That Overfull \hbox (7.37616pt too wide) in paragraph at lines 726--731 \OT1/cmtt/m/n/10 The user may request traceback information (e.g., the name of the routine from which Overfull \hbox (17.87607pt too wide) in paragraph at lines 726--731 \OT1/cmtt/m/n/10 this one is called) by providing values for either of the opti onal CHARACTER arguments Overfull \hbox (26.90598pt too wide) in paragraph at lines 726--731 \OT1/cmtt/m/n/10 perrWith or dieWith In the event indexIA[]() can not find item in aC, the routine behaves Overfull \hbox (9.90637pt too wide) in paragraph at lines 732--734 []\OT1/cmtt/m/n/10 if neither perrWith nor dieWith are present, indexIA[]() ret urns a value of zero; [230] Overfull \hbox (16.62633pt too wide) in paragraph at lines 734--737 []\OT1/cmtt/m/n/10 if perrWith is present, but dieWith is not, an error message is written to stderr Overfull \hbox (21.87628pt too wide) in paragraph at lines 734--737 \OT1/cmtt/m/n/10 incorporating user-supplied traceback information stored in th e argument perrWith; Overfull \hbox (27.12624pt too wide) in paragraph at lines 737--740 []\OT1/cmtt/m/n/10 if dieWith is present, execution terminates with an error me ssage written to stderr Overfull \hbox (37.62614pt too wide) in paragraph at lines 737--740 \OT1/cmtt/m/n/10 that incorporates user-supplied traceback information stored i n the argument dieWith. Overfull \hbox (17.87607pt too wide) in paragraph at lines 766--771 \OT1/cmtt/m/n/10 This INTEGER query function returns the index in the real accu mulation register buffer Overfull \hbox (28.37598pt too wide) in paragraph at lines 766--771 \OT1/cmtt/m/n/10 of the Accumulator argument aC the attribute named by the CHAR ACTER argument item. That Overfull \hbox (7.37616pt too wide) in paragraph at lines 774--779 \OT1/cmtt/m/n/10 The user may request traceback information (e.g., the name of the routine from which Overfull \hbox (17.87607pt too wide) in paragraph at lines 774--779 \OT1/cmtt/m/n/10 this one is called) by providing values for either of the opti onal CHARACTER arguments Overfull \hbox (26.90598pt too wide) in paragraph at lines 774--779 \OT1/cmtt/m/n/10 perrWith or dieWith In the event indexRA[]() can not find item in aC, the routine behaves Overfull \hbox (9.90637pt too wide) in paragraph at lines 780--782 []\OT1/cmtt/m/n/10 if neither perrWith nor dieWith are present, indexRA[]() ret urns a value of zero; Overfull \hbox (16.62633pt too wide) in paragraph at lines 782--785 []\OT1/cmtt/m/n/10 if perrWith is present, but dieWith is not, an error message is written to stderr Overfull \hbox (21.87628pt too wide) in paragraph at lines 782--785 \OT1/cmtt/m/n/10 incorporating user-supplied traceback information stored in th e argument perrWith; Overfull \hbox (27.12624pt too wide) in paragraph at lines 785--788 []\OT1/cmtt/m/n/10 if dieWith is present, execution terminates with an error me ssage written to stderr Overfull \hbox (37.62614pt too wide) in paragraph at lines 785--788 \OT1/cmtt/m/n/10 that incorporates user-supplied traceback information stored i n the argument dieWith. [231] Overfull \hbox (70.37561pt too wide) in paragraph at lines 815--820 \OT1/cmtt/m/n/10 This routine extracts from the input Accumulator argument aC t he integer attribute corresponding Overfull \hbox (33.62593pt too wide) in paragraph at lines 815--820 \OT1/cmtt/m/n/10 to the tag defined in the input CHARACTER argument AttrTag, an d returns it in the INTEGER Overfull \hbox (13.14009pt too wide) in paragraph at lines 821--823 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine will fail if the AttrTag is not in the Accumulator List component Overfull \hbox (18.39005pt too wide) in paragraph at lines 824--832 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The flexibility of this routine regar ding the pointer association status of the Overfull \hbox (23.12602pt too wide) in paragraph at lines 824--832 \OT1/cmtt/m/n/10 output argument outVect means the user must invoke this routin e with care. If the user Overfull \hbox (7.37616pt too wide) in paragraph at lines 824--832 \OT1/cmtt/m/n/10 wishes this routine to fill a pre-allocated array, then obviou sly this array must be Overfull \hbox (7.37616pt too wide) in paragraph at lines 824--832 \OT1/cmtt/m/n/10 allocated prior to calling this routine. If the user wishes th at the routine \OT1/cmtt/m/it/10 create Overfull \hbox (38.87589pt too wide) in paragraph at lines 824--832 \OT1/cmtt/m/n/10 the output argument array outVect, then the user must ensure t his pointer is not allocated Overfull \hbox (7.89014pt too wide) in paragraph at lines 833--837 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If the user has relied on this routin e to allocate memory associated with the Overfull \hbox (7.37616pt too wide) in paragraph at lines 833--837 \OT1/cmtt/m/n/10 pointer outVect, then the user is responsible for deallocating this array once it is [232] Overfull \hbox (54.62575pt too wide) in paragraph at lines 868--873 \OT1/cmtt/m/n/10 This routine extracts from the input Accumulator argument aC t he real attribute corresponding Overfull \hbox (17.87607pt too wide) in paragraph at lines 868--873 \OT1/cmtt/m/n/10 to the tag defined in the input CHARACTER argument AttrTag, an d returns it in the REAL Overfull \hbox (13.14009pt too wide) in paragraph at lines 874--876 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine will fail if the AttrTag is not in the Accumulator List component Overfull \hbox (18.39005pt too wide) in paragraph at lines 877--885 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 The flexibility of this routine regar ding the pointer association status of the Overfull \hbox (23.12602pt too wide) in paragraph at lines 877--885 \OT1/cmtt/m/n/10 output argument outVect means the user must invoke this routin e with care. If the user Overfull \hbox (7.37616pt too wide) in paragraph at lines 877--885 \OT1/cmtt/m/n/10 wishes this routine to fill a pre-allocated array, then obviou sly this array must be Overfull \hbox (7.37616pt too wide) in paragraph at lines 877--885 \OT1/cmtt/m/n/10 allocated prior to calling this routine. If the user wishes th at the routine \OT1/cmtt/m/it/10 create Overfull \hbox (38.87589pt too wide) in paragraph at lines 877--885 \OT1/cmtt/m/n/10 the output argument array outVect, then the user must ensure t his pointer is not allocated Overfull \hbox (7.89014pt too wide) in paragraph at lines 886--890 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 If the user has relied on this routin e to allocate memory associated with the Overfull \hbox (7.37616pt too wide) in paragraph at lines 886--890 \OT1/cmtt/m/n/10 pointer outVect, then the user is responsible for deallocating this array once it is Overfull \hbox (38.87589pt too wide) in paragraph at lines 920--926 \OT1/cmtt/m/n/10 This routine imports data provided in the input INTEGER vector inVect into the Accumulator Overfull \hbox (7.37616pt too wide) in paragraph at lines 920--926 \OT1/cmtt/m/n/10 argument aC, storing it as the integer attribute corresponding to the tag defined in Overfull \hbox (33.62593pt too wide) in paragraph at lines 920--926 \OT1/cmtt/m/n/10 the input CHARACTER argument AttrTag. The input INTEGER argume nt lsize is used to ensure Overfull \hbox (13.14009pt too wide) in paragraph at lines 927--929 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine will fail if the AttrTag is not in the Accumulator List component [233] Overfull \hbox (23.12602pt too wide) in paragraph at lines 959--965 \OT1/cmtt/m/n/10 This routine imports data provided in the input REAL vector in Vect into the Accumulator Overfull \hbox (12.62611pt too wide) in paragraph at lines 959--965 \OT1/cmtt/m/n/10 argument aC, storing it as the real attribute corresponding to the tag defined in the Overfull \hbox (12.62611pt too wide) in paragraph at lines 959--965 \OT1/cmtt/m/n/10 input CHARACTER argument AttrTag. The input INTEGER argument l size is used to ensure Overfull \hbox (13.14009pt too wide) in paragraph at lines 966--968 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine will fail if the AttrTag is not in the Accumulator List component [234] Overfull \hbox (23.12602pt too wide) in paragraph at lines 998--1002 \OT1/cmtt/m/n/10 This subroutine clears the the Accumulator argument aC. This i s accomplished by setting Overfull \hbox (7.37616pt too wide) in paragraph at lines 998--1002 \OT1/cmtt/m/n/10 the number of completed steps in the accumulation cycle to zer o, and zeroing out all Overfull \hbox (16.40607pt too wide) in paragraph at lines 1022--1029 \OT1/cmtt/m/n/10 aCaCSharedAttrIndexList[]() takes a pair of user-supplied Accu mulator variables aC1 and Overfull \hbox (2.1262pt too wide) in paragraph at lines 1022--1029 \OT1/cmtt/m/n/10 aC2, and for choice of either REAL or INTEGER attributes (as s pecified literally in Overfull \hbox (23.12602pt too wide) in paragraph at lines 1022--1029 \OT1/cmtt/m/n/10 the input CHARACTER argument attrib) returns the number of sha red attributes NumShared, Overfull \hbox (17.87607pt too wide) in paragraph at lines 1022--1029 \OT1/cmtt/m/n/10 and arrays of indices Indices1 and Indices2 to their storage l ocations in aC1 and aC2, Overfull \hbox (23.64pt too wide) in paragraph at lines 1030--1033 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine returns two allocated ar rays---Indices1(:) and Indices2(:)---which Overfull \hbox (23.12602pt too wide) in paragraph at lines 1030--1033 \OT1/cmtt/m/n/10 must be deallocated once the user no longer needs them. Failur e to do this will create [235] Overfull \hbox (42.65584pt too wide) in paragraph at lines 1064--1071 \OT1/cmtt/m/n/10 aVaCSharedAttrIndexList[]() a user-supplied AttrVect variable aV and an Accumulator variable Overfull \hbox (12.62611pt too wide) in paragraph at lines 1064--1071 \OT1/cmtt/m/n/10 aC, and for choice of either REAL or INTEGER attributes (as ! specified literally in Overfull \hbox (23.12602pt too wide) in paragraph at lines 1064--1071 \OT1/cmtt/m/n/10 the input CHARACTER argument attrib) returns the number of sha red attributes NumShared, Overfull \hbox (7.37616pt too wide) in paragraph at lines 1064--1071 \OT1/cmtt/m/n/10 and arrays of indices Indices1 and Indices2 to their storage l ocations in aV and aC, Overfull \hbox (23.64pt too wide) in paragraph at lines 1072--1075 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine returns two allocated ar rays---Indices1(:) and Indices2(:)---which Overfull \hbox (23.12602pt too wide) in paragraph at lines 1072--1075 \OT1/cmtt/m/n/10 must be deallocated once the user no longer needs them. Failur e to do this will create [236] Overfull \hbox (7.37616pt too wide) in paragraph at lines 1110--1119 \OT1/cmtt/m/n/10 This routine performs time \OT1/cmtt/m/it/10 accumlation \OT1/ cmtt/m/n/10 of data present in an MCT field data AttrVect Overfull \hbox (44.12584pt too wide) in paragraph at lines 1110--1119 \OT1/cmtt/m/n/10 variable aV and combines it with the running tallies stored in the MCT Accumulator variable Overfull \hbox (2.1262pt too wide) in paragraph at lines 1110--1119 \OT1/cmtt/m/n/10 aC. This routine automatically identifies which fields are hel d in common by aV and Overfull \hbox (12.62611pt too wide) in paragraph at lines 1110--1119 \OT1/cmtt/m/n/10 aC and uses the accumulation action information stored in aC t o decide how each field Overfull \hbox (7.37616pt too wide) in paragraph at lines 1110--1119 \OT1/cmtt/m/n/10 in aV is to be combined into its corresponding running tally i n aC. The accumulation Overfull \hbox (15.99628pt too wide) in paragraph at lines 1121--1123 []\OT1/cmtt/m/n/10 MCT[]AVG: Same as MCT[]SUM except when steps[]done is equal to num[]steps then perform Overfull \hbox (12.62611pt too wide) in paragraph at lines 1125--1127 []\OT1/cmtt/m/n/10 This routine also automatically increments the counter in aC signifying the number of Overfull \hbox (12.62611pt too wide) in paragraph at lines 1128--1130 []\OT1/cmtt/m/n/10 NOTE: The user must reset (zero) the Accumulator after the a verage has been formed or [237] Overfull \hbox (2.1262pt too wide) in paragraph at lines 1167--1170 \OT1/cmtt/m/n/10 This routine will compute the average of the current values in an Accumulator using ) [238] (./texsrc/m_AccumulatorComms.tex Overfull \hbox (81.68867pt too wide) in paragraph at lines 48--48 \OT1/cmr/bx/n/12 ni-ca-tion Meth-ods for the Ac-cu-mu-la-tor (Source File: m[]A ccumulatorComms.F90) Overfull \hbox (42.65584pt too wide) in paragraph at lines 54--67 \OT1/cmtt/m/n/10 This module contains communications methods for the Accumulato r datatype (see m[]Accumulator Overfull \hbox (2.1262pt too wide) in paragraph at lines 54--67 \OT1/cmtt/m/n/10 for details). MCT's communications are implemented in terms of the Message Passing Overfull \hbox (23.12602pt too wide) in paragraph at lines 54--67 \OT1/cmtt/m/n/10 Interface (MPI) standard, and we have as best as possible, mad e the interfaces to these Overfull \hbox (70.37561pt too wide) in paragraph at lines 54--67 \OT1/cmtt/m/n/10 routines appear as similar as possible to the corresponding MP I routines. For the Accumulator, Overfull \hbox (17.87607pt too wide) in paragraph at lines 54--67 \OT1/cmtt/m/n/10 we currently support only the following collective operations: broadcast, gather, and Overfull \hbox (7.37616pt too wide) in paragraph at lines 54--67 \OT1/cmtt/m/n/10 scatter. The gather and scatter operations rely on domain deco mposition descriptors Overfull \hbox (38.87589pt too wide) in paragraph at lines 54--67 \OT1/cmtt/m/n/10 that are defined elsewhere in MCT: the GlobalMap, which is a o ne-dimensional decomposition Overfull \hbox (0.6562pt too wide) in paragraph at lines 54--67 \OT1/cmtt/m/n/10 (see the MCT module m[]GlobalMap for more details); and the Gl obalSegMap, which is a Overfull \hbox (7.37616pt too wide) in paragraph at lines 54--67 \OT1/cmtt/m/n/10 segmented decomposition capable of supporting multidimensional domain decompositions [239] Overfull \hbox (11.15611pt too wide) in paragraph at lines 117--124 \OT1/cmtt/m/n/10 GM[]gather() takes a distributed (across communicator associat ed with the handle comm) Overfull \hbox (12.62611pt too wide) in paragraph at lines 117--124 \OT1/cmtt/m/n/10 input Accumulator argument iC and gathers its data to the Accu mulator oC on the root. Overfull \hbox (23.12602pt too wide) in paragraph at lines 117--124 \OT1/cmtt/m/n/10 The decomposition of iC is described by the input GlobalMap ar gument Gmap. The success Overfull \hbox (7.37616pt too wide) in paragraph at lines 117--124 \OT1/cmtt/m/n/10 (failure) of this operation is signified by the zero (nonzero) value of the optional Overfull \hbox (6.85559pt too wide) in paragraph at lines 163--163 []\OT1/cmr/bx/n/12 GSM[]gather[] - Gather Ac-cu-mu-la-tor Dis-tributed by a Glo b-alSegMap Overfull \hbox (54.62575pt too wide) in paragraph at lines 166--173 \OT1/cmtt/m/n/10 This routine takes the distrubuted (on the associated with the handle comm) input Accumulator Overfull \hbox (2.1262pt too wide) in paragraph at lines 166--173 \OT1/cmtt/m/n/10 argument iC gathers it to the the Accumulator argument oC (val id only on the root). Overfull \hbox (38.87589pt too wide) in paragraph at lines 166--173 \OT1/cmtt/m/n/10 The decompositon of iC is contained in the input GlobalSegMap argument GSMap. The success Overfull \hbox (7.37616pt too wide) in paragraph at lines 166--173 \OT1/cmtt/m/n/10 (failure) of this operation is signified by the zero (nonzero) returned value of the [240] Overfull \hbox (12.62611pt too wide) in paragraph at lines 212--220 \OT1/cmtt/m/n/10 This routine takes the input Accumulator iC (valid only on the root), and scatters it Overfull \hbox (49.3758pt too wide) in paragraph at lines 212--220 \OT1/cmtt/m/n/10 to the distributed Accumulator argument oC on the processes as sociated with the communicator Overfull \hbox (44.12584pt too wide) in paragraph at lines 212--220 \OT1/cmtt/m/n/10 handle comm. The decompositon used to scatter the data is cont ained in the input GlobalMap Overfull \hbox (38.87589pt too wide) in paragraph at lines 212--220 \OT1/cmtt/m/n/10 argument GMap. The success (failure) of this operation is sign ified by the zero (nonzero) [241] Overfull \hbox (12.62611pt too wide) in paragraph at lines 262--270 \OT1/cmtt/m/n/10 This routine takes the input Accumulator iC (valid only on the root), and scatters it Overfull \hbox (49.3758pt too wide) in paragraph at lines 262--270 \OT1/cmtt/m/n/10 to the distributed Accumulator argument oC on the processes as sociated with the communicator Overfull \hbox (59.8757pt too wide) in paragraph at lines 262--270 \OT1/cmtt/m/n/10 handle comm. The decompositon used to scatter the data is cont ained in the input GlobalSegMap Overfull \hbox (44.12584pt too wide) in paragraph at lines 262--270 \OT1/cmtt/m/n/10 argument GSMap. The success (failure) of this operation is sig nified by the zero (nonzero) [242] Overfull \hbox (54.62575pt too wide) in paragraph at lines 308--313 \OT1/cmtt/m/n/10 This routine takes the input Accumulator aC (on input valid on ly on the root), and broadcasts Overfull \hbox (49.3758pt too wide) in paragraph at lines 308--313 \OT1/cmtt/m/n/10 it to all the processes associated with the communicator handl e comm. The success (failure) Overfull \hbox (23.12602pt too wide) in paragraph at lines 308--313 \OT1/cmtt/m/n/10 of this operation is signified by the zero (nonzero) returned value of the INTEGER flag [243] Overfull \hbox (7.37616pt too wide) in paragraph at lines 348--351 \OT1/cmtt/m/n/10 This routine broadcasts all components of the accumulator aC e xcept for aCto be used ) [244] (./texsrc/m_GlobalToLocal.tex Overfull \hbox (2.1262pt too wide) in paragraph at lines 52--59 \OT1/cmtt/m/n/10 This module contains routines for translating global array ind ices into their local Overfull \hbox (33.62593pt too wide) in paragraph at lines 52--59 \OT1/cmtt/m/n/10 counterparts (that is, the indices into the local data structu re holding a given process' Overfull \hbox (17.87607pt too wide) in paragraph at lines 52--59 \OT1/cmtt/m/n/10 chunk of a distributed array). The MCT domain decomposition de scriptors GlobalMap and Overfull \hbox (2.1262pt too wide) in paragraph at lines 52--59 \OT1/cmtt/m/n/10 GlobalSegMap are both supported. Indices can be translated one -at-a-time using the Overfull \hbox (12.62611pt too wide) in paragraph at lines 60--63 []\OT1/cmtt/m/n/10 This module also provides facilities for setting the local r ow and column indices for [245] Overfull \hbox (53.15575pt too wide) in paragraph at lines 116--122 \OT1/cmtt/m/n/10 GlobalSegMapToIndices[]() takes a GlobalSegMap data type GSMap , which desribes a decomposition Overfull \hbox (44.12584pt too wide) in paragraph at lines 116--122 \OT1/cmtt/m/n/10 on the input MPI communicator corresponding to the Fortran INT EGER handle comm to translate Overfull \hbox (17.87607pt too wide) in paragraph at lines 116--122 \OT1/cmtt/m/n/10 the global directory of segment locations into local indices f or referencing the on-pe Overfull \hbox (23.64pt too wide) in paragraph at lines 123--126 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine returns two allocated ar rays---start(:) and length(:)---which must Overfull \hbox (7.37616pt too wide) in paragraph at lines 123--126 \OT1/cmtt/m/n/10 be deallocated once the user no longer needs them. Failure to do this will create a Overfull \hbox (70.37561pt too wide) in paragraph at lines 157--164 \OT1/cmtt/m/n/10 This INTEGER query function takes a GlobalSegMap data type GSM ap, which desribes a decomposition Overfull \hbox (2.1262pt too wide) in paragraph at lines 157--164 \OT1/cmtt/m/n/10 on the input MPI communicator corresponding to the Fortran INT EGER handle comm, and Overfull \hbox (21.65602pt too wide) in paragraph at lines 157--164 \OT1/cmtt/m/n/10 the input global index value i[]g, and returns a positive loca l index value if the datum Overfull \hbox (25.43597pt too wide) in paragraph at lines 157--164 \OT1/cmtt/m/n/10 i[]g. If the datum i[]g is not stored on the local process ID, a value of -1 is returned. [246] Overfull \hbox (28.37598pt too wide) in paragraph at lines 193--199 \OT1/cmtt/m/n/10 Given a GlobalSegMap data type and MPI communicator correspond ing to the Fortran INTEGER Overfull \hbox (5.90616pt too wide) in paragraph at lines 193--199 \OT1/cmtt/m/n/10 handle comm, convert an array of global index values i[]global () to an array of local Overfull \hbox (4.43616pt too wide) in paragraph at lines 193--199 \OT1/cmtt/m/n/10 index values i[]local(). If the datum i[]global(j) is not stor ed on the local process Overfull \hbox (28.37598pt too wide) in paragraph at lines 232--239 \OT1/cmtt/m/n/10 This INTEGER query function takes as its input a user-supplied GlobalMap data type GMap, Overfull \hbox (33.62593pt too wide) in paragraph at lines 232--239 \OT1/cmtt/m/n/10 which desribes a decomposition on the input MPI communicator c orresponding to the Fortran Overfull \hbox (21.65602pt too wide) in paragraph at lines 232--239 \OT1/cmtt/m/n/10 INTEGER handle comm, and the input global index value i[]g, an d returns a positive local Overfull \hbox (14.93607pt too wide) in paragraph at lines 232--239 \OT1/cmtt/m/n/10 index value if the datum i[]g. If the datum i[]g is not stored on the local process ID, [247] Overfull \hbox (2.1262pt too wide) in paragraph at lines 267--274 \OT1/cmtt/m/n/10 This routine takes as its input takes a user-supplied GlobalSe gMap data type GSMap, Overfull \hbox (33.62593pt too wide) in paragraph at lines 267--274 \OT1/cmtt/m/n/10 which desribes a decomposition on the input MPI communicator c orresponding to the Fortran Overfull \hbox (12.62611pt too wide) in paragraph at lines 267--274 \OT1/cmtt/m/n/10 INTEGER handle comm, and returns the local segment start index and length information Overfull \hbox (38.87589pt too wide) in paragraph at lines 267--274 \OT1/cmtt/m/n/10 for referencing the on-pe storage of the mapped distributed da ta. These data are returned Overfull \hbox (7.89014pt too wide) in paragraph at lines 275--278 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine returns a Navigator vari able Nav, which must be deallocated once [248] Overfull \hbox (28.37598pt too wide) in paragraph at lines 311--324 \OT1/cmtt/m/n/10 This routine takes as its input a user-supplied GlobalSegMap d omain decomposition GSMap, Overfull \hbox (2.1262pt too wide) in paragraph at lines 311--324 \OT1/cmtt/m/n/10 which describes the decomposition of either the rows or column s of the input/output Overfull \hbox (23.12602pt too wide) in paragraph at lines 311--324 \OT1/cmtt/m/n/10 SparseMatrix argument sMat on the communicator associated with the INTEGER handle comm, Overfull \hbox (28.37598pt too wide) in paragraph at lines 311--324 \OT1/cmtt/m/n/10 and to translate the global row or column indices of sMat into their local counterparts. Overfull \hbox (44.12584pt too wide) in paragraph at lines 311--324 \OT1/cmtt/m/n/10 The choice of either row or column is governed by the value of the input CHARACTER argument Overfull \hbox (2.1262pt too wide) in paragraph at lines 311--324 \OT1/cmtt/m/n/10 RCFlag. One sets this variable to either 'ROW' or 'row' to spe cify row re-indexing Overfull \hbox (12.62611pt too wide) in paragraph at lines 311--324 \OT1/cmtt/m/n/10 (which are stored in sMat and retrieved by indexing the attrib ute lrow), and 'COLUMN' Overfull \hbox (7.37616pt too wide) in paragraph at lines 311--324 \OT1/cmtt/m/n/10 or 'column' to specify column re-indexing (which are stored in sMat and retrieved by [249]) [250] (./texsrc/m_ConvertMaps.tex Overfull \hbox (54.28166pt too wide) in paragraph at lines 48--48 \OT1/cmr/bx/n/12 MCT Do-main De-com-po-si-tion De-scrip-tors (Source File: m[]C onvertMaps.F90) Overfull \hbox (17.87607pt too wide) in paragraph at lines 53--60 \OT1/cmtt/m/n/10 This module contains routines to convert between the GlobalMap and GlobalSegMap types. Overfull \hbox (2.1262pt too wide) in paragraph at lines 53--60 \OT1/cmtt/m/n/10 Since the GlobalMap is a 1-D decomposition with one contiguous segment per process, Overfull \hbox (54.62575pt too wide) in paragraph at lines 53--60 \OT1/cmtt/m/n/10 it is always possible to create a GlobalSegMap containing the same decomposition information. Overfull \hbox (12.62611pt too wide) in paragraph at lines 53--60 \OT1/cmtt/m/n/10 In the unusual case that a GlobalSegMap contains \OT1/cmtt/m/i t/10 at most \OT1/cmtt/m/n/10 one segment per process, and Overfull \hbox (70.37561pt too wide) in paragraph at lines 53--60 \OT1/cmtt/m/n/10 no two segments overlap, it is possible to create a GlobalMap describing the same decomposition. Overfull \hbox (6.5386pt too wide) in paragraph at lines 90--90 []\OT1/cmr/bx/n/12 GlobalMapToGlobalSegMap[] - Con-vert Glob-alMap to Glob-alSe gMap Overfull \hbox (2.1262pt too wide) in paragraph at lines 94--99 \OT1/cmtt/m/n/10 This routine takes an input GlobalMap argument GMap, and conve rts its decomposition Overfull \hbox (23.12602pt too wide) in paragraph at lines 94--99 \OT1/cmtt/m/n/10 information into the output GlobalSegMap argument GSMap. Since the GlobalMap is a very Overfull \hbox (17.87607pt too wide) in paragraph at lines 94--99 \OT1/cmtt/m/n/10 special case of the more general GlobalSegMap decomposition, t his conversion is always Overfull \hbox (33.62593pt too wide) in paragraph at lines 100--106 []\OT1/cmtt/m/n/10 The motivation of this routine is the fact that the majority of the APIs for MCT services Overfull \hbox (28.37598pt too wide) in paragraph at lines 100--106 \OT1/cmtt/m/n/10 require the user to supply a GlobalSegMap as a domain decompos ition descriptor argument. Overfull \hbox (7.37616pt too wide) in paragraph at lines 100--106 \OT1/cmtt/m/n/10 This routine is the means by which the user can enjoy the conv enience and simplicity Overfull \hbox (17.87607pt too wide) in paragraph at lines 100--106 \OT1/cmtt/m/n/10 of the GlobalMap datatype (where it is appropriate), but still access all of the MCT's Overfull \hbox (18.39005pt too wide) in paragraph at lines 107--111 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine creates an allocated str ucture GSMap. The user is responsible for Overfull \hbox (2.1262pt too wide) in paragraph at lines 107--111 \OT1/cmtt/m/n/10 deleting this structure using the clean() method for the Globa lSegMap when GSMap is [251] Overfull \hbox (6.5386pt too wide) in paragraph at lines 143--143 []\OT1/cmr/bx/n/12 GlobalSegMapToGlobalMap[] - Con-vert Glob-alSegMap to Glob-a lMap Overfull \hbox (12.62611pt too wide) in paragraph at lines 147--151 \OT1/cmtt/m/n/10 This routine takes an input GlobalSegMap argument GSMap, and e xamines it to determine Overfull \hbox (17.87607pt too wide) in paragraph at lines 147--151 \OT1/cmtt/m/n/10 whether or not it may be expressed in GlobalMap form. A Global SegMap can be converted Overfull \hbox (16.62633pt too wide) in paragraph at lines 152--154 []\OT1/cmtt/m/n/10 Each process on the communicator covered by the GlobalSegMap contains \OT1/cmtt/m/it/10 at most one Overfull \hbox (27.12624pt too wide) in paragraph at lines 156--158 []\OT1/cmtt/m/n/10 The start indices of the segments are in the same order as t heir respective process Overfull \hbox (32.15593pt too wide) in paragraph at lines 159--164 \OT1/cmtt/m/n/10 If these conditions are satisfied, GlobalSegMapToGlobalMap[]() creates an output GlobalMap Overfull \hbox (17.87607pt too wide) in paragraph at lines 159--164 \OT1/cmtt/m/n/10 argument GMap describing the same decomposition as GSMap. If t hese conditions are not Overfull \hbox (16.40607pt too wide) in paragraph at lines 159--164 \OT1/cmtt/m/n/10 satisfied, map conversion can not occur, and GlobalSegMapToGlo balMap[]() has one of two Overfull \hbox (41.4061pt too wide) in paragraph at lines 165--168 []\OT1/cmtt/m/n/10 If the optional output INTEGER argument status is provided, GlobalSegMapToGlobalMap[]() Overfull \hbox (0.87646pt too wide) in paragraph at lines 168--170 []\OT1/cmtt/m/n/10 If the optional output INTEGER argument status is not provid ed, execution will Overfull \hbox (116.1552pt too wide) in paragraph at lines 172--194 []\OT1/cmtt/m/n/10 The optional output INTEGER argument status, if provided wil l be returned from GlobalSegMapToGlobalMap[]() Overfull \hbox (13.14009pt too wide) in paragraph at lines 195--199 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine creates an allocated str ucture GMap. The user is responsible for Overfull \hbox (33.62593pt too wide) in paragraph at lines 195--199 \OT1/cmtt/m/n/10 deleting this structure using the clean() method for the Globa lMap when GMap is no longer [252]) [253] (./texsrc/m_String.tex Overfull \hbox (2.1262pt too wide) in paragraph at lines 52--55 \OT1/cmtt/m/n/10 The String datatype is an encapsulated pointer to a one-dimens ional array of single Overfull \hbox (54.62575pt too wide) in paragraph at lines 52--55 \OT1/cmtt/m/n/10 characters. This allows one to define variable-length strings, and arrays of variable-length [254] Overfull \hbox (23.12602pt too wide) in paragraph at lines 156--159 \OT1/cmtt/m/n/10 This function returns the contents of the character buffer of the input String argument [255] Overfull \hbox (2.1262pt too wide) in paragraph at lines 183--185 \OT1/cmtt/m/n/10 This function takes an input one-dimensional array of single c haracters and returns Overfull \hbox (7.37616pt too wide) in paragraph at lines 209--211 \OT1/cmtt/m/n/10 This routine takes an input scalar CHARACTER argument chr, and uses it to create the [256] Overfull \hbox (28.37598pt too wide) in paragraph at lines 236--238 \OT1/cmtt/m/n/10 This routine takes an input CHARACTER(:) argument chr, and use s it to create the output Overfull \hbox (17.87607pt too wide) in paragraph at lines 263--266 \OT1/cmtt/m/n/10 This routine takes an input String argument iStr and creates a n output String argument [257] Overfull \hbox (12.62611pt too wide) in paragraph at lines 292--295 \OT1/cmtt/m/n/10 This routine deallocates memory associated with the input/outp ut String argument str. Overfull \hbox (2.1262pt too wide) in paragraph at lines 318--326 \OT1/cmtt/m/n/10 This routine performs an MPI broadcast of the input/output Str ing argument Str on a Overfull \hbox (23.12602pt too wide) in paragraph at lines 318--326 \OT1/cmtt/m/n/10 communicator associated with the Fortran integer handle comm. The broadcast originates Overfull \hbox (17.87607pt too wide) in paragraph at lines 318--326 \OT1/cmtt/m/n/10 from the process with rank given by root on comm. The String a rgument Str is on entry Overfull \hbox (33.62593pt too wide) in paragraph at lines 318--326 \OT1/cmtt/m/n/10 valid only on the root process, and is valid on exit on all pr ocesses on the communicator Overfull \hbox (7.37616pt too wide) in paragraph at lines 318--326 \OT1/cmtt/m/n/10 comm. The success (failure) is signified by a zero (non-zero) value of the optional [258] [259] [260] [261] [262] Overfull \hbox (2.1262pt too wide) in paragraph at lines 571--574 \OT1/cmtt/m/n/10 This pointer-valued function provides a direct interface to th e character buffer in ) [263] (./texsrc/m_List.tex Overfull \hbox (7.37616pt too wide) in paragraph at lines 51--59 \OT1/cmtt/m/n/10 A \OT1/cmtt/m/it/10 List \OT1/cmtt/m/n/10 is a character buffe r comprising substrings called \OT1/cmtt/m/it/10 items \OT1/cmtt/m/n/10 separat ed by colons, Overfull \hbox (12.62611pt too wide) in paragraph at lines 51--59 \OT1/cmtt/m/n/10 combined with indexing information describing (1) the starting point in the character Overfull \hbox (12.62611pt too wide) in paragraph at lines 51--59 \OT1/cmtt/m/n/10 buffer of each substring, and (2) the length of each substring . The only constraints Overfull \hbox (44.12584pt too wide) in paragraph at lines 51--59 \OT1/cmtt/m/n/10 on the valid list items are (1) the value of an item does not contain the ``[][]:[]'' delimitter, Overfull \hbox (7.37616pt too wide) in paragraph at lines 51--59 \OT1/cmtt/m/n/10 and (2) leading and trailing blanks are stripped from any char acter string presented Overfull \hbox (33.2233pt too wide) in paragraph at lines 60--64 []\OT1/cmr/bx/n/10 Example: \OT1/cmtt/m/n/10 Suppose we wish to define a List c ontaining the items 'latitude', 'longitude', Overfull \hbox (7.37616pt too wide) in paragraph at lines 60--64 \OT1/cmtt/m/n/10 and 'pressure'. The character buffer of the List containing th ese items will be the [264] [265] Overfull \hbox (2.1262pt too wide) in paragraph at lines 200--209 \OT1/cmtt/m/n/10 A list is a string in the form of ``[][]Larry:Moe:Curly[]'', o r ``[][]lat:lon:lev[]'', combined Overfull \hbox (12.62611pt too wide) in paragraph at lines 200--209 \OT1/cmtt/m/n/10 with substring location and length information. Through the in itialization call, the Overfull \hbox (49.3758pt too wide) in paragraph at lines 200--209 \OT1/cmtt/m/n/10 items delimited by ``[][]:[]'' are stored as an array of sub- strings of a long string, accessible Overfull \hbox (38.87589pt too wide) in paragraph at lines 200--209 \OT1/cmtt/m/n/10 through an array of substring indices. The only constraints no w on the valid list entries Overfull \hbox (44.12584pt too wide) in paragraph at lines 200--209 \OT1/cmtt/m/n/10 are, (1) the value of an entry does not contain ``[][]:[]'', a nd (2) The leading and the trailing Overfull \hbox (2.1262pt too wide) in paragraph at lines 213--215 \OT1/cmtt/m/n/10 will result in aList having four items: 'batman', 'SUPERMAN', 'Green Lantern', and Overfull \hbox (11.15611pt too wide) in paragraph at lines 243--249 \OT1/cmtt/m/n/10 This routine initializes a List datatype given an input String datatype (see m[]String Overfull \hbox (44.12584pt too wide) in paragraph at lines 243--249 \OT1/cmtt/m/n/10 for more information regarding the String type). The contents of the input String argument Overfull \hbox (17.87607pt too wide) in paragraph at lines 243--249 \OT1/cmtt/m/n/10 pstr must adhere to the restrictions stated for character inpu t stated in the prologue [266] Overfull \hbox (17.87607pt too wide) in paragraph at lines 273--286 \OT1/cmtt/m/n/10 This routine initializes a List datatype given as input array of String datatypes (see Overfull \hbox (16.40607pt too wide) in paragraph at lines 273--286 \OT1/cmtt/m/n/10 m[]String for more information regarding the String type). The contents of each String Overfull \hbox (7.37616pt too wide) in paragraph at lines 273--286 \OT1/cmtt/m/n/10 element of the input array strs must adhere to the restriction s stated for character Overfull \hbox (11.15611pt too wide) in paragraph at lines 273--286 \OT1/cmtt/m/n/10 input stated in the prologue of the routine init[]() in this m odule. Specifically, no Overfull \hbox (12.62611pt too wide) in paragraph at lines 273--286 \OT1/cmtt/m/n/10 element in strs may contain the colon [][]: []delimiter, and a ny leading or trailing blanks Overfull \hbox (28.37598pt too wide) in paragraph at lines 273--286 \OT1/cmtt/m/n/10 will be stripped (though embedded blank spaces will be retaine d). For example, consider Overfull \hbox (53.15575pt too wide) in paragraph at lines 273--286 \OT1/cmtt/m/n/10 an invocation of initStr1[]() where the array strs(:) contains four entries: strs(1)='John', Overfull \hbox (7.37616pt too wide) in paragraph at lines 273--286 \OT1/cmtt/m/n/10 strs(2)=' Paul', strs(3)='George ', and strs(4)=' Ringo'. The resulting List output [267] Overfull \hbox (17.87607pt too wide) in paragraph at lines 315--321 \OT1/cmtt/m/n/10 This routine deallocates the allocated memory of the input/out put List argument aList. Overfull \hbox (2.1262pt too wide) in paragraph at lines 315--321 \OT1/cmtt/m/n/10 Specifically, it deallocates aList%bf and aList%lc. If the opt ional output INTEGER Overfull \hbox (44.12584pt too wide) in paragraph at lines 315--321 \OT1/cmtt/m/n/10 arguemnt stat is supplied, no warning will be printed if the F ortran intrinsic deallocate() Overfull \hbox (2.1262pt too wide) in paragraph at lines 347--355 \OT1/cmtt/m/n/10 In Fortran 90, pointers may have three states: (1) ASSOCIATED, that is the pointer Overfull \hbox (7.37616pt too wide) in paragraph at lines 347--355 \OT1/cmtt/m/n/10 is pointing at a target, (2) UNASSOCIATED, and (3) UNINITIALIZ ED. On some platforms, Overfull \hbox (49.3758pt too wide) in paragraph at lines 347--355 \OT1/cmtt/m/n/10 the Fortran intrinsic function associated() will view uninitia lized pointers as UNASSOCIATED Overfull \hbox (12.62611pt too wide) in paragraph at lines 347--355 \OT1/cmtt/m/n/10 by default. This is not always the case. It is good programmin g practice to nullify Overfull \hbox (7.37616pt too wide) in paragraph at lines 347--355 \OT1/cmtt/m/n/10 pointers if they are not to be used. This routine nullifies th e pointers present in [268] Overfull \hbox (2.1262pt too wide) in paragraph at lines 377--379 \OT1/cmtt/m/n/10 This function enumerates the number of items in the input List argument aList. For Overfull \hbox (12.62611pt too wide) in paragraph at lines 409--413 \OT1/cmtt/m/n/10 This function returns the rank of an item (defined by the CHAR ACTER argument item) in Overfull \hbox (23.12602pt too wide) in paragraph at lines 409--413 \OT1/cmtt/m/n/10 the input List argument aList. If item is not present in aList , then zero is returned. [269] Overfull \hbox (0.6562pt too wide) in paragraph at lines 441--450 \OT1/cmtt/m/n/10 This function performs the same operation as the function inde x[](), but the item to Overfull \hbox (32.15593pt too wide) in paragraph at lines 441--450 \OT1/cmtt/m/n/10 be indexed is instead presented in the form of a String dataty pe (see the module m[]String Overfull \hbox (12.62611pt too wide) in paragraph at lines 441--450 \OT1/cmtt/m/n/10 for more information about the String type). This routine sear ches through the input Overfull \hbox (28.37598pt too wide) in paragraph at lines 441--450 \OT1/cmtt/m/n/10 List argument aList for an item that matches the item defined by itemStr, and if a match Overfull \hbox (12.62611pt too wide) in paragraph at lines 441--450 \OT1/cmtt/m/n/10 is found, the rank of the item in the list is returned (see al so the prologue for the Overfull \hbox (11.15611pt too wide) in paragraph at lines 441--450 \OT1/cmtt/m/n/10 routine index[]() in this module). If no match is found, a val ue of zero is returned. Overfull \hbox (17.87607pt too wide) in paragraph at lines 474--479 \OT1/cmtt/m/n/10 This function checks the input List argument inList to determi ne whether or not it has Overfull \hbox (23.12602pt too wide) in paragraph at lines 474--479 \OT1/cmtt/m/n/10 been allocated. It does this by invoking the Fortran90 intrins ic function associated() Overfull \hbox (2.1262pt too wide) in paragraph at lines 474--479 \OT1/cmtt/m/n/10 on the pointers inList%bf and inList%lc. If both of these poin ters are associated, Overfull \hbox (13.14009pt too wide) in paragraph at lines 480--487 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 In Fortran90, pointers have three dif ferent states: ASSOCIATED, UNASSOCIATED, Overfull \hbox (2.1262pt too wide) in paragraph at lines 480--487 \OT1/cmtt/m/n/10 and UNDEFINED. If a pointer is UNDEFINED, this function may re turn either .TRUE. or Overfull \hbox (23.12602pt too wide) in paragraph at lines 480--487 \OT1/cmtt/m/n/10 .FALSE. values, depending on the Fortran90 compiler. To avoid such problems, we advise Overfull \hbox (44.12584pt too wide) in paragraph at lines 480--487 \OT1/cmtt/m/n/10 that users invoke the List method nullify() to nullify any Lis t pointers for List variables [270] Overfull \hbox (2.1262pt too wide) in paragraph at lines 511--513 \OT1/cmtt/m/n/10 This routine copies the contents of the input List argument xL into the output List [271] Overfull \hbox (28.37598pt too wide) in paragraph at lines 545--549 \OT1/cmtt/m/n/10 This function returns the character buffer portion the input L ist argument inList---that Overfull \hbox (2.1262pt too wide) in paragraph at lines 545--549 \OT1/cmtt/m/n/10 is, the contents of inList%bf---as a CHARACTER (suitable for p rinting). An example Overfull \hbox (28.37598pt too wide) in paragraph at lines 586--593 \OT1/cmtt/m/n/10 This function returns the character buffer portion the input L ist argument inList---that Overfull \hbox (58.4057pt too wide) in paragraph at lines 586--593 \OT1/cmtt/m/n/10 is, the contents of inList%bf---as a String (see the mpeu modu le m[]String for more information Overfull \hbox (65.12566pt too wide) in paragraph at lines 586--593 \OT1/cmtt/m/n/10 regarding the String type). This function was created to circu mvent problems with implementing Overfull \hbox (21.65602pt too wide) in paragraph at lines 586--593 \OT1/cmtt/m/n/10 inheritance of the function exportToChar[]() to other datatype s build on top of the List [272] Overfull \hbox (44.12584pt too wide) in paragraph at lines 624--629 \OT1/cmtt/m/n/10 This function returns the length of the character buffer porti on of the input List argument Overfull \hbox (12.62611pt too wide) in paragraph at lines 624--629 \OT1/cmtt/m/n/10 inList (that is, the number of characters stored in inList%bf) as an INTEGER. Suppose Overfull \hbox (11.15611pt too wide) in paragraph at lines 624--629 \OT1/cmtt/m/n/10 for the sake of argument that inList was created using the fol lowing call to init[](): Overfull \hbox (21.65602pt too wide) in paragraph at lines 632--634 \OT1/cmtt/m/n/10 Then, using the above example value of inList, we can use Char BufferSize[]() as follows: Overfull \hbox (23.12602pt too wide) in paragraph at lines 664--671 \OT1/cmtt/m/n/10 This routine retrieves a numbered item (defined by the input I NTEGER argument ith) from Overfull \hbox (2.1262pt too wide) in paragraph at lines 664--671 \OT1/cmtt/m/n/10 the input List argument aList, and returns it in the output St ring argument itemStr Overfull \hbox (16.40607pt too wide) in paragraph at lines 664--671 \OT1/cmtt/m/n/10 (see the module m[]String for more information about the Strin g type). If the argument Overfull \hbox (12.62611pt too wide) in paragraph at lines 664--671 \OT1/cmtt/m/n/10 ith is nonpositive, or greater than the number of items in aLi st, a String containing [273] Overfull \hbox (2.1262pt too wide) in paragraph at lines 699--704 \OT1/cmtt/m/n/10 This routine returns all the items from the input List argumen t aList in the output Overfull \hbox (16.40607pt too wide) in paragraph at lines 699--704 \OT1/cmtt/m/n/10 String argument itemStr (see the module m[]String for more inf ormation about the String Overfull \hbox (7.37616pt too wide) in paragraph at lines 699--704 \OT1/cmtt/m/n/10 type). The contents of the character buffer in itemStr will be the all of the items [274] Overfull \hbox (7.37616pt too wide) in paragraph at lines 729--735 \OT1/cmtt/m/n/10 This routine returns all the items ranked i1 through i2 from t he input List argument Overfull \hbox (32.15593pt too wide) in paragraph at lines 729--735 \OT1/cmtt/m/n/10 aList in the output String argument itemStr (see the module m[ ]String for more information Overfull \hbox (17.87607pt too wide) in paragraph at lines 729--735 \OT1/cmtt/m/n/10 about the String type). The contents of the character buffer i n itemStr will be items Overfull \hbox (23.12602pt too wide) in paragraph at lines 764--769 \OT1/cmtt/m/n/10 This function compares the string buffer and indexing informat ion in the two input List Overfull \hbox (12.62611pt too wide) in paragraph at lines 764--769 \OT1/cmtt/m/n/10 arguments yL and xL. If the string buffers and index buffers o f yL and xL match, this [275] Overfull \hbox (23.12602pt too wide) in paragraph at lines 793--798 \OT1/cmtt/m/n/10 This routine takes as input a List argument aList, and a CHARA CTER string Values, which Overfull \hbox (12.62611pt too wide) in paragraph at lines 793--798 \OT1/cmtt/m/n/10 is a colon- delimited string of items, and returns an INTEGER array indices(:), which Overfull \hbox (7.37616pt too wide) in paragraph at lines 793--798 \OT1/cmtt/m/n/10 contain the rank of each item in aList. For example, suppose a List was created from Overfull \hbox (78.19507pt too wide) in paragraph at lines 809--813 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : This routine operates on the assumpti on that each of the substrings in the colon-delimited Overfull \hbox (38.87589pt too wide) in paragraph at lines 809--813 \OT1/cmtt/m/n/10 string Values is an item in aList. If this assumption is inval id, this routine terminates Overfull \hbox (15.19562pt too wide) in paragraph at lines 814--818 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The pointer indices must be UNASSOCIA TED on entry to this routine, and will be Overfull \hbox (38.87589pt too wide) in paragraph at lines 814--818 \OT1/cmtt/m/n/10 ASSOCIATED upon return. After this pointer is no longer needed , it should be deallocated. [276] Overfull \hbox (23.12602pt too wide) in paragraph at lines 847--852 \OT1/cmtt/m/n/10 This routine takes as input a List argument aList, and a CHARA CTER string Values, which Overfull \hbox (12.62611pt too wide) in paragraph at lines 847--852 \OT1/cmtt/m/n/10 is a colon- delimited string of items, and returns an INTEGER array indices(:), which Overfull \hbox (7.37616pt too wide) in paragraph at lines 847--852 \OT1/cmtt/m/n/10 contain the rank of each item in aList. For example, suppose a List was created from Overfull \hbox (9.94566pt too wide) in paragraph at lines 871--875 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : This routine operates on the assumpti on that one or more of the substrings in Overfull \hbox (23.12602pt too wide) in paragraph at lines 871--875 \OT1/cmtt/m/n/10 the colon-delimited string Values is may not be an item in aLi st. If an item in Values Overfull \hbox (15.19562pt too wide) in paragraph at lines 876--880 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The pointer indices must be UNASSOCIA TED on entry to this routine, and will be Overfull \hbox (38.87589pt too wide) in paragraph at lines 876--880 \OT1/cmtt/m/n/10 ASSOCIATED upon return. After this pointer is no longer needed , it should be deallocated. [277] Overfull \hbox (23.12602pt too wide) in paragraph at lines 908--911 \OT1/cmtt/m/n/10 This routine takes two List iList1 and iList2, and appends Lis t2 onto the end of List1. Overfull \hbox (20.44557pt too wide) in paragraph at lines 912--918 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : There is no check for shared items in the arguments List1 and List2. It is the Overfull \hbox (2.1262pt too wide) in paragraph at lines 912--918 \OT1/cmtt/m/n/10 user's responsibility to ensure List1 and List2 share no items . If this routine is Overfull \hbox (12.62611pt too wide) in paragraph at lines 912--918 \OT1/cmtt/m/n/10 invoked in such a manner that List1 and List2 share common ite ms, the resultant value Overfull \hbox (20.44557pt too wide) in paragraph at lines 919--922 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The outcome of this routine is order dependent. That is, the entries of iList2 Overfull \hbox (12.62611pt too wide) in paragraph at lines 952--955 \OT1/cmtt/m/n/10 This routine takes two input List iList1 and iList2, and conca tenates them, producing Overfull \hbox (0.61253pt too wide) in paragraph at lines 956--959 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The nature of this routine is such th at one must \OT1/cmr/bx/n/10 never \OT1/cmtt/m/n/10 supply as the actual Overfull \hbox (20.44557pt too wide) in paragraph at lines 960--962 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The outcome of this routine is order dependent. That is, the entries of iList2 [278] Overfull \hbox (2.1262pt too wide) in paragraph at lines 998--1000 \OT1/cmtt/m/n/10 This routine takes an input List argument iList (on input, val id on the root only), Overfull \hbox (20.44557pt too wide) in paragraph at lines 1001--1005 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : The outcome of this routine, ioList o n non-root processes, represents allocated Overfull \hbox (2.1262pt too wide) in paragraph at lines 1001--1005 \OT1/cmtt/m/n/10 memory. When this List is no longer needed, it must be dealloc ated by invoking the [279] Overfull \hbox (17.87607pt too wide) in paragraph at lines 1044--1050 \OT1/cmtt/m/n/10 This routine takes an input List argument inList and sends it to processor dest on the Overfull \hbox (23.12602pt too wide) in paragraph at lines 1044--1050 \OT1/cmtt/m/n/10 communicator associated with the fortran 90 INTEGER handle com m. The message is tagged Overfull \hbox (44.12584pt too wide) in paragraph at lines 1044--1050 \OT1/cmtt/m/n/10 by the input INTEGER argument TagBase. The success (failure) o f this operation is reported Overfull \hbox (4.69571pt too wide) in paragraph at lines 1051--1058 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : One must avoid assigning elsewhere th e MPI tag values TagBase and TagBase+1. Overfull \hbox (0.6562pt too wide) in paragraph at lines 1051--1058 \OT1/cmtt/m/n/10 This is because send[]() performs the send of the List as a pa ir of operations. The Overfull \hbox (28.37598pt too wide) in paragraph at lines 1051--1058 \OT1/cmtt/m/n/10 first send is the number of characters in inList%bf, and is gi ven MPI tag value TagBase. Overfull \hbox (17.87607pt too wide) in paragraph at lines 1051--1058 \OT1/cmtt/m/n/10 The second send is the CHARACTER data present in inList%bf, an d is given MPI tag value [280] Overfull \hbox (2.1262pt too wide) in paragraph at lines 1093--1099 \OT1/cmtt/m/n/10 This routine receives the output List argument outList from pr ocessor source on the Overfull \hbox (23.12602pt too wide) in paragraph at lines 1093--1099 \OT1/cmtt/m/n/10 communicator associated with the fortran 90 INTEGER handle com m. The message is tagged Overfull \hbox (44.12584pt too wide) in paragraph at lines 1093--1099 \OT1/cmtt/m/n/10 by the input INTEGER argument TagBase. The success (failure) o f this operation is reported Overfull \hbox (4.69571pt too wide) in paragraph at lines 1100--1107 []\OT1/cmr/bx/n/10 N.B.\OT1/cmtt/m/n/10 : One must avoid assigning elsewhere th e MPI tag values TagBase and TagBase+1. Overfull \hbox (16.40607pt too wide) in paragraph at lines 1100--1107 \OT1/cmtt/m/n/10 This is because recv[]() performs the receive of the List as a pair of operations. The Overfull \hbox (2.1262pt too wide) in paragraph at lines 1100--1107 \OT1/cmtt/m/n/10 first receive is the number of characters in outList%bf, and i s given MPI tag value Overfull \hbox (17.87607pt too wide) in paragraph at lines 1100--1107 \OT1/cmtt/m/n/10 TagBase. The second receive is the CHARACTER data present in o utList%bf, and is given Overfull \hbox (32.15593pt too wide) in paragraph at lines 1140--1145 \OT1/cmtt/m/n/10 GetSharedListIndices[]() compares two supplied List arguments List1 and Lis2 to determine: Overfull \hbox (23.12602pt too wide) in paragraph at lines 1140--1145 \OT1/cmtt/m/n/10 the number of shared items NumShared, and arrays of the locati ons Indices1 and Indices2 [281] Overfull \hbox (18.39005pt too wide) in paragraph at lines 1146--1149 []\OT1/cmr/bx/n/10 N.B.: \OT1/cmtt/m/n/10 This routine returns two allocated ar rays: Indices1(:) and Indices2(:). Both Overfull \hbox (23.12602pt too wide) in paragraph at lines 1146--1149 \OT1/cmtt/m/n/10 of these arrays must be deallocated once they are no longer ne eded. Failure to do this ) [282] (./mct_APIs.aux) ) (\end occurred inside a group at level 4) ### simple group (level 4) entered at line 193 ({) ### simple group (level 3) entered at line 146 ({) ### simple group (level 2) entered at line 93 ({) ### simple group (level 1) entered at line 553 ({) ### bottom level (see the transcript file for additional information) Output written on mct_APIs.dvi (286 pages, 681524 bytes). Transcript written on mct_APIs.log. make[4]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc' make[3]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc' make[2]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022/lib/mct/doc' cd lib/mct/doc && dvipdf mct_APIs.dvi make[1]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' create-stamp debian/debhelper-build-stamp fakeroot debian/rules binary-arch dh binary-arch dh_testroot -a dh_prep -a dh_installdirs -a debian/rules override_dh_auto_install make[1]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' mkdir -p debian/tmp//usr/lib/x86_64-linux-gnu cp build/lib/libpsmile.MPI1.so debian/tmp//usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d cp build/lib/libscrip.so debian/tmp//usr/lib/x86_64-linux-gnu/libscrip.so.0d ln -s libpsmile.MPI1.so.0d debian/tmp//usr/lib/x86_64-linux-gnu/libpsmile.so.0d cp build/lib/*.a debian/tmp//usr/lib/x86_64-linux-gnu dh_install -p liboasis3-dev debian/*.pc /usr/lib/x86_64-linux-gnu/pkgconfig make[1]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' dh_install -a dh_installdocs -a dh_installchangelogs -a dh_installexamples -a dh_perl -a debian/rules override_dh_link make[1]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' dh_link -p liboasis3-dev /usr/lib/x86_64-linux-gnu/libscrip.so.0d /usr/lib/x86_64-linux-gnu/libscrip.so dh_link -p liboasis3-dev /usr/lib/x86_64-linux-gnu/libpsmile.MPI1.a /usr/lib/x86_64-linux-gnu/libpsmile.a dh_link -p liboasis3-dev /usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d /usr/lib/x86_64-linux-gnu/libpsmile.so dh_link -p liboasis3-dev /usr/include/psmile.MPI1 /usr/include/psmile make[1]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' dh_strip_nondeterminism -a dh_compress -a debian/rules override_dh_fixperms make[1]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' dh_fixperms make[1]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' dh_missing -a dh_strip -a dh_strip: warning: Could not find the BuildID in debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d dh_strip: warning: Could not find the BuildID in debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d dh_makeshlibs -a debian/rules override_dh_shlibdeps make[1]: Entering directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' dh_shlibdeps -l/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022//build/lib/shared dpkg-shlibdeps: warning: symbol _gfortran_select_string used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol cos used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol _gfortran_runtime_error_at used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol _gfortran_os_error_at used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol exp used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol _gfortran_transfer_real_write used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol _gfortran_st_open used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol _gfortran_system_clock_4 used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol _gfortran_transfer_array_write used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol sin used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d found in none of the libraries dpkg-shlibdeps: warning: 21 other similar warnings have been skipped (use -v to see them all) dpkg-shlibdeps: warning: symbol mpi_initialized_ used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol _gfortran_transfer_character used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol __netcdf_MOD_nf90_put_var_2d_fourbyteint used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol _gfortran_stop_string used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol _gfortran_concat_string used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol _gfortran_internal_unpack used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol mpi_gather_ used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol __m_sparsematrix_MOD_globalnumelements_ used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol __m_attrvect_MOD_initv_ used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d found in none of the libraries dpkg-shlibdeps: warning: symbol mpi_error_string_ used by debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libpsmile.MPI1.so.0d found in none of the libraries dpkg-shlibdeps: warning: 99 other similar warnings have been skipped (use -v to see them all) dpkg-shlibdeps: warning: package could avoid a useless dependency if debian/liboasis3-0d/usr/lib/x86_64-linux-gnu/libscrip.so.0d was not linked against libnetcdf.so.18 (it uses none of the library's symbols) make[1]: Leaving directory '/build/oasis3-QbOzCD/oasis3-3.mct+dfsg.121022' dh_installdeb -a dh_gencontrol -a dpkg-gencontrol: warning: Depends field of package liboasis3-dev: substitution variable ${shlibs:Depends} used, but is not defined dh_md5sums -a dh_builddeb -a dpkg-deb: building package 'liboasis3-dev' in '../liboasis3-dev_3.mct+dfsg.121022-15_amd64.deb'. dpkg-deb: building package 'liboasis3-0d' in '../liboasis3-0d_3.mct+dfsg.121022-15_amd64.deb'. dpkg-genbuildinfo --build=any dpkg-genchanges --build=any >../oasis3_3.mct+dfsg.121022-15_amd64.changes dpkg-genchanges: info: binary-only arch-specific upload (source code and arch-indep packages not included) dpkg-source --after-build . dpkg-buildpackage: info: binary-only upload (no source included) I: running special hook: sync-out /build/oasis3-QbOzCD /tmp/oasis3-3.mct+dfsg.121022-15ox6xkqdw I: cleaning package lists and apt cache... W: deleting files in /tmp: texfonts I: creating tarball... I: done I: removing tempdir /tmp/mmdebstrap.T1tZrrrkCK... I: success in 1106.1789 seconds md5: liboasis3-0d_3.mct+dfsg.121022-15_amd64.deb: OK md5: liboasis3-dev_3.mct+dfsg.121022-15_amd64.deb: OK sha1: liboasis3-0d_3.mct+dfsg.121022-15_amd64.deb: OK sha1: liboasis3-dev_3.mct+dfsg.121022-15_amd64.deb: OK sha256: liboasis3-0d_3.mct+dfsg.121022-15_amd64.deb: OK sha256: liboasis3-dev_3.mct+dfsg.121022-15_amd64.deb: OK Checksums: OK