diff --git a/driver/fvGFS/atmosphere.F90 b/driver/fvGFS/atmosphere.F90 index 6243df9d0..7af45f664 100644 --- a/driver/fvGFS/atmosphere.F90 +++ b/driver/fvGFS/atmosphere.F90 @@ -294,7 +294,7 @@ subroutine atmosphere_init (Time_init, Time, Time_step, Grid_box, area) use ccpp_static_api, only: ccpp_physics_init use CCPP_data, only: ccpp_suite, & cdata => cdata_tile, & - CCPP_interstitial + GFDL_interstitial #ifdef OPENMP use omp_lib #endif @@ -512,7 +512,7 @@ subroutine atmosphere_init (Time_init, Time, Time_step, Grid_box, area) #endif ! Create interstitial data type for fast physics; for multi-gases physics, ! pass q(:,:,:,1:num_gas) as qvi, otherwise pass q(:,:,:,1:1) as 4D array - call CCPP_interstitial%create(Atm(mygrid)%bd%is, Atm(mygrid)%bd%ie, Atm(mygrid)%bd%isd, Atm(mygrid)%bd%ied, & + call GFDL_interstitial%create(Atm(mygrid)%bd%is, Atm(mygrid)%bd%ie, Atm(mygrid)%bd%isd, Atm(mygrid)%bd%ied, & Atm(mygrid)%bd%js, Atm(mygrid)%bd%je, Atm(mygrid)%bd%jsd, Atm(mygrid)%bd%jed, & Atm(mygrid)%npz, Atm(mygrid)%ng, & dt_atmos, p_split, Atm(mygrid)%flagstruct%k_split, & diff --git a/model/fv_dynamics.F90 b/model/fv_dynamics.F90 index 1143324b7..ed6836f15 100644 --- a/model/fv_dynamics.F90 +++ b/model/fv_dynamics.F90 @@ -194,7 +194,7 @@ subroutine fv_dynamics(npx, npy, npz, nq_tot, ng, bdt, consv_te, fill, ccpp_physics_timestep_finalize use CCPP_data, only: ccpp_suite use CCPP_data, only: cdata => cdata_tile - use CCPP_data, only: CCPP_interstitial + use CCPP_data, only: GFDL_interstitial use molecular_diffusion_mod, only: md_time, md_wait_sec, md_tadj_layers, & thermosphere_adjustment @@ -299,11 +299,11 @@ subroutine fv_dynamics(npx, npy, npz, nq_tot, ng, bdt, consv_te, fill, real :: time_total integer :: seconds, days - ccpp_associate: associate( cappa => CCPP_interstitial%cappa, & - dp1 => CCPP_interstitial%te0, & - dtdt_m => CCPP_interstitial%dtdt, & - last_step => CCPP_interstitial%last_step, & - te_2d => CCPP_interstitial%te0_2d ) + ccpp_associate: associate( cappa => GFDL_interstitial%cappa, & + dp1 => GFDL_interstitial%te0, & + dtdt_m => GFDL_interstitial%dtdt, & + last_step => GFDL_interstitial%last_step, & + te_2d => GFDL_interstitial%te0_2d ) is = bd%is ie = bd%ie @@ -329,9 +329,9 @@ subroutine fv_dynamics(npx, npy, npz, nq_tot, ng, bdt, consv_te, fill, call ccpp_physics_timestep_init(cdata, suite_name=trim(ccpp_suite), group_name="fast_physics", ierr=ierr) ! Reset all interstitial variables for CCPP version ! of fast physics, and manually set runtime parameters - call CCPP_interstitial%reset() + call GFDL_interstitial%reset() if (flagstruct%do_sat_adj) then - CCPP_interstitial%out_dt = (idiag%id_mdt > 0) + GFDL_interstitial%out_dt = (idiag%id_mdt > 0) end if #ifdef MULTI_GASES diff --git a/model/fv_mapz.F90 b/model/fv_mapz.F90 index add25e28b..00914df76 100644 --- a/model/fv_mapz.F90 +++ b/model/fv_mapz.F90 @@ -61,7 +61,7 @@ module fv_mapz_mod ! !