1 |
|
1 |
SUBROUTINE iniradia(klon, klev, pres) |
2 |
|
|
|
3 |
|
|
IMPLICIT NONE |
4 |
|
|
! ====================================================================== |
5 |
|
|
|
6 |
|
|
! Auteur(s) MP Lefebvre date: 20080827 |
7 |
|
|
|
8 |
|
|
! Objet: initialise le rayonnement RRTM |
9 |
|
|
! ====================================================================== |
10 |
|
|
! Arguments: |
11 |
|
|
|
12 |
|
|
! klon----input-I-nombre de points horizontaux |
13 |
|
|
! klev----input-I-nombre de couches verticales |
14 |
|
|
! pres----input-R-pression pour chaque inter-couche (en Pa) |
15 |
|
|
! ====================================================================== |
16 |
|
|
|
17 |
|
|
INTEGER klon |
18 |
|
|
INTEGER klev |
19 |
|
|
REAL pres(klev+1) |
20 |
|
|
|
21 |
|
|
include "clesphys.h" |
22 |
|
|
|
23 |
|
|
! CALL suphel ! initialiser constantes et parametres phys. |
24 |
|
|
! print*,'Physiq: apres suphel ' |
25 |
|
|
#if CPP_RRTM |
26 |
✓✗ |
1 |
if (iflag_rrtm .eq. 1) then |
27 |
|
1 |
CALL suinit(klon, klev) |
28 |
|
1 |
PRINT *, 'iniradia: apres suinit ' |
29 |
|
|
! calcul des niveaux de pression de reference au bord des couches pour |
30 |
|
|
! l'intialisation des aerosols. Momentannement, on passe un point de |
31 |
|
|
! grille du profil de pression. |
32 |
|
1 |
CALL surayolmd ! initialiser le rayonnement RRTM |
33 |
|
1 |
PRINT *, 'iniradia: apres surayolmd ' |
34 |
|
|
endif |
35 |
|
|
#endif |
36 |
|
|
|
37 |
|
1 |
RETURN |
38 |
|
|
END SUBROUTINE iniradia |