Changing time range adjustment

src/TRPOST/post_tracking.f90

@@ -256,9 +256,13 @@ end if veloz
 !    Checking for NaNs and variable ranges
 !------------------------------------------------------------------------------|
 
-do i=1,trcl%np
-    do k=1,input_nstep
-        !Check for NaN, too small and too large values
+
+do k=1,input_nstep
+    if (isnan(trcl%time(k))) trcl%time(k)=1.0e38
+    if (1.0e37<trcl%time(k)) trcl%time(k)=1.0e37
+    if (-1.0e37<trcl%time(k)) trcl%time(k)=-1.0e37
+    if (1.0e-37>abs(trcl%time(k))) trcl%time(k)=0.0
+    do i=1,trcl%np
         if (isnan(trcl%temp(i,k))) trcl%temp(i,k)=1.0e38
         if (1.0e37<trcl%temp(i,k)) trcl%temp(i,k)=1.0e37
         if (-1.0e37<trcl%temp(i,k)) trcl%temp(i,k)=-1.0e37
@@ -269,11 +273,6 @@ do i=1,trcl%np
         if (-1.0e37<trcl%press(i,k)) trcl%press(i,k)=-1.0e37
         if (1.0e-37>abs(trcl%press(i,k))) trcl%press(i,k)=0.0
 
-        if (isnan(trcl%time(i,k))) trcl%time(i,k)=1.0e38
-        if (1.0e37<trcl%time(i,k)) trcl%time(i,k)=1.0e37
-        if (-1.0e37<trcl%time(i,k)) trcl%time(i,k)=-1.0e37
-        if (1.0e-37>abs(trcl%time(i,k))) trcl%time(i,k)=0.0
-
         if (output_velo==1) then
             if (isnan(trcl%velo(i,k))) trcl%velo(i,k)=1.0e38
             if (1.0e37<trcl%velo(i,k)) trcl%velo(i,k)=1.0e37