/[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 68 by guez, Wed Nov 14 16:59:30 2012 UTC revision 70 by guez, Mon Jun 24 15:39:52 2013 UTC
# Line 7  contains Line 7  contains
7    SUBROUTINE caldyn(itau, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, &    SUBROUTINE caldyn(itau, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, &
8         dudyn, dv, dteta, dp, w, pbaru, pbarv, time_0, conser)         dudyn, dv, dteta, dp, w, pbaru, pbarv, time_0, conser)
9    
10      ! From dyn3d/caldyn.F, v 1.1.1.1 2004/05/19 12:53:06      ! From dyn3d/caldyn.F, version 1.1.1.1 2004/05/19 12:53:06
11      ! Auteur : P. Le Van      ! Auteur : P. Le Van
12      ! Objet : calcul des tendances dynamiques      ! Objet : calcul des tendances dynamiques
13    
14      use advect_m, only: advect      use advect_m, only: advect
15      USE comgeom, ONLY : airesurg, constang      USE comgeom, ONLY: airesurg, constang
16      USE dimens_m, ONLY : iim, llm      USE dimens_m, ONLY: iim, llm
17      USE disvert_m, ONLY : ap, bp      USE disvert_m, ONLY: ap, bp
18      use massdair_m, only: massdair      use massdair_m, only: massdair
19      USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1      USE paramet_m, ONLY: iip1, ip1jm, ip1jmp1, jjp1, llmp1
20      use sortvarc_m, only: sortvarc      use sortvarc_m, only: sortvarc
21    
22      ! Arguments:      ! Arguments:
23    
     LOGICAL, INTENT(IN):: conser  
24      INTEGER, INTENT(IN):: itau      INTEGER, INTENT(IN):: itau
25      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)      REAL ucov(ip1jmp1, llm), vcov(ip1jm, llm)
26      real, intent(in):: teta(ip1jmp1, llm)      real, intent(in):: teta(ip1jmp1, llm)
27      REAL, INTENT(IN):: ps(ip1jmp1), phis(ip1jmp1)      REAL, INTENT(IN):: ps(ip1jmp1)
28        real, intent(out):: masse(ip1jmp1, llm)
29      REAL, INTENT(IN):: pk(iip1, jjp1, llm)      REAL, INTENT(IN):: pk(iip1, jjp1, llm)
30      REAL pkf(ip1jmp1, llm)      REAL pkf(ip1jmp1, llm)
31      REAL vcont(ip1jm, llm), ucont(ip1jmp1, llm)      REAL, INTENT(IN):: phis(ip1jmp1)
32      REAL, INTENT(IN):: phi(ip1jmp1, llm)      REAL, INTENT(IN):: phi(ip1jmp1, llm)
     real masse(ip1jmp1, llm)  
33      REAL dv(ip1jm, llm), dudyn(ip1jmp1, llm)      REAL dv(ip1jm, llm), dudyn(ip1jmp1, llm)
34      REAL dteta(ip1jmp1, llm)      REAL dteta(ip1jmp1, llm)
35      real, INTENT(out):: dp(ip1jmp1)      real, INTENT(out):: dp(ip1jmp1)
36        REAL, INTENT(out):: w(ip1jmp1, llm)
37      REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)      REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
38      REAL, intent(in):: time_0      REAL, intent(in):: time_0
39      REAL, INTENT(out):: w(ip1jmp1, llm)      LOGICAL, INTENT(IN):: conser
40    
41      ! Local:      ! Local:
42    
43        REAL vcont(ip1jm, llm), ucont(ip1jmp1, llm)
44      REAL ang(ip1jmp1, llm), p(ip1jmp1, llmp1)      REAL ang(ip1jmp1, llm), p(ip1jmp1, llmp1)
45      REAL massebx(ip1jmp1, llm), masseby(ip1jm, llm)      REAL massebx(ip1jmp1, llm), masseby(ip1jm, llm)
46      REAL vorpot(ip1jm, llm)      REAL vorpot(ip1jm, llm)
Legend:
Removed from v.68  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.21