Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |