[Dart-dev] [3378] DART/trunk/models/MITgcm_ocean/model_mod.f90: to assimilate daily

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080522/b4c9508d/attachment.html
-------------- next part --------------
Modified: DART/trunk/models/MITgcm_ocean/model_mod.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/model_mod.f90	2008-05-22 16:08:25 UTC (rev 3377)
+++ DART/trunk/models/MITgcm_ocean/model_mod.f90	2008-05-22 16:50:19 UTC (rev 3378)
@@ -372,7 +372,7 @@
 if ((deltaTmom   == deltaTtracer) .and. &
     (deltaTmom   == deltaTClock ) .and. &
     (deltaTClock == deltaTtracer)) then
-   model_timestep = set_time(nint(deltaTmom), 0) ! works with deltaTmom > 86400
+   model_timestep = set_time(86400, 0) ! works with deltaTmom > 86400
    timestep       = deltaTmom                    ! need a time_type version
 else
    write(msgstring,*)"namelist PARM03 has deltaTmom /= deltaTtracer /= deltaTClock"