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

Diff of /trunk/Sources/phylmd/cltracrn.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 6  SUBROUTINE cltracrn( itr, dtime,u1lay, v Line 6  SUBROUTINE cltracrn( itr, dtime,u1lay, v
6       d_tr,d_trs )       d_tr,d_trs )
7    
8    ! This procedure is clean: no C preprocessor directive, no include line.    ! This procedure is clean: no C preprocessor directive, no include line.
   
9    ! From phylmd/cltracrn.F,v 1.2 2005/05/25 13:10:09    ! From phylmd/cltracrn.F,v 1.2 2005/05/25 13:10:09
10    
11    use indicesol, only: nbsrf    use indicesol, only: nbsrf
# Line 53  SUBROUTINE cltracrn( itr, dtime,u1lay, v Line 52  SUBROUTINE cltracrn( itr, dtime,u1lay, v
52    real ftsol(klon,nbsrf), pctsrf(klon,nbsrf)    real ftsol(klon,nbsrf), pctsrf(klon,nbsrf)
53    REAL tr(klon,klev), trs(klon)    REAL tr(klon,klev), trs(klon)
54    REAL, intent(in):: paprs(klon,klev+1)    REAL, intent(in):: paprs(klon,klev+1)
55    real pplay(klon,klev), delp(klon,klev)    real, intent(in):: pplay(klon,klev)
56      real delp(klon,klev)
57    REAL masktr(klon)    REAL masktr(klon)
58    REAL fshtr(klon)    REAL fshtr(klon)
59    REAL hsoltr    REAL hsoltr
# Line 112  SUBROUTINE cltracrn( itr, dtime,u1lay, v Line 112  SUBROUTINE cltracrn( itr, dtime,u1lay, v
112    !AA   Il doit y avoir coherence (dc la meme chose ici)    !AA   Il doit y avoir coherence (dc la meme chose ici)
113    
114    DO i = 1, klon    DO i = 1, klon
      !AA         zx_alpha1(i) = (paprs(i,1)-pplay(i,2))/(pplay(i,1)-pplay(i,2))  
115       zx_alpha1(i) = 1.0       zx_alpha1(i) = 1.0
116       zx_alpha2(i) = 1.0 - zx_alpha1(i)       zx_alpha2(i) = 1.0 - zx_alpha1(i)
117    ENDDO    ENDDO
Legend:
Removed from v.7  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21