/[lmdze]/trunk/Sources/dyn3d/fluxstokenc.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/fluxstokenc.f

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

trunk/dyn3d/fluxstokenc.f revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC trunk/Sources/dyn3d/fluxstokenc.f revision 150 by guez, Thu Jun 18 13:49:26 2015 UTC
# Line 37  contains Line 37  contains
37      !-------------------------------------------------------------      !-------------------------------------------------------------
38    
39      IF (itau == 0) THEN      IF (itau == 0) THEN
40         CALL initfluxsto(time_step, istdyn*time_step, istdyn*time_step, nqmx, &         CALL initfluxsto(time_step, istdyn*time_step, istdyn*time_step, &
41              fluxid, fluxvid, fluxdid)              fluxid, fluxvid, fluxdid)
42         CALL histwrite(fluxid, 'phis', 1, phis)         CALL histwrite(fluxid, 'phis', 1, phis)
43         CALL histwrite(fluxid, 'aire', 1, aire)         CALL histwrite(fluxid, 'aire', 1, aire)
# Line 87  contains Line 87  contains
87         !     1. calcul de w         !     1. calcul de w
88         !     2. groupement des mailles pres du pole.         !     2. groupement des mailles pres du pole.
89    
90         CALL groupe(massem, pbaruc, pbarvc, pbarug, pbarvg, wg)         CALL groupe(pbaruc, pbarvc, pbarug, pbarvg, wg)
91    
92         CALL histwrite(fluxid, 'masse', itau, massem)         CALL histwrite(fluxid, 'masse', itau, massem)
93         CALL histwrite(fluxid, 'pbaru', itau, pbarug)         CALL histwrite(fluxid, 'pbaru', itau, pbarug)
Legend:
Removed from v.102  
changed lines
  Added in v.150
  ViewVC Help
Powered by ViewVC 1.1.21