FMS  2025.03
Flexible Modeling System
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>