/[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 32 by guez, Tue Apr 6 17:52:58 2010 UTC revision 33 by guez, Fri Apr 9 10:56:14 2010 UTC
# Line 1  Line 1 
1  SUBROUTINE caldyn(itau, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, &  SUBROUTINE caldyn(itau, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, &
2       conser, du, dv, dteta, dp, w, pbaru, pbarv, time)       conser, du, dv, dteta, dp, w, pbaru, pbarv, time_0)
3    
4    ! From dyn3d/caldyn.F, v 1.1.1.1 2004/05/19 12:53:06    ! From dyn3d/caldyn.F, v 1.1.1.1 2004/05/19 12:53:06
5    !  Auteur :  P. Le Van    !  Auteur :  P. Le Van
6    !   Objet:    !   Objet:
7    !   Calcul des tendances dynamiques.    !   Calcul des tendances dynamiques.
8    
9    USE dimens_m    USE dimens_m, ONLY : iim, llm
10    USE paramet_m    USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1
11    USE comconst    USE comvert, ONLY : ap, bp
12    USE comvert    USE comgeom, ONLY : airesurg, constang
   USE comgeom  
13    USE pression_m, ONLY : pression    USE pression_m, ONLY : pression
14      use sortvarc_m, only: sortvarc
15    
16    IMPLICIT NONE    IMPLICIT NONE
17    
# Line 28  SUBROUTINE caldyn(itau, ucov, vcov, teta Line 28  SUBROUTINE caldyn(itau, ucov, vcov, teta
28    REAL dv(ip1jm, llm), du(ip1jmp1, llm)    REAL dv(ip1jm, llm), du(ip1jmp1, llm)
29    REAL dteta(ip1jmp1, llm), dp(ip1jmp1)    REAL dteta(ip1jmp1, llm), dp(ip1jmp1)
30    REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)    REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
31    REAL time    REAL, intent(in):: time_0
32    
33    !   Local:    !   Local:
34    
# Line 87  SUBROUTINE caldyn(itau, ucov, vcov, teta Line 87  SUBROUTINE caldyn(itau, ucov, vcov, teta
87    
88    !   Sorties eventuelles des variables de controle:    !   Sorties eventuelles des variables de controle:
89    IF (conser) CALL sortvarc(itau, ucov, teta, ps, masse, pk, phis, vorpot, &    IF (conser) CALL sortvarc(itau, ucov, teta, ps, masse, pk, phis, vorpot, &
90         phi, bern, dp, time)         phi, bern, dp, time_0)
91    
92  END SUBROUTINE caldyn  END SUBROUTINE caldyn
Legend:
Removed from v.32  
changed lines
  Added in v.33
  ViewVC Help
Powered by ViewVC 1.1.21