/[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 260 by guez, Tue Mar 6 17:18:33 2018 UTC revision 261 by guez, Wed Mar 7 13:33:15 2018 UTC
# Line 204  contains Line 204  contains
204    
205         IF (MOD(itau + 1, iperiod) == 0) THEN         IF (MOD(itau + 1, iperiod) == 0) THEN
206            ! \'Ecriture du fichier histoire moyenne:            ! \'Ecriture du fichier histoire moyenne:
207            CALL writedynav(vcov, ucov, teta, pk, phi, q, masse, ps, phis, &            CALL writedynav(vcov, ucov, teta, pk, phi, q, masse, ps, &
208                 time = itau + 1)                 time = itau + 1)
209            call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, &            call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, &
210                 q(:, :, :, 1))                 q(:, :, :, 1))
# Line 212  contains Line 212  contains
212    
213         IF (MOD(itau + 1, iecri * day_step) == 0) THEN         IF (MOD(itau + 1, iecri * day_step) == 0) THEN
214            CALL geopot(teta, pk, pks, phis, phi)            CALL geopot(teta, pk, pks, phis, phi)
215            CALL writehist(itau, vcov, ucov, teta, phi, masse, ps)            CALL writehist(vcov, ucov, teta, pk, phi, q, masse, ps, itau)
216         END IF         END IF
217      end do time_integration      end do time_integration
218    
Legend:
Removed from v.260  
changed lines
  Added in v.261
  ViewVC Help
Powered by ViewVC 1.1.21