/[lmdze]/trunk/Sources/phylmd/Radlwsw/lwvb.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Radlwsw/lwvb.f

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

revision 177 by guez, Wed Apr 29 15:47:56 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 74  SUBROUTINE lwvb(kuaer, ktraer, klim, pab Line 74  SUBROUTINE lwvb(kuaer, ktraer, klim, pab
74    DOUBLE PRECISION zfu(kdlon)    DOUBLE PRECISION zfu(kdlon)
75    DOUBLE PRECISION ztt(kdlon, ntra)    DOUBLE PRECISION ztt(kdlon, ntra)
76    DOUBLE PRECISION ztt1(kdlon, ntra)    DOUBLE PRECISION ztt1(kdlon, ntra)
   DOUBLE PRECISION ztt2(kdlon, ntra)  
77    DOUBLE PRECISION zuu(kdlon, nua)    DOUBLE PRECISION zuu(kdlon, nua)
78    DOUBLE PRECISION zcnsol(kdlon)    DOUBLE PRECISION zcnsol(kdlon)
79    DOUBLE PRECISION zcntop(kdlon)    DOUBLE PRECISION zcntop(kdlon)
80    
81    INTEGER jk, jl, ja    INTEGER jk, jl, ja
82    INTEGER jstra, jstru    INTEGER jstra, jstru
83    INTEGER ind1, ind2, ind3, ind4, in, jlim    INTEGER in, jlim
84    DOUBLE PRECISION zctstr    DOUBLE PRECISION zctstr
85    ! -----------------------------------------------------------------------    ! -----------------------------------------------------------------------
86    
# Line 98  SUBROUTINE lwvb(kuaer, ktraer, klim, pab Line 97  SUBROUTINE lwvb(kuaer, ktraer, klim, pab
97      DO jl = 1, kdlon      DO jl = 1, kdlon
98        ztt(jl, ja) = 1.0        ztt(jl, ja) = 1.0
99        ztt1(jl, ja) = 1.0        ztt1(jl, ja) = 1.0
       ztt2(jl, ja) = 1.0  
100      END DO      END DO
101    END DO    END DO
102    
# Line 113  SUBROUTINE lwvb(kuaer, ktraer, klim, pab Line 111  SUBROUTINE lwvb(kuaer, ktraer, klim, pab
111    ! *         2.      VERTICAL INTEGRATION    ! *         2.      VERTICAL INTEGRATION
112    ! --------------------    ! --------------------
113    
   
   ind1 = 0  
   ind3 = 0  
   ind4 = 1  
   ind2 = 1  
   
   
114    ! *         2.3     EXCHANGE WITH TOP OF THE ATMOSPHERE    ! *         2.3     EXCHANGE WITH TOP OF THE ATMOSPHERE
115    ! -----------------------------------    ! -----------------------------------
116    
Legend:
Removed from v.177  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21