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

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

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

revision 117 by guez, Wed Mar 5 14:57:53 2014 UTC revision 118 by guez, Thu Dec 18 17:30:24 2014 UTC
# Line 1  Line 1 
   
 ! IM ctes ds clesphys.h   SUBROUTINE SWU  
 ! (PSCT,RCO2,PCLDSW,PPMB,PPSOL,PRMU0,PFRAC,  
1  SUBROUTINE swu(psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, paki, &  SUBROUTINE swu(psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, paki, &
2      pcld, pclear, pdsig, pfact, prmu, psec, pud)      pcld, pclear, pdsig, pfact, prmu, psec, pud)
3    
4    USE dimens_m    USE dimens_m
5    USE dimphy    USE dimphy
6    USE clesphys    USE clesphys
# Line 178  SUBROUTINE swu(psct, pcldsw, ppmb, ppsol Line 176  SUBROUTINE swu(psct, pcldsw, ppmb, ppsol
176      END DO      END DO
177    END DO    END DO
178    
   
   ! ------------------------------------------------------------------  
   
   RETURN  
179  END SUBROUTINE swu  END SUBROUTINE swu
Legend:
Removed from v.117  
changed lines
  Added in v.118
  ViewVC Help
Powered by ViewVC 1.1.21