Increase NTEMP size to 13 to accomodate Stehle data

AWehrhahn · May 7, 2021 · f7d28b0 · f7d28b0
1 parent c5dc2ba
commit f7d28b0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/sme/hlinprof.f b/src/sme/hlinprof.f
@@ -291,7 +291,7 @@ SUBROUTINE STEHLE(HFILE,WAVE,WAVE0,TEMP,XXNE,NLOW,NUP,HLIN,
       REAL*8 WAVE,WAVE0
       INTEGER NWL,NTEMP,NNE,NLINE
       REAL SQRTPI
-      PARAMETER (NWL=60,NTEMP=10,NNE=15,NLINE=90,SQRTPI=1.77245385)
+      PARAMETER (NWL=60,NTEMP=13,NNE=15,NLINE=90,SQRTPI=1.77245385)
       REAL T(NTEMP),XNE(NNE)
       REAL WING(NNE,NLINE),F0(NNE,NLINE),WIDTH(NTEMP,NNE,NLINE),
      *     ALPHA(NWL,NTEMP,NNE,NLINE),SPROF(NWL,NTEMP,NNE,NLINE),HLIN
@@ -592,7 +592,7 @@ SUBROUTINE HGRID(HFILE,WAVE,WAVE0,TEMP,NHYD,NLOW,NUP,HLIN,
       IMPLICIT NONE
       REAL*8 WAVE,WAVE0
       INTEGER MNPROFS,MNTEMP,MNNH,MNLINE
-      PARAMETER (MNTEMP=10,MNNH=30,MNLINE=10,MNPROFS=200)
+      PARAMETER (MNTEMP=13,MNNH=30,MNLINE=10,MNPROFS=200)
       REAL*8 T(MNTEMP),NH(MNNH),NHYD,TEMP,HLIN
       REAL*8 F0(MNNH,MNLINE),
      *     MALPHA(MNPROFS,MNTEMP,MNNH,MNLINE),