/[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 138 by guez, Fri May 22 23:13:19 2015 UTC revision 154 by guez, Tue Jul 7 17:49:23 2015 UTC
# Line 170  contains Line 170  contains
170         end if         end if
171    
172         IF (MOD(itau + 1, iphysiq) == 0 .AND. iflag_phys /= 0) THEN         IF (MOD(itau + 1, iphysiq) == 0 .AND. iflag_phys /= 0) THEN
173            CALL calfis(itau / day_step + day_ini, &            CALL calfis(ucov, vcov, teta, q, pk, phis, phi, w, dufi, dvfi, &
174                 REAL(mod(itau, day_step)) / day_step, ucov, vcov, teta, q, pk, &                 dtetafi, dqfi, dayvrai = itau / day_step + day_ini, &
175                 phis, phi, w, dufi, dvfi, dtetafi, dqfi, &                 time = REAL(mod(itau, day_step)) / day_step, &
176                 lafin = itau + 1 == itaufin)                 lafin = itau + 1 == itaufin)
177    
178            CALL addfi(ucov, vcov, teta, q, dufi, dvfi, dtetafi, dqfi)            CALL addfi(ucov, vcov, teta, q, dufi, dvfi, dtetafi, dqfi)
Legend:
Removed from v.138  
changed lines
  Added in v.154
  ViewVC Help
Powered by ViewVC 1.1.21