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

Diff of /trunk/dyn3d/leapfrog.f

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

revision 88 by guez, Tue Mar 11 15:09:02 2014 UTC revision 89 by guez, Tue Mar 11 16:03:19 2014 UTC
# Line 178  contains Line 178  contains
178            IF (time > 1.) time = time - 1.            IF (time > 1.) time = time - 1.
179    
180            CALL calfis(rdayvrai, time, ucov, vcov, teta, q, ps, pk, phis, phi, &            CALL calfis(rdayvrai, time, ucov, vcov, teta, q, ps, pk, phis, phi, &
181                 dudyn, dv, w, dufi, dvfi, dtetafi, dqfi, dpfi, &                 dudyn, w, dufi, dvfi, dtetafi, dqfi, dpfi, &
182                 lafin = itau + 1 == itaufin)                 lafin = itau + 1 == itaufin)
183    
184            ! Ajout des tendances physiques:            ! Ajout des tendances physiques:
Legend:
Removed from v.88  
changed lines
  Added in v.89
  ViewVC Help
Powered by ViewVC 1.1.21