FMS 2025.01.02-dev
Flexible Modeling System
Loading...
Searching...
No Matches
fms_diag_fieldbuff_update.inc
1!***********************************************************************
2!* GNU Lesser General Public License
3!*
4!* This file is part of the GFDL Flexible Modeling System (FMS).
5!*
6!* FMS is free software: you can redistribute it and/or modify it under
7!* the terms of the GNU Lesser General Public License as published by
8!* the Free Software Foundation, either version 3 of the License, or (at
9!* your option) any later version.
10!*
11!* FMS is distributed in the hope that it will be useful, but WITHOUT
12!* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
13!* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14!* for more details.
15!*
16!* You should have received a copy of the GNU Lesser General Public
17!* License along with FMS. If not, see <http://www.gnu.org/licenses/>.
18!***********************************************************************
19
20#undef FMS_DIAG_FBU_DATA_TYPE_
21#define FMS_DIAG_FBU_DATA_TYPE_ REAL(r4_kind)
22#undef FMS_DIAG_FBU_PNAME_
23#define FMS_DIAG_FBU_PNAME_ fieldbuff_update_r4
24#undef FMS_DIAG_FBU_3D_PNAME_
25#define FMS_DIAG_FBU_3D_PNAME_ fieldbuff_update_3d_r4
26#undef FMS_DIAG_FBCF_PNAME_
27#define FMS_DIAG_FBCF_PNAME_ fieldbuff_copy_fieldvals_r4
28#undef FMS_DIAG_FBCF_3D_PNAME_
29#define FMS_DIAG_FBCF_3D_PNAME_ fieldbuff_copy_fieldvals_3d_r4
30#undef FMS_DIAG_FBCM_PNAME_
31#define FMS_DIAG_FBCM_PNAME_ fieldbuff_copy_missvals_r4
32#undef FMS_DIAG_FBCM_3D_PNAME_
33#define FMS_DIAG_FBCM_3D_PNAME_ fieldbuff_copy_missvals_3d_r4
34#include <fms_diag_fieldbuff_update.fh>
35
36#undef FMS_DIAG_FBU_DATA_TYPE_
37#define FMS_DIAG_FBU_DATA_TYPE_ REAL(r8_kind)
38#undef FMS_DIAG_FBU_PNAME_
39#define FMS_DIAG_FBU_PNAME_ fieldbuff_update_r8
40#undef FMS_DIAG_FBU_3D_PNAME_
41#define FMS_DIAG_FBU_3D_PNAME_ fieldbuff_update_3d_r8
42#undef FMS_DIAG_FBCF_PNAME_
43#define FMS_DIAG_FBCF_PNAME_ fieldbuff_copy_fieldvals_r8
44#undef FMS_DIAG_FBCF_3D_PNAME_
45#define FMS_DIAG_FBCF_3D_PNAME_ fieldbuff_copy_fieldvals_3d_r8
46#undef FMS_DIAG_FBCM_PNAME_
47#define FMS_DIAG_FBCM_PNAME_ fieldbuff_copy_missvals_r8
48#undef FMS_DIAG_FBCM_3D_PNAME_
49#define FMS_DIAG_FBCM_3D_PNAME_ fieldbuff_copy_missvals_3d_r8
50#include <fms_diag_fieldbuff_update.fh>