source: lmdz_wrf/trunk/WRFV3/lmdz/iniradia.F @ 951

Last change on this file since 951 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

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.