/[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

trunk/phylmd/stdlevvar.f revision 272 by guez, Wed Jul 11 14:51:28 2018 UTC trunk/phylmd/Interface_surf/stdlevvar.f revision 309 by guez, Thu Sep 27 14:58:10 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 33  contains Line 33  contains
33      REAL, intent(in):: q1(klon) ! humidite relative au 1er niveau du modele      REAL, intent(in):: q1(klon) ! humidite relative au 1er niveau du modele
34      REAL, intent(in):: z1 (klon) ! geopotentiel au 1er niveau du modele      REAL, intent(in):: z1 (klon) ! geopotentiel au 1er niveau du modele
35      REAL, intent(in):: ts1(klon) ! temperature de l'air a la surface      REAL, intent(in):: ts1(klon) ! temperature de l'air a la surface
36      REAL, intent(in):: qsurf(klon) ! humidite relative a la surface      REAL, intent(in):: qsurf(:) ! (knon) humidit\'e relative \`a la surface
37      REAL, intent(in):: rugos(klon) ! rugosite      REAL, intent(in):: rugos(klon) ! rugosite
38      REAL, intent(in):: psol(klon) ! pression au sol      REAL, intent(in):: psol(klon) ! pression au sol
39      REAL, intent(in):: pat1(klon) ! pression au 1er niveau du modele      REAL, intent(in):: pat1(klon) ! pression au 1er niveau du modele
# 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, rugos(:knon), cdram, cdrah)
77    
78      ! Star variables      ! Star variables
79    

Legend:
Removed from v.272  
changed lines
  Added in v.309

  ViewVC Help
Powered by ViewVC 1.1.21