/[lmdze]/trunk/Sources/phylmd/stdlevvar.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/stdlevvar.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 11  contains Line 11  contains
11    
12      use coefcdrag_m, only: coefcdrag      use coefcdrag_m, only: coefcdrag
13      USE suphec_m, ONLY: rg, rkappa      USE suphec_m, ONLY: rg, rkappa
14        use screenp_m, only: screenp
15    
16      ! Objet : calcul de la température et de l'humidité relative à 2 m      ! Objet : calcul de la température et de l'humidité relative à 2 m
17      ! et du module du vent à 10 m à partir des relations de      ! et du module du vent à 10 m à partir des relations de
# Line 90  contains Line 91  contains
91      LOGICAL okri      LOGICAL okri
92      REAL, dimension(klon):: u_zref_p, temp_p, q_zref_p      REAL, dimension(klon):: u_zref_p, temp_p, q_zref_p
93      !convertgence      !convertgence
     REAL, dimension(klon):: te_zref_con, q_zref_con  
94      REAL, dimension(klon):: u_zref_c, temp_c, q_zref_c      REAL, dimension(klon):: u_zref_c, temp_c, q_zref_c
95      REAL, dimension(klon):: ok_pred, ok_corr      REAL, dimension(klon):: ok_pred, ok_corr
96    
# Line 124  contains Line 124  contains
124    
125      ! First aproximation of variables at zref        ! First aproximation of variables at zref  
126      zref = 2.0      zref = 2.0
127      CALL screenp(klon, knon, nsrf, speed, tpot, q1, &      CALL screenp(klon, knon, speed, tpot, q1, &
128           ts1, qsurf, rugos, lmon, &           ts1, qsurf, rugos, lmon, &
129           ustar, testar, qstar, zref, &           ustar, testar, qstar, zref, &
130           delu, delte, delq)           delu, delte, delq)
# Line 157  contains Line 157  contains
157            ! return to normal temperature            ! return to normal temperature
158    
159            temp(i) = te_zref(i) * (psol(i)/pref(i))**(-RKAPPA)            temp(i) = te_zref(i) * (psol(i)/pref(i))**(-RKAPPA)
   
           IF(n == ncon) THEN  
              te_zref_con(i) = te_zref(i)  
              q_zref_con(i) = q_zref(i)  
           ENDIF  
160         ENDDO         ENDDO
161      ENDDO      ENDDO
162    
# Line 181  contains Line 176  contains
176      ! First aproximation of variables at zref        ! First aproximation of variables at zref  
177    
178      zref = 10.0      zref = 10.0
179      CALL screenp(klon, knon, nsrf, speed, tpot, q1, &      CALL screenp(klon, knon, speed, tpot, q1, &
180           ts1, qsurf, rugos, lmon, &           ts1, qsurf, rugos, lmon, &
181           ustar, testar, qstar, zref, &           ustar, testar, qstar, zref, &
182           delu, delte, delq)           delu, delte, delq)
Legend:
Removed from v.134  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21