/[lmdze]/trunk/phylmd/Conflx/flxini.f90
ViewVC logotype

Diff of /trunk/phylmd/Conflx/flxini.f90

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

trunk/libf/phylmd/Conflx/flxini.f90 revision 71 by guez, Mon Jul 8 18:12:18 2013 UTC trunk/Sources/phylmd/Conflx/flxini.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 20  contains Line 20  contains
20      REAL, intent(in):: pqen(klon, klev) ! humidite (environnement)      REAL, intent(in):: pqen(klon, klev) ! humidite (environnement)
21      REAL, intent(in):: pqsen(klon, klev) ! humidite saturante (environnement)      REAL, intent(in):: pqsen(klon, klev) ! humidite saturante (environnement)
22      REAL, intent(in):: pgeo(klon, klev) ! geopotentiel (g * metre)      REAL, intent(in):: pgeo(klon, klev) ! geopotentiel (g * metre)
23      REAL paph(klon, klev+1) ! pression aux demi-niveaux      REAL, intent(in):: paph(klon, klev+1) ! pression aux demi-niveaux
24      REAL pgeoh(klon, klev) ! geopotentiel aux demi-niveaux      REAL pgeoh(klon, klev) ! geopotentiel aux demi-niveaux
25      REAL ptenh(klon, klev) ! temperature aux demi-niveaux      REAL ptenh(klon, klev) ! temperature aux demi-niveaux
26      REAL pqenh(klon, klev) ! humidite aux demi-niveaux      REAL pqenh(klon, klev) ! humidite aux demi-niveaux
# Line 72  contains Line 72  contains
72         ENDDO         ENDDO
73    
74         icall=0         icall=0
75         CALL flxadjtq(paph(1, k), ptenh(1, k), pqsenh(1, k), llflag, icall)         CALL flxadjtq(paph(:, k), ptenh(1, k), pqsenh(1, k), llflag, icall)
76    
77         DO i = 1, klon         DO i = 1, klon
78            pqenh(i, k)=MIN(pqen(i, k-1), pqsen(i, k-1)) &            pqenh(i, k)=MIN(pqen(i, k-1), pqsen(i, k-1)) &
Legend:
Removed from v.71  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21