source: lmdz_wrf/trunk/WRFV3/lmdz/iniradia.F90

Last change on this file 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
4!c======================================================================
5!c
6!c Auteur(s) MP Lefebvre        date: 20080827
7!c
8!c Objet: initialise le rayonnement RRTM           
9!c======================================================================
10!c  Arguments:
11!c
12!c klon----input-I-nombre de points horizontaux
13!c klev----input-I-nombre de couches verticales
14!c pres----input-R-pression pour chaque inter-couche (en Pa)
15!c======================================================================
16!c
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 SUBROUTINE iniradia
Note: See TracBrowser for help on using the repository browser.