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

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

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

revision 295 by guez, Thu Jul 26 13:23:28 2018 UTC revision 297 by guez, Thu Jul 26 16:02:11 2018 UTC
# Line 11  contains Line 11  contains
11      USE dimphy, ONLY: klev      USE dimphy, ONLY: klev
12      USE suphec_m, ONLY: rcpd, rd, rg, rkappa      USE suphec_m, ONLY: rcpd, rd, rg, rkappa
13    
14      REAL, intent(out), dimension(:, :):: pkf, cq, dq, ch, dh ! (knon, klev)      REAL, intent(in):: pkf(:, :) ! (knon, klev)
15        REAL, intent(out), dimension(:, :):: cq, dq, ch, dh ! (knon, klev)
16    
17      REAL, intent(in):: paprs(:, :) ! (knon, klev + 1)      REAL, intent(in):: paprs(:, :) ! (knon, klev + 1)
18      ! pression a inter-couche (Pa)      ! pression a inter-couche (Pa)
# Line 46  contains Line 47  contains
47    
48      !----------------------------------------------------------------      !----------------------------------------------------------------
49    
     forall (k = 1:klev) pkf(:, k) = (paprs(:, 1) / pplay(:, k))**RKAPPA  
     ! (La pression de r\'ef\'erence est celle au sol.)  
   
50      h = RCPD * t * pkf      h = RCPD * t * pkf
51    
52      ! Convertir les coefficients en variables convenables au calcul:      ! Convertir les coefficients en variables convenables au calcul:
Legend:
Removed from v.295  
changed lines
  Added in v.297
  ViewVC Help
Powered by ViewVC 1.1.21