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) |
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. |
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 -------- |
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 -------- |
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. |
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. |
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. |
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. |
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. |
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. |
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. |