/[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 303 by guez, Tue Jul 24 15:22:48 2018 UTC revision 304 by guez, Thu Sep 6 15:51:09 2018 UTC
# 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) humidite 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 73  contains Line 73  contains
73      ENDDO      ENDDO
74    
75      CALL cdrag(nsrf, speed(:knon), t1(:knon), q1(:knon), z1(:knon), &      CALL cdrag(nsrf, speed(:knon), t1(:knon), q1(:knon), z1(:knon), &
76           psol(:knon), ts1(:knon), qsurf(:knon), rugos(:knon), cdram, cdrah)           psol(:knon), ts1(:knon), qsurf, rugos(:knon), cdram, cdrah)
77    
78      ! Star variables      ! Star variables
79    
Legend:
Removed from v.303  
changed lines
  Added in v.304
  ViewVC Help
Powered by ViewVC 1.1.21