/[lmdze]/trunk/Sources/dyn3d/leapfrog.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/leapfrog.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC
# Line 120  contains Line 120  contains
120         else         else
121            ! Matsuno            ! Matsuno
122            dt = dtvr            dt = dtvr
123            if (ok_guide .and. (itaufin - itau - 1) * dtvr > 21600.) &            if (ok_guide .and. itaufin - itau - 1 > day_step / 4) &
124                 call guide(itau, ucov, vcov, teta, q, masse, ps)                 call guide(itau, ucov, vcov, teta, q, ps)
125            vcovm1 = vcov            vcovm1 = vcov
126            ucovm1 = ucov            ucovm1 = ucov
127            tetam1 = teta            tetam1 = teta
Legend:
Removed from v.97  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.21