/[lmdze]/trunk/dyn3d/caldyn.f
ViewVC logotype

Diff of /trunk/dyn3d/caldyn.f

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

revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# Line 86  SUBROUTINE caldyn(itau, ucov, vcov, teta Line 86  SUBROUTINE caldyn(itau, ucov, vcov, teta
86    END DO    END DO
87    
88    !   Sorties eventuelles des variables de controle:    !   Sorties eventuelles des variables de controle:
89    IF (conser) THEN    IF (conser) CALL sortvarc(itau, ucov, teta, ps, masse, pk, phis, vorpot, &
90       CALL sortvarc(itau, ucov, teta, ps, masse, pk, phis, vorpot, phi, bern, &         phi, bern, dp, time)
           dp, time)  
   END IF  
91    
92  END SUBROUTINE caldyn  END SUBROUTINE caldyn
Legend:
Removed from v.25  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21