Merge branch 'time_microseconds' into iow_master

src/ncdf/ncdf_3d_bio_bdy.F90

@@ -476,12 +476,12 @@
 
       n = size(bdy_times)
       do i=1,n
-         if(bdy_times(i) .ge. real(offset)) then
+         if(bdy_times(i) .ge. offset) then
             EXIT
          end if
       end do
 
-      if(i .gt. 1 .and. bdy_times(i) .gt. real(offset)) then
+      if(i .gt. 1 .and. bdy_times(i) .gt. offset) then
          i = i-1
       end if
 
@@ -683,7 +683,7 @@
 
          n = size(bdy_times)
          do i=1,n
-            if(bdy_times(i) .ge. real(t + offset)) then
+            if(bdy_times(i) .ge. t + offset) then
                EXIT
             end if
          end do

src/ncdf/ncdf_rivers.F90

@@ -282,7 +282,7 @@
    endif
    t = (loop-loop0)*timestep
    do indx=save_n,textr
-      if (river_times(indx) .ge. real(t + offset)) EXIT
+      if (river_times(indx) .ge. t + offset) EXIT
    end do
    if (indx .gt. last_indx) then
       call write_time_string()
@@ -350,7 +350,7 @@
 !AS this is not to be used !
    t = loop*timestep
    do indx=save_n,textr
-      if (river_times(indx) .gt. real(t + offset)) EXIT
+      if (river_times(indx) .gt. t + offset) EXIT
    end do
    ! First time through we have to initialize t_1
    if (first) then