fix array dimension issue

grantfirl · Mar 7, 2024 · 633f8d1 · 633f8d1
1 parent df5d9d4
commit 633f8d1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/CONV/Chikira_Sugiyama/cs_conv.F90 b/physics/CONV/Chikira_Sugiyama/cs_conv.F90
@@ -3139,7 +3139,7 @@ END SUBROUTINE CUMSBW
 !>\ingroup cs_scheme
 !! This subroution calculates freeze, melt and evaporation in cumulus downdraft.
       SUBROUTINE CUMDWN                            & ! Freeze & Melt & Evaporation
-               ( IM    , IJSDIM, KMAX  , NTR   ,  ntrq, & !DD dimensions
+               ( IM    , IJSDIM, KMAX  , NTR,ntrq,nctp, & !DD dimensions
                  GTT   , GTQ   , GTU   , GTV   ,        & ! modified
                          GMFLX ,                        & ! modified
                  GPRCP , GSNWP , GTEVP , GMDD  ,        & ! output
@@ -3905,7 +3905,7 @@ SUBROUTINE CUMFXR                                           & ! Tracer mass fixe
       INTEGER, INTENT(IN) :: IM, IJSDIM, KMAX, NTR             !! DD, for GFS, pass in
 !
 !   [MODIFY]
-      REAL(kind_phys)     GTR   (IJSDIM, KMAX)      ! tracer tendency
+      REAL(kind_phys)     GTR   (IJSDIM, KMAX, NTR)   ! tracer tendency
 !
 !   [INPUT]
       REAL(kind_phys)     GDR   (IJSDIM, KMAX, NTR)   ! tracer