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

Diff of /trunk/phylmd/Interface_surf/stdlevvar.f

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

revision 272 by guez, Wed Jul 11 14:51:28 2018 UTC revision 275 by guez, Wed Jul 11 17:06:09 2018 UTC
# Line 19  contains Line 19  contains
19    
20      use nr_util, only: assert_eq      use nr_util, only: assert_eq
21    
22      use coefcdrag_m, only: coefcdrag      use cdrag_m, only: cdrag
23      USE dimphy, ONLY: klon      USE dimphy, ONLY: klon
24      USE suphec_m, ONLY: rg, rkappa      USE suphec_m, ONLY: rg, rkappa
25      use screenc_m, only: screenc      use screenc_m, only: screenc
# 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 72  contains Line 72  contains
72         speed(i)=SQRT(u1(i)**2+v1(i)**2)         speed(i)=SQRT(u1(i)**2+v1(i)**2)
73      ENDDO      ENDDO
74    
75      CALL coefcdrag(nsrf, speed(:knon), t1(:knon), q1(:knon), z1(:knon), &      CALL cdrag(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.272  
changed lines
  Added in v.275
  ViewVC Help
Powered by ViewVC 1.1.21