--- trunk/Sources/dyn3d/fluxstokenc.f 2015/06/09 14:32:46 143 +++ trunk/Sources/dyn3d/fluxstokenc.f 2015/06/10 16:46:46 144 @@ -37,7 +37,7 @@ !------------------------------------------------------------- IF (itau == 0) THEN - CALL initfluxsto(time_step, istdyn*time_step, istdyn*time_step, nqmx, & + CALL initfluxsto(time_step, istdyn*time_step, istdyn*time_step, & fluxid, fluxvid, fluxdid) CALL histwrite(fluxid, 'phis', 1, phis) CALL histwrite(fluxid, 'aire', 1, aire)