/[lmdze]/trunk/phylmd/Radlwsw/lwc.f
ViewVC logotype

Diff of /trunk/phylmd/Radlwsw/lwc.f

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

trunk/phylmd/Radlwsw/lwc.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC trunk/phylmd/Radlwsw/lwc.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 1  Line 1 
1  SUBROUTINE lwc(klim, pcldld, pcldlu, pemis, pfluc, pbint, pbsuin, pcts, &  SUBROUTINE lwc(klim, pcldld, pcldlu, pemis, pfluc, pbint, pbsuin, pcts, &
2      pcntrb, pflux)      pcntrb, pflux)
3    USE dimens_m    USE dimensions
4    USE dimphy    USE dimphy
5    USE raddim    USE raddim
6    USE radepsi    USE radepsi
# Line 75  SUBROUTINE lwc(klim, pcldld, pcldlu, pem Line 75  SUBROUTINE lwc(klim, pcldld, pcldlu, pem
75    
76    INTEGER jk, jl, imaxc, imx1, imx2, jkj, jkp1, jkm1    INTEGER jk, jl, imaxc, imx1, imx2, jkj, jkp1, jkm1
77    INTEGER jk1, jk2, jkc, jkcp1, jcloud    INTEGER jk1, jk2, jkc, jkcp1, jcloud
   INTEGER imxm1, imxp1  
78    DOUBLE PRECISION zcfrac    DOUBLE PRECISION zcfrac
79    ! ------------------------------------------------------------------    ! ------------------------------------------------------------------
80    
# Line 125  SUBROUTINE lwc(klim, pcldld, pcldlu, pem Line 124  SUBROUTINE lwc(klim, pcldld, pcldlu, pem
124    ! ---------------------------------------    ! ---------------------------------------
125    
126    IF (imaxc>0) THEN    IF (imaxc>0) THEN
   
     imxp1 = imaxc + 1  
     imxm1 = imaxc - 1  
   
127      ! *         2.0     INITIALIZE TO CLEAR-SKY FLUXES      ! *         2.0     INITIALIZE TO CLEAR-SKY FLUXES
128      ! ------------------------------      ! ------------------------------
129    
Legend:
Removed from v.81  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21