From b4851c42cfd1343339d0163d59f0645d39b92748 Mon Sep 17 00:00:00 2001 From: Michael Waxmonsky Date: Fri, 17 May 2024 14:41:04 -0600 Subject: [PATCH] Fixing compiler error with using new pi. --- tj2016/tj2016_sfc_pbl_hs.F90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tj2016/tj2016_sfc_pbl_hs.F90 b/tj2016/tj2016_sfc_pbl_hs.F90 index c313e872..e94b4363 100644 --- a/tj2016/tj2016_sfc_pbl_hs.F90 +++ b/tj2016/tj2016_sfc_pbl_hs.F90 @@ -105,7 +105,7 @@ subroutine tj2016_sfc_pbl_hs_run(ncol, pver, pverp, index_surface, index_surface ! Simplified physics: constants real(kind_phys), parameter :: T_min = 271._kind_phys ! Minimum sea surface temperature (K) real(kind_phys), parameter :: del_T = 29._kind_phys ! difference in eq-polar sea surface temperature (K) - real(kind_phys), parameter :: T_width = 26.0_kind_phys*pi/180.0_kind_phys ! width parameter for sea surface temperature (C) + real(kind_phys), :: T_width ! width parameter for sea surface temperature (C) real(kind_phys), parameter :: Tsurf_RJ12 = 302.15_kind_phys ! constant sea surface temperature (K) for RJ12 real(kind_phys), parameter :: T0=273.16_kind_phys ! Control temperature (K) for calculation of qsat @@ -154,6 +154,9 @@ subroutine tj2016_sfc_pbl_hs_run(ncol, pver, pverp, index_surface, index_surface ! Define simple_physics_option to either "TJ16" (moist HS) or "RJ12" (simple-physics) character(LEN=4) :: simple_physics_option + ! Initialize certain constants + T_width = 26.0_kind_phys*pi/180.0_kind_phys + ! Initialize certain outfields tendency_of_air_enthalpy = 0.0_kind_phys scheme_name = "TJ2016_sfc_pbl_hs"