FV3 Bundle
test/lorenz95/LocalizationMatrixL95.cc
Go to the documentation of this file.
1 /*
2  * (C) Copyright 2009-2016 ECMWF.
3  *
4  * This software is licensed under the terms of the Apache Licence Version 2.0
5  * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
6  * In applying this licence, ECMWF does not waive the privileges and immunities
7  * granted to it by virtue of its status as an intergovernmental organisation nor
8  * does it submit to any jurisdiction.
9  */
10 
11 #include <boost/scoped_ptr.hpp>
12 #include <boost/test/unit_test.hpp>
13 
14 #include "./TestConfig.h"
15 #include "eckit/config/LocalConfiguration.h"
17 #include "lorenz95/Resolution.h"
18 #include "test/TestFixture.h"
19 
20 namespace test {
21 
22 // -----------------------------------------------------------------------------
23 BOOST_FIXTURE_TEST_SUITE(test_localizationMatrixL95, TestFixture)
24 // -----------------------------------------------------------------------------
25  BOOST_AUTO_TEST_CASE(test_localizationMatrixL95_constructor) {
26  eckit::LocalConfiguration resolCfg(TestConfig::config(), "resolution");
27  lorenz95::Resolution resol(resolCfg);
28  eckit::LocalConfiguration cfg(TestConfig::config(), "Covariance");
29 
30  boost::scoped_ptr<lorenz95::LocalizationMatrixL95> locmat(
31  new lorenz95::LocalizationMatrixL95(resol, cfg));
32 
33  BOOST_CHECK(locmat.get() != NULL);
34  }
35 // -----------------------------------------------------------------------------
36 
37 BOOST_AUTO_TEST_SUITE_END()
38 
39 } // namespace test
*f90 *************************************************************************GNU Lesser General Public License **This file is part of the GFDL Flexible Modeling System(FMS). ! *! *FMS is free software without even the implied warranty of MERCHANTABILITY or *FITNESS FOR A PARTICULAR PURPOSE See the GNU General Public License *for more details **You should have received a copy of the GNU Lesser General Public *License along with FMS If see< http:! ***********************************************************************! this routine is used to retrieve scalar boundary data for symmetric domain. subroutine MPP_GET_BOUNDARY_2D_(field, domain, ebuffer, sbuffer, wbuffer, nbuffer, flags, &position, complete, tile_count) type(domain2D), intent(in) ::domain MPP_TYPE_, intent(in) ::field(:,:) MPP_TYPE_, intent(inout), optional ::ebuffer(:), sbuffer(:), wbuffer(:), nbuffer(:) integer, intent(in), optional ::flags, position, tile_count logical, intent(in), optional ::complete MPP_TYPE_ ::field3D(size(field, 1), size(field, 2), 1) MPP_TYPE_, allocatable, dimension(:,:) ::ebuffer2D, sbuffer2D, wbuffer2D, nbuffer2D integer ::xcount, ycount integer ::ntile logical ::need_ebuffer, need_sbuffer, need_wbuffer, need_nbuffer integer(LONG_KIND), dimension(MAX_DOMAIN_FIELDS, MAX_TILES), save ::f_addrs=-9999 integer(LONG_KIND), dimension(4, MAX_DOMAIN_FIELDS, MAX_TILES), save ::b_addrs=-9999 integer, save ::bsize(4)=0, isize=0, jsize=0, ksize=0, pos, list=0, l_size=0, upflags integer ::buffer_size(4) integer ::max_ntile, tile, update_position, ishift, jshift logical ::do_update, is_complete, set_mismatch character(len=3) ::text MPP_TYPE_ ::d_type type(overlapSpec), pointer ::bound=> NULL() ntile
Localization matrix for Lorenz 95 model.
Handles resolution.
Definition: Resolution.h:25
BOOST_AUTO_TEST_CASE(test_GomL95_constructor)
static const eckit::Configuration & config()
Definition: TestConfig.h:30