relax bounds for corruption check

SamuelTrahanNOAA · Dec 12, 2023 · 93c14c8 · 93c14c8
1 parent 5f2b4b8
commit 93c14c8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/cires_tauamf_data.F90 b/physics/cires_tauamf_data.F90
@@ -201,7 +201,7 @@ subroutine cires_indx_ugwp (npts, me, master, dlat,j1_tau,j2_tau, w1_j1tau, w2_j
       errmsg = ' '
       errflg = 0
 
-    if(ntau_d1y /= 73) then
+    if(ntau_d1y<1 .or. ntau_d1y>4000) then
       errmsg = 'corrupted ntau_d1y (lat) dimension'
       errflg = 1
       return
@@ -260,7 +260,7 @@ subroutine tau_amf_interp(me, master, im, idate, fhour, j1_tau,j2_tau, ddy_j1, d
     errmsg = ' '
     errflg = 0
 
-    if(ntau_d2t /= 14) then
+    if(ntau_d2t<1 .or. ntau_d2t>366) then
       errmsg = 'corrupted ntau_d2t (days) dimension'
       errflg = 1
       return