--- trunk/libf/dyn3d/caldyn.f90	2010/03/05 16:43:45	25
+++ trunk/libf/dyn3d/caldyn.f90	2010/04/06 17:52:58	32
@@ -86,9 +86,7 @@
   END DO
 
   !   Sorties eventuelles des variables de controle:
-  IF (conser) THEN
-     CALL sortvarc(itau, ucov, teta, ps, masse, pk, phis, vorpot, phi, bern, &
-          dp, time)
-  END IF
+  IF (conser) CALL sortvarc(itau, ucov, teta, ps, masse, pk, phis, vorpot, &
+       phi, bern, dp, time)
 
 END SUBROUTINE caldyn