allocate internal optional diagnostics to zero size inside Thompson MP

grantfirl · Jan 18, 2024 · 415f71a · 415f71a
1 parent 8b33c78
commit 415f71a
Showing 1 changed file with 38 additions and 0 deletions.
diff --git a/physics/MP/Thompson/module_mp_thompson.F90 b/physics/MP/Thompson/module_mp_thompson.F90
@@ -1235,6 +1235,44 @@ SUBROUTINE mp_gt_driver(qv, qc, qr, qi, qs, qg, ni, nr, nc,     &
          allocate (nrten1(kts:kte))
          allocate (ncten1(kts:kte))
          allocate (qcten1(kts:kte))
+      else
+         allocate (prw_vcdc1  (0))
+         allocate (prw_vcde1  (0))
+         allocate (tpri_inu1  (0))
+         allocate (tpri_ide1_d(0))
+         allocate (tpri_ide1_s(0))
+         allocate (tprs_ide1  (0))
+         allocate (tprs_sde1_d(0))
+         allocate (tprs_sde1_s(0))
+         allocate (tprg_gde1_d(0))
+         allocate (tprg_gde1_s(0))
+         allocate (tpri_iha1  (0))
+         allocate (tpri_wfz1  (0))
+         allocate (tpri_rfz1  (0))
+         allocate (tprg_rfz1  (0))
+         allocate (tprs_scw1  (0))
+         allocate (tprg_scw1  (0))
+         allocate (tprg_rcs1  (0))
+         allocate (tprs_rcs1  (0))
+         allocate (tprr_rci1  (0))
+         allocate (tprg_rcg1  (0))
+         allocate (tprw_vcd1_c(0))
+         allocate (tprw_vcd1_e(0))
+         allocate (tprr_sml1  (0))
+         allocate (tprr_gml1  (0))
+         allocate (tprr_rcg1  (0))
+         allocate (tprr_rcs1  (0))
+         allocate (tprv_rev1  (0))
+         allocate (tten1      (0))
+         allocate (qvten1     (0))
+         allocate (qrten1     (0))
+         allocate (qsten1     (0))
+         allocate (qgten1     (0))
+         allocate (qiten1     (0))
+         allocate (niten1     (0))
+         allocate (nrten1     (0))
+         allocate (ncten1     (0))
+         allocate (qcten1     (0))
       end if allocate_extended_diagnostics
 
 !+---+