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

Diff of /trunk/phylmd/clmain.f

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

revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 123  c Line 123  c
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.7  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21