Revert "Fix accidental hard coding of vertical levels in cape routines"

This reverts commit 5f129a2.
Geotomo · Feb 26, 2019 · d03b1a3 · d03b1a3
1 parent 2d35df8
commit d03b1a3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ni/src/lib/nfpfort/rip_cape.f90 b/ni/src/lib/nfpfort/rip_cape.f90
@@ -316,7 +316,7 @@ SUBROUTINE DCAPECALC3D(prs,tmk,qvp,ght,ter,sfp,cape,cin,&
     REAL(KIND=8) :: facden, qvplift, tmklift, tvenv, tvlift, ghtlift
     REAL(KIND=8) :: eslift, tmkenv, qvpenv, tonpsadiabat
     REAL(KIND=8) :: benamin, dz
-    REAL(KIND=8), DIMENSION(mkzh) :: buoy, zrel, benaccum
+    REAL(KIND=8), DIMENSION(150) :: buoy, zrel, benaccum
     REAL(KIND=8), DIMENSION(150) :: psadithte, psadiprs
     REAL(KIND=8), DIMENSION(150,150) :: psaditmk
     LOGICAL :: elfound
@@ -647,7 +647,7 @@ SUBROUTINE DCAPECALC2D(prs,tmk,qvp,ght,ter,sfp,cape,cin,&
     REAL(KIND=8) :: facden, qvplift, tmklift, tvenv, tvlift, ghtlift
     REAL(KIND=8) :: eslift, tmkenv, qvpenv, tonpsadiabat
     REAL(KIND=8) :: benamin, dz, pup, pdn
-    REAL(KIND=8), DIMENSION(mkzh) :: buoy, zrel, benaccum
+    REAL(KIND=8), DIMENSION(150) :: buoy, zrel, benaccum
     REAL(KIND=8), DIMENSION(150) :: psadithte, psadiprs
     REAL(KIND=8), DIMENSION(150,150) :: psaditmk
     LOGICAL :: elfound