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

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

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

revision 24 by guez, Wed Mar 3 13:23:49 2010 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 17  Line 17 
17  c        c      
18        use dimphy        use dimphy
19        use clesphys        use clesphys
20        use YOMCST        use SUPHEC_M
21        use raddim, only: kflev, kdlon        use raddim, only: kflev, kdlon
22        use yoethf        use yoethf_m
23        IMPLICIT none        IMPLICIT none
24  c======================================================================  c======================================================================
25  c Auteur(s): Z.X. Li (LMD/CNRS) date: 19960719  c Auteur(s): Z.X. Li (LMD/CNRS) date: 19960719
# Line 81  c Line 81  c
81        real, intent(in):: paprs(klon,klev+1)        real, intent(in):: paprs(klon,klev+1)
82        real, intent(in):: pplay(klon,klev)        real, intent(in):: pplay(klon,klev)
83        real albedo(klon), alblw(klon), tsol(klon)        real albedo(klon), alblw(klon), tsol(klon)
84        real t(klon,klev), q(klon,klev)        real, intent(in):: t(klon,klev)
85          real q(klon,klev)
86        real, intent(in):: wo(klon,klev)        real, intent(in):: wo(klon,klev)
87        real cldfra(klon,klev), cldemi(klon,klev), cldtaupd(klon,klev)        real cldfra(klon,klev), cldemi(klon,klev), cldtaupd(klon,klev)
88        real heat(klon,klev), cool(klon,klev)        real heat(klon,klev), cool(klon,klev)
Legend:
Removed from v.24  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21