Add optional attribute to several variables in mp_gt_driver

climbfuji · Apr 29, 2024 · 2818226 · 2818226
1 parent caaa77f
commit 2818226
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/MP/Thompson/module_mp_thompson.F90 b/physics/MP/Thompson/module_mp_thompson.F90
@@ -1078,7 +1078,7 @@ SUBROUTINE mp_gt_driver(qv, qc, qr, qi, qs, qg, ni, nr, nc,     &
       ! Extended diagnostics, array pointers only associated if ext_diag flag is .true.
       LOGICAL, INTENT (IN) :: ext_diag
       LOGICAL, OPTIONAL, INTENT(IN):: aero_ind_fdb
-      REAL, DIMENSION(:,:,:), INTENT(INOUT)::                     &
+      REAL, DIMENSION(:,:,:), INTENT(INOUT), OPTIONAL ::          &
                           !vts1, txri, txrc,                       &
                           prw_vcdc,                               &
                           prw_vcde, tpri_inu, tpri_ide_d,         &
@@ -1908,7 +1908,7 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d,    &
       LOGICAL, INTENT(IN) :: ext_diag
       LOGICAL, INTENT(IN) :: sedi_semi
       INTEGER, INTENT(IN) :: decfl
-      REAL, DIMENSION(:), INTENT(OUT):: &
+      REAL, DIMENSION(:), INTENT(OUT), OPTIONAL :: &
                           !vtsk1, txri1, txrc1,                       &
                           prw_vcdc1,                                 &
                           prw_vcde1, tpri_inu1, tpri_ide1_d,         &