/[lmdze]/trunk/phylmd/cltracrn.f90
ViewVC logotype

Diff of /trunk/phylmd/cltracrn.f90

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

revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 5  SUBROUTINE cltracrn( itr, dtime,u1lay, v Line 5  SUBROUTINE cltracrn( itr, dtime,u1lay, v
5       lat, &       lat, &
6       d_tr,d_trs )       d_tr,d_trs )
7    
   ! This procedure is clean: no C preprocessor directive, no include line.  
   
8    ! 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
9    
10    use indicesol, only: nbsrf    use indicesol, only: nbsrf
11    use dimphy, only: klon, klev    use dimphy, only: klon, klev
12    use YOMCST, only: RD, rg    use SUPHEC_M, only: RD, rg
13    
14    IMPLICIT none    IMPLICIT none
15    !======================================================================    !======================================================================
# Line 53  SUBROUTINE cltracrn( itr, dtime,u1lay, v Line 51  SUBROUTINE cltracrn( itr, dtime,u1lay, v
51    real ftsol(klon,nbsrf), pctsrf(klon,nbsrf)    real ftsol(klon,nbsrf), pctsrf(klon,nbsrf)
52    REAL tr(klon,klev), trs(klon)    REAL tr(klon,klev), trs(klon)
53    REAL, intent(in):: paprs(klon,klev+1)    REAL, intent(in):: paprs(klon,klev+1)
54    real pplay(klon,klev), delp(klon,klev)    real, intent(in):: pplay(klon,klev)
55      real delp(klon,klev)
56    REAL masktr(klon)    REAL masktr(klon)
57    REAL fshtr(klon)    REAL fshtr(klon)
58    REAL hsoltr    REAL hsoltr
# Line 112  SUBROUTINE cltracrn( itr, dtime,u1lay, v Line 111  SUBROUTINE cltracrn( itr, dtime,u1lay, v
111    !AA   Il doit y avoir coherence (dc la meme chose ici)    !AA   Il doit y avoir coherence (dc la meme chose ici)
112    
113    DO i = 1, klon    DO i = 1, klon
      !AA         zx_alpha1(i) = (paprs(i,1)-pplay(i,2))/(pplay(i,1)-pplay(i,2))  
114       zx_alpha1(i) = 1.0       zx_alpha1(i) = 1.0
115       zx_alpha2(i) = 1.0 - zx_alpha1(i)       zx_alpha2(i) = 1.0 - zx_alpha1(i)
116    ENDDO    ENDDO
Legend:
Removed from v.7  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21