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

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

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

revision 14 by guez, Wed Feb 27 13:16:39 2008 UTC revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC
# Line 52  c Line 52  c
52       . nqmx, fluxid,fluxvid,fluxdid)       . nqmx, fluxid,fluxvid,fluxdid)
53                    
54          ndex(1) = 0          ndex(1) = 0
55          call histwrite(fluxid, 'phis', 1, phis, iip1*jjp1, ndex)          call histwrite(fluxid, 'phis', 1, phis)
56          call histwrite(fluxid, 'aire', 1, aire, iip1*jjp1, ndex)          call histwrite(fluxid, 'aire', 1, aire)
57                    
58          ndex(1) = 0          ndex(1) = 0
59          nscal = 1          nscal = 1
60          tst(1) = time_step          tst(1) = time_step
61          call histwrite(fluxdid, 'dtvr', 1, tst, nscal, ndex)          call histwrite(fluxdid, 'dtvr', 1, tst)
62          ist(1)=istdyn          ist(1)=istdyn
63          call histwrite(fluxdid, 'istdyn', 1, ist, nscal, ndex)          call histwrite(fluxdid, 'istdyn', 1, ist)
64          istp(1)= istphy          istp(1)= istphy
65          call histwrite(fluxdid, 'istphy', 1, istp, nscal, ndex)          call histwrite(fluxdid, 'istphy', 1, istp)
66                    
67          first = .false.          first = .false.
68    
# Line 130  c     2. groupement des mailles pres du Line 130  c     2. groupement des mailles pres du
130           iadvtr=0           iadvtr=0
131          Print*,'ITAU auqel on stoke les fluxmasses',itau          Print*,'ITAU auqel on stoke les fluxmasses',itau
132                    
133          call histwrite(fluxid, 'masse', itau, massem,          call histwrite(fluxid, 'masse', itau, massem)
      .               iip1*jjp1*llm, ndex)  
134                    
135          call histwrite(fluxid, 'pbaru', itau, pbarug,          call histwrite(fluxid, 'pbaru', itau, pbarug)
      .               iip1*jjp1*llm, ndex)  
136                    
137          call histwrite(fluxvid, 'pbarv', itau, pbarvg,          call histwrite(fluxvid, 'pbarv', itau, pbarvg)
      .               iip1*jjm*llm, ndex)  
138                    
139          call histwrite(fluxid, 'w' ,itau, wg,          call histwrite(fluxid, 'w' ,itau, wg)
      .             iip1*jjp1*llm, ndex)  
140                    
141          call histwrite(fluxid, 'teta' ,itau, tetac,          call histwrite(fluxid, 'teta' ,itau, tetac)
      .             iip1*jjp1*llm, ndex)  
142                    
143          call histwrite(fluxid, 'phi' ,itau, phic,          call histwrite(fluxid, 'phi' ,itau, phic)
      .             iip1*jjp1*llm, ndex)  
144                    
145  C  C
146    
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.21