/[lmdze]/trunk/phylmd/Interface_surf/screenc.f90
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/screenc.f90

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

trunk/phylmd/screenc.f revision 274 by guez, Wed Jul 11 16:50:27 2018 UTC trunk/phylmd/Interface_surf/screenc.f revision 304 by guez, Thu Sep 6 15:51:09 2018 UTC
# Line 19  contains Line 19  contains
19    
20      ! I. Musat, 01.07.2002      ! I. Musat, 01.07.2002
21    
22      use coefcdrag_m, only: coefcdrag      use cdrag_m, only: cdrag
23      use SUPHEC_M, only: RG      use SUPHEC_M, only: RG
24    
25      INTEGER, intent(in):: klon      INTEGER, intent(in):: klon
# Line 29  contains Line 29  contains
29      ! knon----input-I- nombre de points pour un type de surface      ! knon----input-I- nombre de points pour un type de surface
30      INTEGER, intent(in):: nsrf      INTEGER, intent(in):: nsrf
31      ! nsrf----input-I- indice pour le type de surface; voir indicesol.inc      ! nsrf----input-I- indice pour le type de surface; voir indicesol.inc
32      REAL, dimension(klon), intent(in):: speed, temp, q_zref      REAL, dimension(klon), intent(in):: speed
33      ! speed---input-R- module du vent au 1er niveau du modele      ! speed---input-R- module du vent au 1er niveau du modele
34        REAL, dimension(klon), intent(in):: temp
35      ! temp----input-R- temperature de l'air au 1er niveau du modele      ! temp----input-R- temperature de l'air au 1er niveau du modele
36        REAL, dimension(klon), intent(in):: q_zref
37      ! q_zref--input-R- humidite relative au 1er niveau du modele      ! q_zref--input-R- humidite relative au 1er niveau du modele
38      REAL, intent(in):: zref      REAL, intent(in):: zref
39      ! zref----input-R- altitude de reference      ! zref----input-R- altitude de reference
40      REAL, dimension(klon), intent(in):: ts, qsurf, rugos, psol      REAL, dimension(klon), intent(in):: ts
41      ! ts------input-R- temperature de l'air a la surface      ! ts------input-R- temperature de l'air a la surface
42      ! qsurf---input-R- humidite relative a la surface      REAL, intent(in):: qsurf(:) ! (knon) humidite relative a la surface
43        REAL, dimension(klon), intent(in):: rugos
44      ! rugos---input-R- rugosite      ! rugos---input-R- rugosite
45        REAL, dimension(klon), intent(in):: psol
46      ! psol----input-R- pression au sol      ! psol----input-R- pression au sol
47      REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent      REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent
48      REAL, dimension(klon), intent(in):: testar      REAL, dimension(klon), intent(in):: testar
# Line 67  contains Line 71  contains
71    
72      ! Richardson at reference level      ! Richardson at reference level
73    
74      CALL coefcdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), &      CALL cdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), gref(:knon), &
75           gref(:knon), psol(:knon), ts(:knon), qsurf(:knon), rugos(:knon), &           psol(:knon), ts(:knon), qsurf, rugos(:knon), cdram, cdrah, pref)
          cdram, cdrah, pref)  
76    
77      DO i = 1, knon      DO i = 1, knon
78         delu(i) = ustar(i) / sqrt(cdram(i))         delu(i) = ustar(i) / sqrt(cdram(i))
Legend:
Removed from v.274  
changed lines
  Added in v.304
  ViewVC Help
Powered by ViewVC 1.1.21