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

allows mix precision compilation #56

Merged
merged 2 commits into from
Oct 17, 2024
Merged

allows mix precision compilation #56

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
e86a922
allows mix precision compilation
JosephMouallem Oct 1, 2024
4202945
remove fms_platform
JosephMouallem Oct 2, 2024
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
3 changes: 2 additions & 1 deletion atmos_shared/atmos_global_diag.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,7 @@ module atmos_global_diag_mod
! and then registering and sending this data to the diag_manager.
!----------------------------------------------------------------------

use platform_mod, only: r8_kind, r4_kind
use mpp_mod, only: input_nml_file
use mpp_domains_mod, only: domain2d, mpp_global_sum, BITWISE_EFP_SUM, &
null_domain2d, operator(.eq.)
Expand Down Expand Up @@ -267,7 +268,7 @@ end subroutine buffer_global_diag

function send_global_diag_data (field_num, data, Time, area, mask)
integer, intent(in) :: field_num
real, intent(in) :: data(:,:)
real(r8_kind), intent(in) :: data(:,:)
type(time_type), intent(in) :: Time
real, optional, intent(in) :: area(:,:)
logical, optional, intent(in) :: mask(:,:)
Expand Down
9 changes: 5 additions & 4 deletions atmos_shared/atmos_tracer_driver.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -103,6 +103,7 @@ module atmos_tracer_driver_mod

!-----------------------------------------------------------------------

use platform_mod, only: r8_kind, r4_kind
use time_manager_mod, only : time_type

implicit none
Expand Down Expand Up @@ -377,7 +378,7 @@ subroutine atmos_tracer_driver_gather_data(gas_fields, tr_bot)
use coupler_types_mod, only: coupler_2d_bc_type

type(coupler_2d_bc_type), intent(inout) :: gas_fields
real, dimension(:,:,:), intent(in) :: tr_bot
real(r8_kind), dimension(:,:,:), intent(in) :: tr_bot

!-----------------------------------------------------------------------

Expand All @@ -393,7 +394,7 @@ subroutine atmos_tracer_driver_gather_data_down(gas_fields, tr_bot)
use coupler_types_mod, only: coupler_2d_bc_type

type(coupler_2d_bc_type), intent(inout) :: gas_fields
real, dimension(:,:,:), intent(in) :: tr_bot
real(r8_kind), dimension(:,:,:), intent(in) :: tr_bot

return

Expand All @@ -414,8 +415,8 @@ function atmos_tracer_has_surf_setl_flux(tr) result(ret)
! the atmosphere for this tracer
subroutine get_atmos_tracer_surf_setl_flux(tr, setl_flux, dsetl_dtr)
integer, intent(in) :: tr ! tracer index
real, intent(out) :: setl_flux(:,:) ! sedimentation flux at the bottom of the atmosphere
real, intent(out) :: dsetl_dtr(:,:) ! derivative of sedimentation flux w.r.t.
real(r8_kind), intent(out) :: setl_flux(:,:) ! sedimentation flux at the bottom of the atmosphere
real(r8_kind), intent(out) :: dsetl_dtr(:,:) ! derivative of sedimentation flux w.r.t.
! the tracer concentration in the bottom layer

setl_flux(:,:) = 0.0 ; dsetl_dtr(:,:) = 0.0
Expand Down