FMS  2025.04
Flexible Modeling System
fms_diag_fieldbuff_update.inc
1 !***********************************************************************
2 !* Apache License 2.0
3 !*
4 !* This file is part of the GFDL Flexible Modeling System (FMS).
5 !*
6 !* Licensed under the Apache License, Version 2.0 (the "License");
7 !* you may not use this file except in compliance with the License.
8 !* You may obtain a copy of the License at
9 !*
10 !* http://www.apache.org/licenses/LICENSE-2.0
11 !*
12 !* FMS is distributed in the hope that it will be useful, but WITHOUT
13 !* WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied;
14 !* without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
15 !* PARTICULAR PURPOSE. See the License for the specific language
16 !* governing permissions and limitations under the License.
17 !***********************************************************************
18 
19 #undef FMS_DIAG_FBU_DATA_TYPE_
20 #define FMS_DIAG_FBU_DATA_TYPE_ REAL(r4_kind)
21 #undef FMS_DIAG_FBU_PNAME_
22 #define FMS_DIAG_FBU_PNAME_ fieldbuff_update_r4
23 #undef FMS_DIAG_FBU_3D_PNAME_
24 #define FMS_DIAG_FBU_3D_PNAME_ fieldbuff_update_3d_r4
25 #undef FMS_DIAG_FBCF_PNAME_
26 #define FMS_DIAG_FBCF_PNAME_ fieldbuff_copy_fieldvals_r4
27 #undef FMS_DIAG_FBCF_3D_PNAME_
28 #define FMS_DIAG_FBCF_3D_PNAME_ fieldbuff_copy_fieldvals_3d_r4
29 #undef FMS_DIAG_FBCM_PNAME_
30 #define FMS_DIAG_FBCM_PNAME_ fieldbuff_copy_missvals_r4
31 #undef FMS_DIAG_FBCM_3D_PNAME_
32 #define FMS_DIAG_FBCM_3D_PNAME_ fieldbuff_copy_missvals_3d_r4
33 #include <fms_diag_fieldbuff_update.fh>
34 
35 #undef FMS_DIAG_FBU_DATA_TYPE_
36 #define FMS_DIAG_FBU_DATA_TYPE_ REAL(r8_kind)
37 #undef FMS_DIAG_FBU_PNAME_
38 #define FMS_DIAG_FBU_PNAME_ fieldbuff_update_r8
39 #undef FMS_DIAG_FBU_3D_PNAME_
40 #define FMS_DIAG_FBU_3D_PNAME_ fieldbuff_update_3d_r8
41 #undef FMS_DIAG_FBCF_PNAME_
42 #define FMS_DIAG_FBCF_PNAME_ fieldbuff_copy_fieldvals_r8
43 #undef FMS_DIAG_FBCF_3D_PNAME_
44 #define FMS_DIAG_FBCF_3D_PNAME_ fieldbuff_copy_fieldvals_3d_r8
45 #undef FMS_DIAG_FBCM_PNAME_
46 #define FMS_DIAG_FBCM_PNAME_ fieldbuff_copy_missvals_r8
47 #undef FMS_DIAG_FBCM_3D_PNAME_
48 #define FMS_DIAG_FBCM_3D_PNAME_ fieldbuff_copy_missvals_3d_r8
49 #include <fms_diag_fieldbuff_update.fh>