From 37d512f55b425ef7f1ff069c89d23d85c7f9bb8e Mon Sep 17 00:00:00 2001 From: "Haiqin.Li" Date: Fri, 22 Dec 2023 21:17:51 +0000 Subject: [PATCH] "update the dimension of chem3d in GF for hercules/gnu rap cases" --- physics/cu_gf_deep.F90 | 4 ++-- physics/smoke_dust/rrfs_smoke_wrapper.F90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/physics/cu_gf_deep.F90 b/physics/cu_gf_deep.F90 index b45452000..a1bca36c9 100644 --- a/physics/cu_gf_deep.F90 +++ b/physics/cu_gf_deep.F90 @@ -216,11 +216,11 @@ subroutine cu_gf_deep_run( & ,intent (inout ) :: & mconv,ccn !$acc declare copy(mconv,ccn) - real(kind=kind_phys), dimension (its:ite,kts:kte,nchem) & + real(kind=kind_phys), dimension (:,:,:) & ,intent (inout) :: & chem3d logical, intent (in) :: do_smoke_transport - real(kind=kind_phys), dimension (its:ite,nchem) & + real(kind=kind_phys), dimension (:,:) & , intent (out) :: wetdpc_deep real(kind=kind_phys), intent (in) :: fscav(:) !$acc declare copy(chem3d) copyout(wetdpc_deep) copyin(fscav) diff --git a/physics/smoke_dust/rrfs_smoke_wrapper.F90 b/physics/smoke_dust/rrfs_smoke_wrapper.F90 index afd386595..eb7f83af6 100755 --- a/physics/smoke_dust/rrfs_smoke_wrapper.F90 +++ b/physics/smoke_dust/rrfs_smoke_wrapper.F90 @@ -875,7 +875,7 @@ subroutine rrfs_smoke_prep( & ! RAR: here we need to initialize various arrays in order to apply HWP to ! diurnal cycle ! if ebb_dcycle/=2 then those arrays=0, we need to read in temporal - if (ebb_dcycle == 2 .and. ktau == 1) then + if (ebb_dcycle == 2) then do i=its, ite do j=jts, jte ebu_in (i,j) = smoke2d_RRFS(i,1)!/86400.