source: LMDZ5/branches/testing/libf/phylmd/iniradia.F90 @ 5423

Last change on this file since 5423 was 2488, checked in by Laurent Fairhead, 9 years ago

Merged trunk changes r2457:2487 into testing branch

  • 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
RevLine 
[1992]1SUBROUTINE iniradia(klon, klev, pres)
[998]2
[1992]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
[2160]21  include "clesphys.h"
22
[1992]23  ! CALL suphel     ! initialiser constantes et parametres phys.
24  ! print*,'Physiq: apres suphel '
[1989]25#if CPP_RRTM
[2160]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.
[2488]32     CALL surayolmd          ! initialiser le rayonnement RRTM
[2160]33     PRINT *, 'iniradia: apres surayolmd '
34  endif
[1989]35#endif
[998]36
[1992]37  RETURN
38END SUBROUTINE iniradia
Note: See TracBrowser for help on using the repository browser.