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

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

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 79  cIM   real co2_ppm Line 79  cIM   real co2_ppm
79  cIM   real solaire  cIM   real solaire
80  c  c
81        real, intent(in):: paprs(klon,klev+1)        real, intent(in):: paprs(klon,klev+1)
82        real 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 t(klon,klev), q(klon,klev)
85        real, intent(in):: wo(klon,klev)        real, intent(in):: wo(klon,klev)
# Line 2794  cIM ctes ds clesphys.h   SUBROUTINE LW(R Line 2794  cIM ctes ds clesphys.h   SUBROUTINE LW(R
2794        use clesphys        use clesphys
2795        use YOMCST        use YOMCST
2796        use raddim        use raddim
2797                use raddimlw
2798        IMPLICIT none        IMPLICIT none
       include "raddimlw.h"  
2799  C  C
2800  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
2801  C     METHOD.  C     METHOD.
# Line 2957  cIM ctes ds clesphys.h   SUBROUTINE LWU( Line 2957  cIM ctes ds clesphys.h   SUBROUTINE LWU(
2957        use raddim        use raddim
2958        use radepsi        use radepsi
2959        use radopt        use radopt
2960                use raddimlw
2961        IMPLICIT none        IMPLICIT none
       include "raddimlw.h"  
2962  C  C
2963  C     PURPOSE.  C     PURPOSE.
2964  C     --------  C     --------
# Line 3347  C Line 3347  C
3347        use dimphy        use dimphy
3348        use YOMCST        use YOMCST
3349        use raddim        use raddim
3350                use raddimlw
3351        IMPLICIT none        IMPLICIT none
       include "raddimlw.h"  
3352  C  C
3353  C     PURPOSE.  C     PURPOSE.
3354  C     --------  C     --------
# Line 3842  C Line 3842  C
3842        use dimens_m        use dimens_m
3843        use dimphy        use dimphy
3844        use raddim        use raddim
3845                use raddimlw
3846        IMPLICIT none        IMPLICIT none
       include "raddimlw.h"  
3847  C  C
3848  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
3849  C     PURPOSE.  C     PURPOSE.
# Line 5254  C Line 5254  C
5254        use dimphy        use dimphy
5255        use YOMCST        use YOMCST
5256        use raddim        use raddim
5257                use raddimlw
5258        IMPLICIT none        IMPLICIT none
       include "raddimlw.h"  
5259  C  C
5260  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
5261  C     PURPOSE.  C     PURPOSE.
# Line 5367  C Line 5367  C
5367        use dimphy        use dimphy
5368        use raddim        use raddim
5369        use radopt        use radopt
5370                use raddimlw
5371        IMPLICIT none        IMPLICIT none
       include "raddimlw.h"  
5372  C  C
5373  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
5374  C     PURPOSE.  C     PURPOSE.
# Line 5698  C Line 5698  C
5698        use dimens_m        use dimens_m
5699        use dimphy        use dimphy
5700        use raddim        use raddim
5701                use raddimlw
5702        IMPLICIT none        IMPLICIT none
       include "raddimlw.h"  
5703  C  C
5704  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
5705  C     PURPOSE.  C     PURPOSE.
# Line 5950  C Line 5950  C
5950        use dimens_m        use dimens_m
5951        use dimphy        use dimphy
5952        use raddim        use raddim
5953                use raddimlw
5954        IMPLICIT none        IMPLICIT none
       include "raddimlw.h"  
5955  C  C
5956  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
5957  C     PURPOSE.  C     PURPOSE.
# Line 6157  C Line 6157  C
6157        use dimens_m        use dimens_m
6158        use dimphy        use dimphy
6159        use raddim        use raddim
6160                use raddimlw
6161        IMPLICIT none        IMPLICIT none
       include "raddimlw.h"  
6162  C  C
6163  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
6164  C     PURPOSE.  C     PURPOSE.
# Line 6332  C Line 6332  C
6332        use dimens_m        use dimens_m
6333        use dimphy        use dimphy
6334        use raddim        use raddim
6335                use raddimlw
6336        IMPLICIT none        IMPLICIT none
       include "raddimlw.h"  
6337  C  C
6338  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
6339  C     PURPOSE.  C     PURPOSE.
Legend:
Removed from v.3  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21