/[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

revision 143 by guez, Wed Apr 29 15:47:56 2015 UTC revision 144 by guez, Wed Jun 10 16:46:46 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)
Legend:
Removed from v.143  
changed lines
  Added in v.144
  ViewVC Help
Powered by ViewVC 1.1.21