Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Allow HAFS app to be compiled with 64bit FMS #626

Merged
merged 3 commits into from
Mar 7, 2023
Merged

Allow HAFS app to be compiled with 64bit FMS #626

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
2c75ead
Allow HAFS app to be compiled with 64bit FMS
DusanJovic-NOAA Feb 13, 2023
458a34c
Merge remote-tracking branch 'origin/develop' into hafs_64bit_fms
DusanJovic-NOAA Feb 17, 2023
c2c1c8d
Merge remote-tracking branch 'origin/develop' into hafs_64bit_fms
DusanJovic-NOAA Mar 3, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions moving_nest/fv_moving_nest.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -72,7 +72,11 @@ module fv_moving_nest_mod

use boundary_mod, only: update_coarse_grid, update_coarse_grid_mpp
use bounding_box_mod, only: bbox, bbox_get_C2F_index, fill_bbox
#ifdef OVERLOAD_R4
use constantsR4_mod, only: cp_air, omega, rdgas, grav, rvgas, kappa, pstd_mks, hlv
#else
use constants_mod, only: cp_air, omega, rdgas, grav, rvgas, kappa, pstd_mks, hlv
#endif
use field_manager_mod, only: MODEL_ATMOS
use fv_arrays_mod, only: fv_atmos_type, fv_nest_type, fv_grid_type, R_GRID
use fv_arrays_mod, only: allocate_fv_nest_bc_type, deallocate_fv_nest_bc_type
Expand Down
4 changes: 4 additions & 0 deletions moving_nest/fv_moving_nest_main.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,11 @@ module fv_moving_nest_main_mod
! FMS modules:
!-----------------
use block_control_mod, only: block_control_type
#ifdef OVERLOAD_R4
use constantsR4_mod, only: cp_air, rdgas, grav, rvgas, kappa, pstd_mks
#else
use constants_mod, only: cp_air, rdgas, grav, rvgas, kappa, pstd_mks
#endif
use time_manager_mod, only: time_type, get_time, get_date, set_time, operator(+), &
operator(-), operator(/), time_type_to_real
use fms_mod, only: file_exist, open_namelist_file, &
Expand Down
4 changes: 4 additions & 0 deletions moving_nest/fv_moving_nest_physics.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -68,7 +68,11 @@ module fv_moving_nest_physics_mod
use GFS_init, only: GFS_grid_populate

use boundary_mod, only: update_coarse_grid, update_coarse_grid_mpp
#ifdef OVERLOAD_R4
use constantsR4_mod, only: cp_air, rdgas, grav, rvgas, kappa, pstd_mks, hlv
#else
use constants_mod, only: cp_air, rdgas, grav, rvgas, kappa, pstd_mks, hlv
#endif
use field_manager_mod, only: MODEL_ATMOS
use fv_arrays_mod, only: fv_atmos_type, fv_nest_type, fv_grid_type, R_GRID
use fv_moving_nest_types_mod, only: fv_moving_nest_prog_type, fv_moving_nest_physics_type, mn_surface_grids, fv_moving_nest_type
Expand Down
4 changes: 4 additions & 0 deletions moving_nest/fv_moving_nest_utils.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -67,7 +67,11 @@ module fv_moving_nest_utils_mod
use IPD_typedefs, only: kind_phys => IPD_kind_phys
#endif

#ifdef OVERLOAD_R4
use constantsR4_mod, only: grav
#else
use constants_mod, only: grav
#endif

use boundary_mod, only: update_coarse_grid, update_coarse_grid_mpp
use bounding_box_mod, only: bbox, bbox_get_C2F_index, fill_bbox
Expand Down
4 changes: 4 additions & 0 deletions moving_nest/fv_tracker.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -26,7 +26,11 @@ module fv_tracker_mod

#include <fms_platform.h>

#ifdef OVERLOAD_R4
use constantsR4_mod, only: pi=>pi_8, rad_to_deg, deg_to_rad, RVGAS, RDGAS
#else
use constants_mod, only: pi=>pi_8, rad_to_deg, deg_to_rad, RVGAS, RDGAS
#endif
use fms_mod, only: mpp_clock_id, CLOCK_SUBCOMPONENT, clock_flag_default, &
mpp_clock_begin, mpp_clock_end
use time_manager_mod, only: time_type, get_time, set_time, operator(+), &
Expand Down