/[lmdze]/trunk/phylmd/stdlevvar.f
ViewVC logotype

Diff of /trunk/phylmd/stdlevvar.f

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

revision 273 by guez, Wed Jul 11 14:51:28 2018 UTC revision 274 by guez, Wed Jul 11 16:50:27 2018 UTC
# Line 53  contains Line 53  contains
53      REAL, dimension(klon):: speed      REAL, dimension(klon):: speed
54      ! tpot : temperature potentielle      ! tpot : temperature potentielle
55      REAL, dimension(klon):: tpot      REAL, dimension(klon):: tpot
56      REAL cdram(klon), cdrah(klon)      REAL cdram(size(u1)), cdrah(size(u1))
57      REAL, dimension(klon):: testar, qstar      REAL, dimension(klon):: testar, qstar
58      REAL, dimension(klon):: zdte, zdq      REAL, dimension(klon):: zdte, zdq
59      ! lmon : longueur de Monin-Obukhov selon Hess, Colman and McAvaney      ! lmon : longueur de Monin-Obukhov selon Hess, Colman and McAvaney
# Line 73  contains Line 73  contains
73      ENDDO      ENDDO
74    
75      CALL coefcdrag(nsrf, speed(:knon), t1(:knon), q1(:knon), z1(:knon), &      CALL coefcdrag(nsrf, speed(:knon), t1(:knon), q1(:knon), z1(:knon), &
76           psol(:knon), ts1, qsurf, rugos, cdram, cdrah)           psol(:knon), ts1(:knon), qsurf(:knon), rugos(:knon), cdram, cdrah)
77    
78      ! Star variables      ! Star variables
79    
Legend:
Removed from v.273  
changed lines
  Added in v.274
  ViewVC Help
Powered by ViewVC 1.1.21