"update the dimension of chem3d in GF for hercules/gnu rap cases"

ufs-community · Dec 22, 2023 · 37d512f · 37d512f
1 parent 9d988da
commit 37d512f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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.