/[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 235 by guez, Thu Nov 9 12:37:48 2017 UTC revision 248 by guez, Fri Jan 5 16:40:13 2018 UTC
# Line 28  contains Line 28  contains
28    
29      ! Arguments:      ! Arguments:
30    
31      INTEGER knon, nsrf      INTEGER knon
32      REAL paprs(klon, klev+1), pplay(klon, klev)      integer, intent(in):: nsrf
33      REAL t(klon, klev)      REAL, intent(in):: paprs(klon, klev+1), pplay(klon, klev)
34        REAL, intent(in):: t(klon, klev)
35    
36      REAL, intent(out):: pcfm(:, 2:), pcfh(:, 2:) ! (knon, 2:klev)      REAL, intent(out):: pcfm(:, 2:), pcfh(:, 2:) ! (knon, 2:klev)
37    
Legend:
Removed from v.235  
changed lines
  Added in v.248
  ViewVC Help
Powered by ViewVC 1.1.21