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

Diff of /trunk/phylmd/cdrag.f

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

revision 271 by guez, Wed Jul 11 13:22:39 2018 UTC revision 272 by guez, Wed Jul 11 14:51:28 2018 UTC
# Line 4  module clcdrag_m Line 4  module clcdrag_m
4    
5  contains  contains
6    
7    SUBROUTINE clcdrag(nsrf, speed, t, q, zgeop, ts, qsurf, rugos, pcfm, pcfh)    SUBROUTINE clcdrag(nsrf, speed, t, q, zgeop, psol, ts, qsurf, rugos, pcfm, &
8           pcfh, pref)
9    
10      ! From LMDZ4/libf/phylmd/clcdrag.F90, version 1.1.1.1, 2004/05/19 12:53:07      ! From LMDZ4/libf/phylmd/clcdrag.F90, version 1.1.1.1, 2004/05/19 12:53:07
11    
# Line 27  contains Line 28  contains
28    
29      REAL, intent(in):: q(:) ! (knon) ! humidite de l'air au 1er niveau du modele      REAL, intent(in):: q(:) ! (knon) ! humidite de l'air au 1er niveau du modele
30      REAL, intent(in):: zgeop(:) ! (knon) géopotentiel au 1er niveau du modèle      REAL, intent(in):: zgeop(:) ! (knon) géopotentiel au 1er niveau du modèle
31        REAL, intent(in) :: psol(:) ! (knon) pression au sol
32      REAL, intent(in):: ts(:) ! (knon) temperature de l'air a la surface      REAL, intent(in):: ts(:) ! (knon) temperature de l'air a la surface
33      REAL, intent(in):: qsurf(:) ! (knon) humidite de l'air a la surface      REAL, intent(in):: qsurf(:) ! (knon) humidite de l'air a la surface
34      REAL, intent(in):: rugos(:) ! (knon) rugosit\'e      REAL, intent(in):: rugos(:) ! (knon) rugosit\'e
# Line 35  contains Line 37  contains
37      REAL, intent(out):: pcfh(:) ! (knon)      REAL, intent(out):: pcfh(:) ! (knon)
38      ! drag coefficient pour les flux de chaleur latente et sensible      ! drag coefficient pour les flux de chaleur latente et sensible
39    
40        REAL, intent(out), optional:: pref(:) ! (knon) pression au niveau zgeop/RG
41    
42      ! Local:      ! Local:
43    
44      ! Quelques constantes et options:      ! Quelques constantes et options:
Legend:
Removed from v.271  
changed lines
  Added in v.272
  ViewVC Help
Powered by ViewVC 1.1.21