/[lmdze]/trunk/Sources/phylmd/coefkz2.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/coefkz2.f

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

revision 234 by guez, Tue Nov 7 12:20:42 2017 UTC revision 235 by guez, Thu Nov 9 12:37:48 2017 UTC
# Line 32  contains Line 32  contains
32      REAL paprs(klon, klev+1), pplay(klon, klev)      REAL paprs(klon, klev+1), pplay(klon, klev)
33      REAL t(klon, klev)      REAL t(klon, klev)
34    
35      REAL, intent(out):: pcfm(:, :), pcfh(:, :) ! (knon, klev)      REAL, intent(out):: pcfm(:, 2:), pcfh(:, 2:) ! (knon, 2:klev)
36    
37      ! Quelques constantes et options:      ! Quelques constantes et options:
38    
# Line 54  contains Line 54  contains
54      !----------------------------------------------------------      !----------------------------------------------------------
55    
56      ! Initialiser les sorties      ! Initialiser les sorties
57      DO k = 1, klev      DO k = 2, klev
58         DO i = 1, knon         DO i = 1, knon
59            pcfm(i, k) = 0.0            pcfm(i, k) = 0.0
60            pcfh(i, k) = 0.0            pcfh(i, k) = 0.0
Legend:
Removed from v.234  
changed lines
  Added in v.235
  ViewVC Help
Powered by ViewVC 1.1.21