/[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 33 by guez, Fri Apr 9 10:56:14 2010 UTC revision 34 by guez, Wed Jun 2 11:01:12 2010 UTC
# Line 167  contains Line 167  contains
167            time = REAL(mod(itau, day_step)) / day_step + time_0            time = REAL(mod(itau, day_step)) / day_step + time_0
168            IF (time > 1.) time = time - 1.            IF (time > 1.) time = time - 1.
169    
170            CALL calfis(nqmx, itau + 1 == itaufin, rdayvrai, time, ucov, vcov, &            CALL calfis(itau + 1 == itaufin, rdayvrai, time, ucov, vcov, &
171                 teta, q, masse, ps, pk, phis, phi, du, dv, dteta, dq, w, dufi, &                 teta, q, masse, ps, pk, phis, phi, du, dv, dteta, dq, w, dufi, &
172                 dvfi, dtetafi, dqfi, dpfi)                 dvfi, dtetafi, dqfi, dpfi)
173    
Legend:
Removed from v.33  
changed lines
  Added in v.34
  ViewVC Help
Powered by ViewVC 1.1.21