/[lmdze]/trunk/Sources/dyn3d/advzp.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/advzp.f

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

revision 104 by guez, Wed Mar 5 14:57:53 2014 UTC revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC
# Line 43  SUBROUTINE advzp(limit, dtz, w, sm, s0, Line 43  SUBROUTINE advzp(limit, dtz, w, sm, s0,
43    ! parbu,pbarv : flux de masse en x et y en Pa.m2.s-1    ! parbu,pbarv : flux de masse en x et y en Pa.m2.s-1
44    
45    INTEGER lon, lat, niv    INTEGER lon, lat, niv
46    INTEGER i, j, jv, k, kp, l, lp    INTEGER i, j, jv, k, l, lp
47    INTEGER ntra    INTEGER ntra
48    ! PARAMETER (ntra = 1)    ! PARAMETER (ntra = 1)
49    
# Line 90  SUBROUTINE advzp(limit, dtz, w, sm, s0, Line 90  SUBROUTINE advzp(limit, dtz, w, sm, s0,
90    REAL fxx(iim, llm, ntra), fxy(iim, llm, ntra)    REAL fxx(iim, llm, ntra), fxy(iim, llm, ntra)
91    REAL fxz(iim, llm, ntra), fyy(iim, llm, ntra)    REAL fxz(iim, llm, ntra), fyy(iim, llm, ntra)
92    REAL fyz(iim, llm, ntra), fzz(iim, llm, ntra)    REAL fyz(iim, llm, ntra), fzz(iim, llm, ntra)
   REAL s00(ntra)  
   REAL sm0 ! Just temporal variable  
93    
94    ! work arrays    ! work arrays
95    
Legend:
Removed from v.104  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21