source: LMDZ5/trunk/libf/phylmd/iniradia.F90 @ 2223

Last change on this file since 2223 was 2113, checked in by acozic, 10 years ago

Add test on iflag_rrtm

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 KB
Line 
1SUBROUTINE 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  if (iflag_rrtm .eq. 1) then
27     CALL suinit(klon, klev)
28     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     CALL surayolmd(pres(klev+1)) ! initialiser le rayonnement RRTM
33     PRINT *, 'iniradia: apres surayolmd '
34  endif
35#endif
36
37  RETURN
38END SUBROUTINE iniradia
Note: See TracBrowser for help on using the repository browser.