Merge pull request #4 from campuzanofj/Dev

Bug Bivalve timeseries corrected
Mohid-Water-Modelling-System · Aug 2, 2022 · 5091644 · 5091644
2 parents 4447f54 + 0733d53
commit 5091644
Showing 1 changed file with 5 additions and 13 deletions.
diff --git a/Software/MOHIDWater/ModuleWaterProperties.F90 b/Software/MOHIDWater/ModuleWaterProperties.F90
@@ -4399,21 +4399,13 @@ subroutine Construct_Time_Serie
                     end do 
                     end do 
                     end do 
-
-                    call SetBivalveTimeSeries(Me%ObjBivalve,                    &
-                                              Me%Output%BivalveTimeSeriesIndex, &
-                                              Me%Output%BivalveTimeSeriesNames, &
-                                              STAT = STAT_CALL)
-                    if (STAT_CALL /= SUCCESS_) call CloseAllAndStop ('Construct_Time_Serie - ModuleWaterProperties - ERR130')
-
                 endif
-
-
-
-
             enddo
-
-
+            call SetBivalveTimeSeries(Me%ObjBivalve,                    &
+                                        Me%Output%BivalveTimeSeriesIndex, &
+                                        Me%Output%BivalveTimeSeriesNames, &
+                                        STAT = STAT_CALL)
+            if (STAT_CALL /= SUCCESS_) call CloseAllAndStop ('Construct_Time_Serie - ModuleWaterProperties - ERR130')
         endif
 
     end subroutine Construct_Time_Serie