Changeset 1992 for LMDZ5/trunk/libf/phylmd/iniradia.F90
- Timestamp:
- Mar 5, 2014, 2:19:12 PM (11 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/iniradia.F90
r1989 r1992 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) 1 SUBROUTINE iniradia(klon, klev, pres) 20 2 21 ! CALL suphel ! initialiser constantes et parametres phys. 22 ! print*,'Physiq: apres suphel ' 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 ! CALL suphel ! initialiser constantes et parametres phys. 22 ! print*,'Physiq: apres suphel ' 23 23 #if CPP_RRTM 24 CALL SUINIT(klon,klev)25 print*,'iniradia: apres suinit '26 ! calcul des niveaux de pression de reference au bord des couches pour27 ! l'intialisation des aerosols. Momentannement, on passe un point de28 ! grille du profil de pression.29 CALL SURAYOLMD(pres(klev+1))! initialiser le rayonnement RRTM30 print*,'iniradia: apres surayolmd '24 CALL suinit(klon, klev) 25 PRINT *, 'iniradia: apres suinit ' 26 ! calcul des niveaux de pression de reference au bord des couches pour 27 ! l'intialisation des aerosols. Momentannement, on passe un point de 28 ! grille du profil de pression. 29 CALL surayolmd(pres(klev+1)) ! initialiser le rayonnement RRTM 30 PRINT *, 'iniradia: apres surayolmd ' 31 31 #endif 32 32 33 34 END 33 RETURN 34 END SUBROUTINE iniradia
Note: See TracChangeset
for help on using the changeset viewer.