source: LMDZ4/trunk/libf/phylmd/iniradia.F @ 5301

Last change on this file since 5301 was 998, checked in by Laurent Fairhead, 16 years ago

Modifications necessaires a la preparation au passage au nouveau rayonnement
RRTM MPL
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1      SUBROUTINE iniradia (klon,klev,pres)
2 
3      IMPLICIT none
4c======================================================================
5c
6c Auteur(s) MP Lefebvre        date: 20080827
7c
8c Objet: initialise le rayonnement RRTM           
9c======================================================================
10c  Arguments:
11c
12c klon----input-I-nombre de points horizontaux
13c klev----input-I-nombre de couches verticales
14c pres----input-R-pression pour chaque inter-couche (en Pa)
15c======================================================================
16c
17      INTEGER klon
18      INTEGER klev
19      REAL pres(klev+1)
20
21!         CALL suphel     ! initialiser constantes et parametres phys.
22!     print*,'Physiq: apres suphel '
23!        CALL SUINIT(klon,klev)
24!     print*,'iniradia: apres suinit '
25! calcul des niveaux de pression de reference au bord des couches pour
26! l'intialisation des aerosols. Momentannement, on passe un point de
27! grille du profil de pression.
28!        CALL SURAYOLMD(pres(klev+1))  ! initialiser le rayonnement RRTM
29!     print*,'iniradia: apres surayolmd '
30
31      RETURN
32      END
Note: See TracBrowser for help on using the repository browser.