source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/iniradia.F90 @ 4003

Last change on this file since 4003 was 3331, checked in by acozic, 6 years ago

Add modification for isotopes

  • Property svn:executable set to *
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          ! 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.