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

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

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

revision 303 by guez, Tue Jul 24 15:26:36 2018 UTC revision 304 by guez, Thu Sep 6 15:51:09 2018 UTC
# Line 17  contains Line 17  contains
17    
18      ! Reference: Hess, Colman and McAvaney (1995)      ! Reference: Hess, Colman and McAvaney (1995)
19    
20      ! I. Musat, 01.07.2002      ! I. Musat, July 2002
21    
22      use dimphy, only: klon      use dimphy, only: klon
23    
24      INTEGER, intent(in):: knon      INTEGER, intent(in):: knon ! nombre de points pour un type de surface
25      ! knon----input-I- nombre de points pour un type de surface      REAL, intent(in):: speed(klon) ! module du vent au 1er niveau du modele
26      REAL, dimension(klon), intent(in):: speed      REAL, intent(in):: tair(klon) ! temperature de l'air au 1er niveau du modele
27      ! speed---input-R- module du vent au 1er niveau du modele      REAL, intent(in):: qair(klon) ! humidite relative au 1er niveau du modele
28      REAL, dimension(klon), intent(in):: tair      REAL, intent(in):: ts(klon) ! temperature de l'air a la surface
29      ! tair----input-R- temperature de l'air au 1er niveau du modele      REAL, intent(in):: qsurf(:) ! (knon) humidite relative a la surface
30      REAL, dimension(klon), intent(in):: qair      REAL, intent(in):: rugos(klon) ! rugosite
31      ! qair----input-R- humidite relative au 1er niveau du modele      DOUBLE PRECISION, intent(in):: lmon(klon) ! longueur de Monin-Obukov
     REAL, dimension(klon), intent(in):: ts  
     ! ts------input-R- temperature de l'air a la surface  
     REAL, dimension(klon), intent(in):: qsurf  
     ! qsurf---input-R- humidite relative a la surface  
     REAL, dimension(klon), intent(in):: rugos  
     ! rugos---input-R- rugosite  
     DOUBLE PRECISION, dimension(klon), intent(in):: lmon  
     ! lmon----input-R- longueur de Monin-Obukov  
32      REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent      REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent
     REAL, dimension(klon), intent(in):: testar  
     ! testar--input-R- facteur d'echelle pour la temperature potentielle  
     REAL, dimension(klon), intent(in):: qstar  
     ! qstar---input-R- facteur d'echelle pour l'humidite relative  
     REAL, intent(in):: zref  
     ! zref----input-R- altitude de reference  
33    
34      REAL, dimension(klon), intent(out):: delu      REAL, intent(in):: testar(klon)
35      ! delu----input-R- anomalie du vent par rapport au 1er niveau      ! facteur d'echelle pour la temperature potentielle
36    
37      REAL, dimension(klon), intent(out):: delte      REAL, intent(in):: qstar(klon) ! facteur d'echelle pour l'humidite relative
38        REAL, intent(in):: zref ! altitude de reference
39        REAL, intent(out):: delu(klon) ! anomalie du vent par rapport au 1er niveau
40    
41        REAL, intent(out):: delte(klon)
42      ! anomalie de la temperature potentielle par rapport a la surface      ! anomalie de la temperature potentielle par rapport a la surface
43    
44      REAL, dimension(klon), intent(out):: delq      REAL, intent(out):: delq(klon)
45      ! delq----input-R- anomalie de l'humidite relative par rapport a la surface      ! anomalie de l'humidite relative par rapport a la surface
46    
47      ! Local:      ! Local:
48      REAL, PARAMETER:: RKAR=0.40      REAL, PARAMETER:: RKAR=0.40
Legend:
Removed from v.303  
changed lines
  Added in v.304
  ViewVC Help
Powered by ViewVC 1.1.21