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

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

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 118  c$$$ PB ajout pour soil Line 118  c$$$ PB ajout pour soil
118  c  c
119        REAL dtime        REAL dtime
120        real date0        real date0
121        integer itap        integer, intent(in):: itap
122        REAL t(klon,klev), q(klon,klev)        REAL t(klon,klev), q(klon,klev)
123        REAL u(klon,klev), v(klon,klev)        REAL u(klon,klev), v(klon,klev)
124  cIM 230604 BAD  REAL radsol(klon) ???  cIM 230604 BAD  REAL radsol(klon) ???
125        REAL, intent(in):: paprs(klon,klev+1)        REAL, intent(in):: paprs(klon,klev+1)
126        real pplay(klon,klev)        real, intent(in):: pplay(klon,klev)
127        REAL, intent(in):: rlon(klon), rlat(klon)        REAL, intent(in):: rlon(klon), rlat(klon)
128        real cufi(klon), cvfi(klon)        real cufi(klon), cvfi(klon)
129        REAL d_t(klon, klev), d_q(klon, klev)        REAL d_t(klon, klev), d_q(klon, klev)
# Line 356  CC        call flush(6) Line 356  CC        call flush(6)
356        ENDDO        ENDDO
357        ENDDO        ENDDO
358        DO i = 1, klon  ! vent de la premiere couche        DO i = 1, klon  ! vent de la premiere couche
 ccc         zx_alf1 = (paprs(i,1)-pplay(i,2))/(pplay(i,1)-pplay(i,2))  
359           zx_alf1 = 1.0           zx_alf1 = 1.0
360           zx_alf2 = 1.0 - zx_alf1           zx_alf2 = 1.0 - zx_alf1
361           u1lay(i) = u(i,1)*zx_alf1 + u(i,2)*zx_alf2           u1lay(i) = u(i,1)*zx_alf1 + u(i,2)*zx_alf2
Legend:
Removed from v.3  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21