/[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 261 by guez, Wed Mar 7 13:33:15 2018 UTC revision 262 by guez, Wed Mar 7 13:46:18 2018 UTC
# Line 36  contains Line 36  contains
36      use integrd_m, only: integrd      use integrd_m, only: integrd
37      use nr_util, only: assert      use nr_util, only: assert
38      USE temps, ONLY: itau_dyn      USE temps, ONLY: itau_dyn
     use writedynav_m, only: writedynav  
39      use writehist_m, only: writehist      use writehist_m, only: writehist
40    
41      ! Variables dynamiques:      ! Variables dynamiques:
# Line 203  contains Line 202  contains
202         END IF         END IF
203    
204         IF (MOD(itau + 1, iperiod) == 0) THEN         IF (MOD(itau + 1, iperiod) == 0) THEN
           ! \'Ecriture du fichier histoire moyenne:  
           CALL writedynav(vcov, ucov, teta, pk, phi, q, masse, ps, &  
                time = itau + 1)  
205            call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, &            call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, &
206                 q(:, :, :, 1))                 q(:, :, :, 1))
207         ENDIF         ENDIF
Legend:
Removed from v.261  
changed lines
  Added in v.262
  ViewVC Help
Powered by ViewVC 1.1.21